type vector=array [1..1000] of int64;
var a,b,j:longint;
    v:vector;
    f,g:text;

 procedure divizori;
  var i:longint;
  begin
   j:=1;
   for i:=2 to a div 2 do
     if a mod i=0 then
       begin
       v[j]:=i;
       j:=j+1;
       end;
   v[j]:=a;
  end;

 procedure suma;
  var i,k:longint;
      s:int64;
      w:vector;
  begin
   w:=v;
   s:=1;
   for i:=1 to j do s:=s+v[i];
   for i:=2 to b do
     for k:=1 to j do
       begin
       v[k]:=v[k]*w[k];
       s:=s+v[k];
       end;
   write(g,s mod 9901);
  end;

begin
  assign(f,'sumdiv.in');
  assign(g,'sumdiv.out');
  reset(f);
  rewrite(g);
  readln(f,a,b);
  divizori;
  suma;
  close(f);
  close(g);
end.