%I #21 Dec 24 2019 08:31:37
%S 0,1,4,9,12,16
%N Squares mod 24.
%p sort(convert({seq(i^2 mod 24,i=0..12)},list)); # _Robert Israel_, Apr 19 2017
%t Union[PowerMod[Range[24], 2, 24]] (* _Alonso del Arte_, Apr 06 2017 *)
%o (Sage) [quadratic_residues(24)] # _Zerinvary Lajos_, May 24 2009
%o (Scala) (1 to 24).map(n => (n * n) % 24).toSet.toSeq.sorted // _Alonso del Arte_, Dec 24 2019
%Y Cf. A028737, A070446.
%K nonn,fini,full,easy
%O 1,3
%A _N. J. A. Sloane_
|