var a,b,p:int64;
    t,k:int64;
    i:longint;
begin
assign(input,'numere2.in');reset(input);
assign(output,'numere2.out');rewrite(output);
read(p);
 if p=1 then begin writeln(1);writeln(1);end
        else
  for i:=2 to p do begin
   t:=p;k:=0;
   while t mod i=0 do begin
    t:=t div i;
    inc(k);
  end;
   if t=1 then begin writeln(i);writeln(k);exit;end;
  end;
close(input);close(output);
end.