Function KT(X:Int64):Boolean;
Var
i:Int32;
Begin
if X<3 then
Exit(False);
for i:=2 to Trunc(SQRT(X)) do
if X mod i=0 then
if i<>(X div i) then
Exit(False)
else
Exit(True);
Exit(False);
End;
Var
i,n:Int32;
y:Int64;
BEGIN
Assign(input,'TNUM.INP');Reset(input);
Assign(output,'TNUM.OUT');Rewrite(output);
Readln(n);
for i:=1 to n do
Begin
Read(y);
Writeln(KT(y));
End;
END.