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
Programs
-
Magma
[n: n in [0..82] | not IsSquare(R! n) where R := ResidueClassRing(83)]; // Vincenzo Librandi, Jan 24 2020
-
Mathematica
Complement[Range[0, 82], PowerMod[Range[83], 2, 83]] (* Alonso del Arte, Jan 23 2020 *)
-
Scala
(0 to 82).diff((1 to 83).map(n => n * n % 83)) // Alonso del Arte, Jan 23 2020