A081645 Integers congruent to 0, 1, 4, 9, 16 or 25 (mod 36) which are not squares.

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

Offset

1,1

References

Mark A. Herkommer, Number Theory, A Programmer's Guide, McGraw-Hill, New York, 1999, page 315.

Links

Table of n, a(n) for n=1..54.

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]] &] (* Harvey P. Dale, Sep 25 2011 *)

Crossrefs

Sequence in context: A345481 A295801 A111198 * A069963 A071855 A137675

Adjacent sequences: A081642 A081643 A081644 * A081646 A081647 A081648

Keyword

easy,nonn

Author

Robert G. Wilson v, Mar 26 2003

Status

approved