[go: up one dir, main page]

login
A010385
Squares mod 23.
3
0, 1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18
OFFSET
1,3
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
KEYWORD
nonn,fini,full
STATUS
approved