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
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