A010450 Squares mod 89.

0, 1, 2, 4, 5, 8, 9, 10, 11, 16, 17, 18, 20, 21, 22, 25, 32, 34, 36, 39, 40, 42, 44, 45, 47, 49, 50, 53, 55, 57, 64, 67, 68, 69, 71, 72, 73, 78, 79, 80, 81, 84, 85, 87, 88

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• fini
• full
• easy

Crossrefs

Cf. A028802.

Programs

Mathematica

Join[{0}, Select[Range[100], JacobiSymbol[#, 89] == 1 &]] (* Harvey P. Dale, Jan 27 2012 *)

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