A028810 Nonsquares mod 97.

5, 7, 10, 13, 14, 15, 17, 19, 20, 21, 23, 26, 28, 29, 30, 34, 37, 38, 39, 40, 41, 42, 45, 46, 51, 52, 55, 56, 57, 58, 59, 60, 63, 67, 68, 69, 71, 74, 76, 77, 78, 80, 82, 83, 84, 87, 90, 92

Offset

1,1

Links

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

Mathematica

Complement[Range[0, 96], PowerMod[Range[97], 2, 97]] (* Alonso del Arte, Jan 25 2020 *)

Prog

(Scala) (0 to 96).diff((1 to 97).map(n => n * n % 97)) // Alonso del Arte, Jan 25 2020
(Magma) [n: n in [0..96] | not IsSquare(R! n) where R:= ResidueClassRing(97)]; // Vincenzo Librandi, Jan 29 2020

Crossrefs

Cf. A010458.

Sequence in context: A129189 A066513 A218852 * A097700 A172321 A154689

Adjacent sequences: A028807 A028808 A028809 * A028811 A028812 A028813

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved