program numere;
var j,x,k,p,t,n:longint;
    f,g:text;
    gasit:boolean;
begin
assign(f,'numere2.in');
reset(f);
assign(g,'numere2.out');
rewrite(g);
while not (eof(f))do
begin
 read(f,n);
 k:=2;
 gasit:=false;
 while (k<=n) and(gasit=false)do
  begin
   j:=0;
   x:=n;
   while x mod k=0 do
    begin
     j:=j+1;
     x:=x div k;
    end;
    p:=1;
    t:=j;
   while j>0 do
   begin
    p:=p*k;
    j:=j-1;
   end;
   if p=n then
    begin
    gasit:=true;
    writeln(g,k);
    writeln(g,t);
    end;
   k:=k+1;
  end;
 end;
close(f);
close(g);
halt(0);
end.