A028762 Nonsquares mod 49.
3, 5, 6, 7, 10, 12, 13, 14, 17, 19, 20, 21, 24, 26, 27, 28, 31, 33, 34, 35, 38, 40, 41, 42, 45, 47, 48
Offset: 1
Programs
-
Mathematica
Complement[Range[0, 48], PowerMod[Range[49], 2, 49]] (* Alonso del Arte, Jan 07 2020 *)
-
Scala
(0 to 48).diff((1 to 49).map(n => n * n % 49)) // Alonso del Arte, Jan 07 2020
Comments