program tosquare; var a, b : longint; k : integer; procedure tosquare(var x : longint); var j, i : integer; begin j := 0; i := round(sqrt(x)); while (i > 0) do begin if (sqr(j) > x) then begin writeln('No'); break; end else if ((sqr(j) + sqr(i)) = x) then begin writeln('Yes'); break; end else if ((sqr(j) + sqr(i)) < x) then inc(j) else dec(i); end; end; begin readln(a); for k := 1 to a do begin readln(b); tosquare(b); end end.