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
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved