var i,n,test : integer;
f1,f2 : text;
function kt(x : integer) : boolean;
var i : integer;
begin
i:=trunc(sqrt(x));
if sqr(i) = x then kt:=true else kt:=false;
end;
begin
assign(f1,'Sole.inp'); reset(f1);
assign(f2,'Kq.out'); rewrite(f2);
read(f1,n);
test:=0;
for i:=1 to n do if kt(i) = true then writeln(f2,i);
close(f1); close(f2);
readln; end.