program infooore;

var A,B,P:Qword;

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.