var A,B,P,n,i:longint;

Begin
    assign(input,'numere2.in'); reset(input);
    readln(input,p);
    close(input);
    a:=2;
    b:=1;
       repeat
            if exp(b*ln(a))>p then
             begin
                  inc(a);
                  b:=1;
             end else inc(b);

       until trunc(exp(b*ln(a)))>=p;
    assign(output,'numere2.out'); rewrite(output);
    writeln(output,a);
    write(output,b);
    close(output);

End.