var n,i,j,k,a,t:longint;

begin
  assign(input,'ssnd.in');
  assign(output,'ssnd.out');
  reset(input);
  rewrite(output);
  read(n);
  for i:=1  to n do begin
    read(a);
    k:=0;
    t:=0;
    for j:=1 to trunc(sqrt(a)) do 
      if a mod j=0 then begin
        k:=k+j+(a div j);
        inc(t,2);
      end;
    if frac(sqrt(a))=0 then begin
      t:=t-1;
      k:=k-trunc(sqrt(a));
    end;
    writeln(t,' ',k mod 9973);
  end;
end.