A010376 Squares mod 13.
0, 1, 3, 4, 9, 10, 12
Offset: 1
Programs
-
Mathematica
Union[PowerMod[Range[13], 2, 13]] (* Alonso del Arte, Dec 13 2019 *)
-
Sage
[quadratic_residues(13)] # Zerinvary Lajos, May 24 2009
-
Scala
(1 to 13).map(n => (n * n) % 13).toSet.toSeq.sorted // Alonso del Arte, Dec 13 2019