var  a:array[1..10000000]of boolean;
     b:array[1..10000000]of longint;
     t:longint; f1,f2:text;

procedure ciur;
var i,j,k:longint;
begin
 for i:=1 to 10000000 do a[i]:=true;
 a[1]:=false; k:=0;
 for i:=1 to 10000000 do
  if a[i] then
   begin
    j:=i*2;
    while j<=10000000 do
     begin
      a[j]:=false;
      j:=j+i;
     end;
    inc(k);
    b[k]:=i;
   end;
end;

procedure calc;
var i,k,n,j:longint; s:int64;
begin
 for i:=1 to t do
  begin
   readln(f1,n);
   s:=1; k:=1;
   for j:=1 to trunc(sqrt(n)) do
    if n mod b[j]=0 then  begin inc(k); s:=s+b[j]; end;
   s:=s div 9973;
   writeln(f2,k,' ',s);
  end;
end;

begin
 assign(f1,'ssnd.in');
 reset(f1);
 assign(f2,'ssnd.out');
 rewrite(f2);
 readln(t);
 ciur;
 calc;
 close(f1);
 close(f2);
end.