login
A081643
Integers congruent to 0, 1, 4 or 9 (mod 16) which are not squares.
2
17, 20, 32, 33, 41, 48, 52, 57, 65, 68, 73, 80, 84, 89, 96, 97, 105, 112, 113, 116, 128, 129, 132, 137, 145, 148, 153, 160, 161, 164, 176, 177, 180, 185, 192, 193, 201, 208, 209, 212, 217, 224, 228, 233, 240, 241, 244, 249, 257, 260, 265, 272, 273, 276, 281
OFFSET
1,1
REFERENCES
Mark A. Herkommer, Number Theory, A Programmer's Guide, McGraw-Hill, New York, 1999, page 315.
LINKS
MATHEMATICA
Select[ Range[287], (Mod[ #, 16] == 0 || Mod[ #, 16] == 1 || Mod[ #, 16] == 4 || Mod[ #, 16] == 9) && !IntegerQ[ Sqrt[ # ]] & ]
Select[Range[300], MemberQ[{0, 1, 4, 9}, Mod[#, 16]]&&!IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Jul 29 2019 *)
CROSSREFS
Sequence in context: A034069 A340046 A116037 * A146169 A218864 A045020
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Mar 26 2003
STATUS
approved