program gfact;
var p,q:longint;
        f,g:text;
        divizor,putere:longint;



procedure iofile;
var d,e:longint;
begin
        assign(f,'gfact.in');
        reset(f);
        assign(g,'gfact.out');
        rewrite(g);
        readln(f,p,q);
        d:=2;
        while p<>1 do
                begin
                        e:=0;
                        while p mod d=0 do
                                begin
                                        p:=p div d;
                                        inc(e);
                                end;
                        inc(d);
                end;
        divizor:=d-1;
        putere:=e*q;
        close(f);
end;





procedure prel;
var i:longint;
        put,x,d:longint;
begin
        put:=0;
        i:=1;
        while put<putere do
                begin
                        x:=i;
                        inc(put);
                        while x mod divizor=0 do
                                begin
                                        inc(put);
                                        x:=x div divizor;
                                end;
                        inc(i);
                end;
        dec(i);
        writeln(g,i*divizor);
        close(g);
end;



begin
        iofile;
        prel;
end.