program Untitled;
label kraj, prije;
var
   x : string;
   y, kod, j : integer;
   xx, rj, i, a : longint;
begin
     readln ( x );
     readln ( y );
     if y = 1 then
     begin
          writeln ( x );
          goto kraj;
     end;
     val ( x, xx, kod );
     for i := 1 to xx do
     begin
          rj := i;
          for j := 1 to y - 1 do
          begin
               rj := rj * i;
          end;
          if rj = xx then goto prije;
          rj := 0;
     end;
prije :
     writeln ( i );
kraj :
readln;
end.