PROGRAM divizori;
var S,I,A,B,Rest,N:LongInt;
	FI,FO:text;

	Function Suma_div(N:LongInt):LongInt;
		var i,S:LongInt;
	Begin
	S:=0;
	For i:=1 to N do
	if N MOD i=0 then S:=S+i;
	
	Suma_div:=S;
	end;
	
Begin
N:=1;
Assign(FI,'SumDiv.in'); Reset(FI);
Assign(FO,'SumDiv.out'); Rewrite(FO);
Read(FI,A,B);
Close(FI);
For i:=1 to B do
N:=N*A;
S:=Suma_Div(N);
Rest:=S MOD 9901;
Writeln(FO,Rest);
close(FO);
end.