var i,j,x,n:qword; f1,f2:text;
begin
        assign(f1,'numere2.in');
        reset(f1);
        assign(f2,'numere2.out');
        rewrite(f2);
        read(f1,n);
        i:=2;
        while i<=n do
        begin
                j:=i; x:=1;
                while j<n do
                begin
                        j:=j*i;
                        inc(x);
                end;
                if j=n then break;
                inc(i);
        end;
        writeln(f2,i);
        write(f2,x);
        close(f1);
        close(f2);
end.