var a,p,s:int64;
    j,i,b:longint;
begin
assign(input,'sumdiv.in');reset(input);
assign(output,'sumdiv.out');rewrite(output);
read(a,b);p:=1;s:=0;
 for i:=1 to b do p:=p*a;i:=1;
 i:=trunc(sqrt(p));
 if i*i=p then dec(i);
 for j:=1 to i do begin
  if p mod (j*i)=0 then begin s:=(s+j+(p div j)) mod 9901;p:=p div j;end;
 end;
write(s mod 9901);
close(input);close(output);
end.