A010448 Squares mod 87.

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

Links

Table of n, a(n) for n=1..30.

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

Adjacent sequences: A010445 A010446 A010447 * A010449 A010450 A010451

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved