OFFSET
1,1
REFERENCES
Mark A. Herkommer, Number Theory, A Programmer's Guide, McGraw-Hill, New York, 1999, page 315.
MATHEMATICA
Select[ Range[427], (Mod[ #, 49] == 0 || Mod[ #, 49] == 1 || Mod[ #, 49] == 4 || Mod[ #, 49] == 9 || Mod[ #, 49] == 16 || Mod[ #, 49] == 25 || Mod[ #, 49] == 36) && !IntegerQ[ Sqrt[ # ]] & ]
Select[Range[500], MemberQ[{0, 1, 4, 9, 16, 25, 36}, Mod[#, 49]]&&!IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Sep 10 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Mar 26 2003
STATUS
approved