A028753 Nonsquares mod 40.

2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 21, 22, 23, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39

Offset

1,1

Links

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

Mathematica

Complement[Range[0, 39], PowerMod[Range[40], 2, 40]] (* Alonso del Arte, Feb 20 2020 *)

Prog

(Scala) (0 to 39).diff((1 to 40).map(n => n * n % 40)) // Alonso del Arte, Feb 20 2020
(Magma) [n: n in [0..39] | not IsSquare(R! n) where R:= ResidueClassRing(40)]; // Vincenzo Librandi, Feb 21 2020

Crossrefs

Cf. A010401.

Sequence in context: A028813 A158276 A028793 * A336918 A028745 A028777

Adjacent sequences: A028750 A028751 A028752 * A028754 A028755 A028756

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane.

Status

approved