OFFSET
1,3
MATHEMATICA
Join[{0}, Select[Range[100], JacobiSymbol[#, 89] == 1 &]] (* Harvey P. Dale, Jan 27 2012 *)
PROG
(Sage) [quadratic_residues(89)] # Zerinvary Lajos, May 28 2009
(Scala) (1 to 89).map(n => n * n % 89).toSet.toSeq.sorted // Alonso del Arte, Jan 24 2020
CROSSREFS
KEYWORD
nonn,fini,full,easy
AUTHOR
STATUS
approved