procedure cit(var a,b:integer);
var f:text;
begin
assign(f,'sumdiv.in');reset(f);
while not eof(f) do
read(f,a,b);
end;
function pow(x,y:integer):integer;
begin
if y=0 then pow:=1
else if odd(y) then pow:=x*pow(x,y-1)
else pow:=sqr(pow(x,y div 2));
end;
function suma(x:integer):integer;
var s,d,p:integer;
begin
d:=2;s:=1;
while x>1 do begin
p:=0;
while x mod d=0 do begin
inc(p);
x:=x div d
end;
if p<>0 then
s:=s*((pow(d,p+1)-1)div(d-1));
inc(d)
end;
suma:=s;
end;
var a,b:integer;
g:Text;
begin
assign(g,'sumdiv.out');rewrite(g);
cit(a,b);write(g,suma(pow(a,b)) mod 9901);
close(g);end.