program dejavu;
var x, y, z : int64;
    i : integer;

function mnozi(b, kp : int64) : int64;
var i : integer;
    r : int64;
begin
    r := 1;
    for i := 1 to kp do
         r := r * b;
    mnozi := r;
end;

begin
    readln(x, y);
    i := 0
    ;
    repeat
        i := i + 1;
        if mnozi(i, y) = x then begin
            z := i;
            break;
         end;
    until i = round(sqrt(x));
    writeln(z);
end.