program dejavu;
var a,b,c,d,f,h,j:int64;
g:longint;
begin
readln(a);
readln(b);

d:=0;f:=0;

repeat
f:=f+1;
j:=1;
for g:=1 to b do j:=j*f;
if j=a then d:=1;
until d=1;
writeln(f);
end.