A028763 Nonsquares mod 50.
2, 3, 5, 7, 8, 10, 12, 13, 15, 17, 18, 20, 22, 23, 27, 28, 30, 32, 33, 35, 37, 38, 40, 42, 43, 45, 47, 48
Offset: 1
Programs
-
Mathematica
Complement[Range[0, 49], PowerMod[Range[50], 2, 50]] (* Alonso del Arte, Dec 25 2019 *)
-
Scala
(0 to 49).diff((1 to 50).map(n => (n * n) % 50)) // Alonso del Arte, Dec 25 2019