A010385 Squares mod 23.
0, 1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18
Offset: 1
Programs
-
Mathematica
Join[{0}, Select[Range[22], JacobiSymbol[#, 23] == 1&]] (* Jean-François Alcover, Oct 07 2018 *)
-
Sage
[quadratic_residues(23)] # Zerinvary Lajos, May 24 2009