A028800 Nonsquares mod 87.

2, 3, 5, 8, 10, 11, 12, 14, 15, 17, 18, 19, 20, 21, 23, 26, 27, 29, 31, 32, 35, 37, 38, 39, 40, 41, 43, 44, 46, 47, 48, 50, 53, 55, 56, 59, 60, 61, 62, 65, 66, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 79, 80, 83, 84, 85, 86

Offset

1,1

Links

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

Mathematica

Complement[Range[0, 86], PowerMod[Range[87], 2, 87]] (* Alonso del Arte, Dec 29 2019 *)

Prog

(Scala) (0 to 86).diff((1 to 87).map(n => n * n % 87)) // Alonso del Arte, Dec 29 2019
(Magma) [n: n in [0..86] | not IsSquare(R! n) where R:= ResidueClassRing(87)]; // Vincenzo Librandi, Dec 30 2019

Crossrefs

Cf. A010448.

Sequence in context: A028770 A321702 A351876 * A028841 A028840 A189143

Adjacent sequences: A028797 A028798 A028799 * A028801 A028802 A028803

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved