A010419 Squares mod 58.
0, 1, 4, 5, 6, 7, 9, 13, 16, 20, 22, 23, 24, 25, 28, 29, 30, 33, 34, 35, 36, 38, 42, 45, 49, 51, 52, 53, 54, 57
Offset: 1
Programs
-
Mathematica
Union[PowerMod[Range[58], 2, 58]] (* Alonso del Arte, Nov 29 2019 *)
-
Sage
[quadratic_residues(58)] # Zerinvary Lajos, May 24 2009
-
Scala
(1 to 58).map(n => n * n).map( % 58).toSet.toSeq.sorted // _Alonso del Arte, Nov 29 2019