program exercise(input,output);

var k,n,i:longint;

s:string;

ans:longint;

begin

readln(k,n);

while n>0 do

begin

if n mod 2=1 then

s:='1'+s

else

s:='0'+s;

n:=n div 2;

end;

n:=1;

ans:=0;

for i:=length(s) downto 1 do

begin

if s[i]='1' then

ans:=ans+n;

n:=n*k;

end;

writeln(ans);

end.