type vect=array[1..1000000000] of byte;
var c:vect;
    f:text;
    p,a,b:int64;
    i,k:longint;
    ok:boolean;


procedure ciur(n:int64;var c :vect);
var i, j: word;
begin
  for i:=1 to n do
      c[i]:=1;
  for i:=2 to n div 2 do
    for j:=2 to n div i do
      c[i*j]:=0;
end;

function verif(i:longint;var k:longint):boolean;
var ok:boolean;
begin
ok:=true;
k:=0;
while p mod i=0 do
begin
p:=p div i;
inc(k);
end;
if p<>1 then ok:=false;
verif:=ok;
end;



begin
assign(f,'numere2.in');
reset(f);
read(f,p);
close(f);
assign(f,'numere2.out');
rewrite(f);
ciur(p,c);

for i:=2 to p do
  if (verif(i,k)=true) and (c[i]=1) then begin writeln(f,i,' ',k);
                                               close(f);
                                               exit;
                                               end;
end.