var v:array[1..400] of 0..1;
f:text; i,j:integer; nr,nrr:qword;
{procedure ciur;
var i,j:integer;
begin
{for i:=2 to 20 do
if v[i]=0 then
for j:=2 to 400 div i do
v[i*j]:=1;
end;      }
begin
assign(f,'numere2.in');reset(f);
read(f,nr);
close(f);
{ciur;}
assign(f,'numere2.out');rewrite(f);
for i:=2 to 400 do
    {if v[i]=0 then  }
       if nr mod i=0 then
             begin
             nrr:=0;
             while (nr<>1) do
             begin
             nr:=nr div i;
             inc(nrr);
             end;
             writeln(f,i);
             writeln(f,nrr);
             break;
             end;
close(f);
end.