program sumadiv;
var f,g:text;
    a,b,s:real;

procedure citire;
begin
assign (f,'sumadiv.in'); reset (f);
read (f,a,b);
close (f);
end;

procedure calcul;
var i,p,t,x,y:real;
begin
assign (g,'sumadiv.out'); rewrite (g);
i:=1;
p:=1;
while i<=b do begin p:=p*a;
                   i:=i+1
             end;
i:=1;
s:=0;
while i<=p do begin
   if trunc(p/i)=p/i then s:=s+i;
   i:=i+1
end;
write (s);
t:=trunc(s/9901);
x:=s*t;
y:=s-x;
write (g,y:1:0);
close (g);
end;

begin
citire;
calcul;
end.