login
A010440
Squares mod 79.
1
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,3
MATHEMATICA
Union[PowerMod[Range[79], 2, 79]] (* Alonso del Arte, Jan 22 2020 *)
PROG
(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
(Magma) [n: n in [0..78] | IsSquare(R! n) where R:= ResidueClassRing(79)]; // Vincenzo Librandi, Jan 23 2020
CROSSREFS
Cf. A028792.
Sequence in context: A032891 A377169 A035262 * A072008 A175141 A072756
KEYWORD
nonn,fini,full,easy
STATUS
approved