A010407 Squares mod 46.
0, 1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18, 23, 24, 25, 26, 27, 29, 31, 32, 35, 36, 39, 41
Offset: 1
Crossrefs
Cf. A028759.
Programs
-
Mathematica
Union[PowerMod[Range[46], 2, 46]] (* Alonso del Arte, Dec 23 2019 *)
-
Sage
[quadratic_residues(46)] # Zerinvary Lajos, May 24 2009
-
Scala
(1 to 46).map(n => (n * n) % 46).toSet.toSeq.sorted // Alonso del Arte, Dec 23 2019