OFFSET
1,1
REFERENCES
Mark A. Herkommer, Number Theory, A Programmer's Guide, McGraw-Hill, New York, 1999, page 315.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
remove(issqr, [seq(seq(25*i+j, j=[0, 1, 4, 9, 16]), i=1..50)]); # Robert Israel, Apr 08 2020
MATHEMATICA
Select[ Range[308], (Mod[ #, 25] == 0 || Mod[ #, 25] == 1 || Mod[ #, 25] == 4 || Mod[ #, 25] == 9 || Mod[ #, 25] == 16) && !IntegerQ[ Sqrt[ # ]] & ]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Mar 26 2003
STATUS
approved