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