program numere2;
   var a,p:longint;f,g:text;b,c,d:integer;
   begin
   assign(f,'numere2.in');reset(f);
   assign(g,'nuere2.out');rewrite(g);
   read(f,p);b:=1;c:=2;a:=1;
   for c:=c to trunc(sqrt(p)) do begin
   a:=c;b:=1;d:=c;
   repeat
   a:=a*c;inc(b);
   if a=p then begin c:=trunc(sqrt(p));
   writeln(g,d);writeln(g,b);end; until (a>=p);
   end;close(f);close(g);end.