var a,b,s:longint;
f,g:text;
function putere(a,b:longint):longint;
var i,aux,s,t:longint;
begin
if b=1 then putere:=a
       else if b mod 2=1 then putere:=putere(a,b-1)*a
                         else begin
                         aux:=putere(a,b div 2);
                         putere:=(aux*aux);
                         end;
s:=0;
for i:=2 to putere(a,b) do
if putere(a,b) mod i=0 then s:=s+i;
end;
begin
assign(f,'sumdiv.in');reset(f);
assign(g,'sumdiv.out');rewrite(g);
read(f,a,b);
writeln(g,s mod 9901);
close(f);   
close(g);   
end.