program p_a_la_b;
var  v:array[1..10000]of longint;
     i,n,j,p,nr,s:longint;f,g:text;
begin
      assign(f,'sumdiv.in');reset(f);
      assign(g,'sumdiv.out');rewrite(g);
      read(f,nr,p);n:=1;
     v[1]:=1;
    for j:=1 to p do begin
     for i:=1 to n do
      v[i]:=v[i]*nr;
    for i:=1 to n do
      if v[i]>10 then begin
      n:=n+1;
       v[i+1]:=v[i+1]+v[i] div 10;
       v[i]:=v[i]  mod 10;
       end;
      end;s:=1;
      if n>1 then begin
         for i:=n downto 1 do begin
         v[i]:=v[i+1];
         v[i]:=v[i]*10+v[i-1];   end;
       for j:=2 to v[i+1] do begin
       if v[i+1] mod j=0 then s:=s+j;end;
       write(s mod 9901);end
           else
       for j:=2 to v[i] do begin
       if v[i] mod j=0 then s:=s+j;end;
       write(g,s mod 9901);   close(f);close(g);
end.