program xatn;
 var a,b,p,s,r,i : maxlongint..5000000000;
     f,g:text;
 begin
  assign(f,'sumdiv.in');
  reset(f);
  read (f,a);
  readln (f,b);
  close(f);
  assign(g,'sumdiv.out');
  rewrite(g);
  p:=a;
  i:=1;
   for i:=1 to b do
    p:=p*a;
   for i:=1 to p div 2 do
    if p mod i=0 then
     s:=s+i;
   r:=s mod 9901;
   write (g,r);
   close(g);
   end.