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.