program suma_divizorilor;
    var a,b,put,i,s:longint;f,g:text;
    begin
    assign(f,'sumdiv.in');reset(f);
    assign(g,'sumdiv.out');rewrite(g);
    readln(f,a,b);if (a>0)and(b=0)then put:=1;if (a=0)then put:=0;
    for i:=0 to b do
    if i>1 then put:=a*put;
    a:=put;s:=a;if a mod 2=0 then b:=a div 2 else b:=a div 3;
    for put :=0 to b do
    if (put>0) and (a mod put=0) then s:=s+put;
    write(g,s mod 9901);
    close(f);close(g);end.