A010448 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

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

KEYWORD

nonn,fini,full,easy

AUTHOR

STATUS

approved