var i:word;begin
write("[3");for i:=5to 99do if frac(i**0.5)>0then write(", ",i);write(^)end.