A028796 Nonsquares mod 83.

2, 5, 6, 8, 13, 14, 15, 18, 19, 20, 22, 24, 32, 34, 35, 39, 42, 43, 45, 46, 47, 50, 52, 53, 54, 55, 56, 57, 58, 60, 62, 66, 67, 71, 72, 73, 74, 76, 79, 80, 82

Offset

1,1

Links

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

Mathematica

Complement[Range[0, 82], PowerMod[Range[83], 2, 83]] (* Alonso del Arte, Jan 23 2020 *)

Prog

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

Crossrefs

Cf. A010444 (complement), A096013 (row 83).

Sequence in context: A132229 A028750 A028787 * A330226 A242422 A019989

Adjacent sequences: A028793 A028794 A028795 * A028797 A028798 A028799

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved