var
 k,n,m,i,j,ans,l:longint;
 a:array[0..10000]of char;

{function f(n,l:longint):longint;
var
 i:longint;

begin
  f:=1;
  for i:=1 to l do
   f:=f*n;
end;}

begin
 read(k,n);
 while n>0 do
  begin
   inc(l);
   a[l]:=chr(n mod 2+48);
   n:=n div 2;
  end;
 for i:=2 to l+1 do
  begin
   m:=0;
   if a[i]='1' then begin
                     m:=1;
                     for j:=1 to i-1 do
                      m:=m*k;
                    end;
   ans:=ans+m;
  end;
 if a[1]='1' then inc(ans);

 write(ans);
end.

/**************************************************************
	Problem: 2263
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/