A010440 Squares mod 79.
0, 1, 2, 4, 5, 8, 9, 10, 11, 13, 16, 18, 19, 20, 21, 22, 23, 25, 26, 31, 32, 36, 38, 40, 42, 44, 45, 46, 49, 50, 51, 52, 55, 62, 64, 65, 67, 72, 73, 76
Offset: 1
Crossrefs
Cf. A028792.
Programs
-
Magma
[n: n in [0..78] | IsSquare(R! n) where R:= ResidueClassRing(79)]; // Vincenzo Librandi, Jan 23 2020
-
Mathematica
Union[PowerMod[Range[79], 2, 79]] (* Alonso del Arte, Jan 22 2020 *)
-
Sage
[quadratic_residues(79)] # Zerinvary Lajos, May 28 2009
-
Scala
(1 to 79).map(n => n * n % 79).toSet.toSeq.sorted // Alonso del Arte, Jan 22 2020