var k,n,i,j,l:longint;

function t(m:longint):longint;

begin

i:=0;

j:=1;

while m>=j do begin j:=j*2;inc(i);end;

dec(i);

j:=j div 2;

if m=j then begin t:=1; for l:=1 to i do t:=t*k;end

else

t:=t(j)+t(m-j);

end;

begin

readln(k,n);

writeln(t(n));

end.

主要是数学问题···思考一会就出来了···