A010439 Squares mod 78.
0, 1, 3, 4, 9, 10, 12, 13, 16, 22, 25, 27, 30, 36, 39, 40, 42, 43, 48, 49, 51, 52, 55, 61, 64, 66, 69, 75
Offset: 1
Programs
-
Mathematica
Union[PowerMod[Range[78], 2, 78]] (* Alonso del Arte, Dec 26 2019 *)
-
Sage
[quadratic_residues(78)] # Zerinvary Lajos, May 28 2009
-
Scala
(1 to 78).map(n => (n * n) % 78).toSet.toSeq.sorted // Alonso del Arte, Dec 26 2019