|
%I #19 Jan 12 2024 06:30:17
%S 0,1,4,6,9,10,11,13,14,15,16,17,21,23,24,25,31,35,36,38,40,41
%N Squares mod 43.
%C A070465 sorted, without duplicates. - _R. J. Mathar_, Jan 12 2024
%t Select[Range[0,42],JacobiSymbol[#,43]!=-1&] (* _Harvey P. Dale_, Jan 09 2016 *)
%o (Sage) [quadratic_residues(43)] # _Zerinvary Lajos_, May 24 2009
%Y Cf. A010447, A070465.
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_
|
