%I #20 Oct 06 2022 11:33:08
%S 0,1,2,3,4,6,8,9,12,13,16,18
%N Squares mod 23.
%t Join[{0}, Select[Range[22], JacobiSymbol[#, 23] == 1&]] (* _Jean-François Alcover_, Oct 07 2018 *)
%o (Sage) [quadratic_residues(23)] # _Zerinvary Lajos_, May 24 2009
%Y Row 23 of A096008. Row 9 of A063987. A028736 (complement), A278580.
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_
|