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

50, 53, 58, 65, 74, 85, 98, 99, 102, 107, 114, 123, 134, 147, 148, 151, 156, 163, 172, 183, 197, 200, 205, 212, 221, 232, 245, 246, 249, 254, 261, 270, 281, 294, 295, 298, 303, 310, 319, 330, 343, 344, 347, 352, 359, 368, 379, 392, 393, 396, 401, 408, 417

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..53.

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[ # ]] & ]

Crossrefs

Sequence in context: A139182 A294297 A320673 * A215908 A052261 A295155

Adjacent sequences: A081643 A081644 A081645 * A081647 A081648 A081649

Keyword

easy,nonn

Author

Robert G. Wilson v, Mar 26 2003

Status

approved