A028761 Nonsquares mod 48.
2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 32, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47
Offset: 1
Crossrefs
Cf. A010409.
Programs
-
Mathematica
Complement[Range[0, 47], PowerMod[Range[48], 2, 48]] (* Alonso del Arte, Dec 24 2019 *)
-
Scala
(0 to 47).diff((1 to 48).map(n => (n * n) % 48)) // Alonso del Arte, Dec 24 2019