A028738 Nonsquares mod 25.
2, 3, 5, 7, 8, 10, 12, 13, 15, 17, 18, 20, 22, 23
Offset: 1
Crossrefs
Cf. A010387.
Programs
-
Mathematica
Complement[Range[0, 24], PowerMod[Range[0, 24], 2, 25]] (* Alonso del Arte, Nov 25 2019 *)
-
Scala
val squaresMod25 = (0 to 24).map(n => n * n).map(_ % 25) (0 to 24).diff(squaresMod25) // Alonso del Arte, Nov 25 2019