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

Links

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

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

Cf. A028802.

Sequence in context: A004761 A004754 A322014 * A035231 A035259 A047614

Adjacent sequences: A010447 A010448 A010449 * A010451 A010452 A010453

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved