|
| |
|
|
A081645
|
|
Integers congruent to 0, 1, 4, 9, 16 or 25 (mod 36) which are not squares.
|
|
1
| |
|
|
37, 40, 45, 52, 61, 72, 73, 76, 88, 97, 108, 109, 112, 117, 124, 133, 145, 148, 153, 160, 180, 181, 184, 189, 205, 216, 217, 220, 232, 241, 252, 253, 261, 268, 277, 288, 292, 297, 304, 313, 325, 328, 333, 340, 349, 360, 364, 369, 376, 385, 396, 397, 405, 412
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
REFERENCES
| Mark A. Herkommer, Number Theory, A Programmer's Guide, McGraw-Hill, New York, 1999, page 315.
|
|
|
MATHEMATICA
| Select[ Range[420], (Mod[ #, 36] == 0 || Mod[ #, 36] == 1 || Mod[ #, 36] == 4 || Mod[ #, 36] == 9 || Mod[ #, 36] == 16 || Mod[ #, 36] == 25) && !IntegerQ[ Sqrt[ # ]] & ]
Select[Range[450], !IntegerQ[Sqrt[#]]&&MemberQ[{0, 1, 4, 9, 16, 25}, Mod[#, 36]] &] (* From Harvey P. Dale, Sep 25 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A041683 A064172 A111198 * A069963 A071855 A137675
Adjacent sequences: A081642 A081643 A081644 * A081646 A081647 A081648
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 26 2003
|
| |
|
|
