function cp(n:longint):boolean;
begin
if trunc(sqrt(n)) = sqrt(n) then exit(true);
exit(false);
end;
var i,n:longint;
begin
readln(n);
if cp(n)=true then writeln(n,' la so chinh phuong')
else writeln(n,' khong phai la so chinh phuong');
write('Cac so chinh phuong nho hon ',n,' la ');
for i := 1 to n - 1 do
if cp(i)=true then write(i,' ');
readln;
end.