login
A010448
Squares mod 87.
1
0, 1, 4, 6, 7, 9, 13, 16, 22, 24, 25, 28, 30, 33, 34, 36, 42, 45, 49, 51, 52, 54, 57, 58, 63, 64, 67, 78, 81, 82
OFFSET
1,3
MATHEMATICA
Union[PowerMod[Range[87], 2, 87]] (* Alonso del Arte, Dec 29 2019 *)
PROG
(Sage) [quadratic_residues(87)] # Zerinvary Lajos, May 28 2009
(Scala) (1 to 87).map(n => n * n % 87).toSet.toSeq.sorted // Alonso del Arte, Dec 29 2019
(Magma) [n: n in [0..86] | IsSquare(R! n) where R:= ResidueClassRing(87)]; // Vincenzo Librandi, Dec 30 2019
CROSSREFS
Cf. A028800.
Sequence in context: A043337 A023710 A310657 * A005621 A140468 A342236
KEYWORD
nonn,fini,full,easy
STATUS
approved