login
A010450
Squares mod 89.
1
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
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
KEYWORD
nonn,fini,full,easy
STATUS
approved