var p:int64;
    f,g:text;

 function nr(x:int64):boolean;
  var i,q:int64;
      ok,k:boolean;
  begin
   i:=0;
   q:=1;
   ok:=false;
   k:=false;
   while not ok do
     begin
     i:=i+1;
     q:=q*x;
     if q=p then
       begin
       ok:=true;
       k:=true;
       end
     else
       if q>p then ok:=true;
     end;
   if k then
     begin
     nr:=true;
     writeln(g,x);
     write(g,i);
     end
   else nr:=false;
  end;

 procedure rez;
  var i:int64;
      ok:boolean;
  begin
   if p=1 then
     begin
     writeln(g,1);
     write(g,1);
     end
   else
     begin
     i:=1;
     ok:=false;
     while not ok do
       begin
       i:=i+1;
       if nr(i) then ok:=true;
       end;
     end;
  end;

begin
  assign(f,'numere2.in');
  assign(g,'numere2.out');
  reset(f);
  rewrite(g);
  read(f,p);
  rez;
  close(f);
  close(g);
end.