A010385 Squares mod 23.

0, 1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18

Offset

1,3

Links

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

Mathematica

Join[{0}, Select[Range[22], JacobiSymbol[#, 23] == 1&]] (* Jean-François Alcover, Oct 07 2018 *)

Prog

(Sage) [quadratic_residues(23)] # Zerinvary Lajos, May 24 2009

Crossrefs

Row 23 of A096008. Row 9 of A063987. A028736 (complement), A278580.

Sequence in context: A189291 A155211 A206716 * A095037 A191284 A071403

Adjacent sequences: A010382 A010383 A010384 * A010386 A010387 A010388

Keyword

nonn,fini,full

Author

N. J. A. Sloane

Status

approved