A010415 Squares mod 54.
0, 1, 4, 7, 9, 10, 13, 16, 19, 22, 25, 27, 28, 31, 34, 36, 37, 40, 43, 46, 49, 52
Offset: 1
Crossrefs
Cf. A028767.
Programs
-
Mathematica
Union[PowerMod[Range[54], 2, 54]] (* Alonso del Arte, Dec 27 2019 *)
-
Sage
[quadratic_residues(54)] # Zerinvary Lajos, May 24 2009
-
Scala
(1 to 54).map(n => (n * n) % 54).toSet.toSeq.sorted // Alonso del Arte, Dec 27 2019