|
%I #19 Dec 17 2019 02:40:24
%S 0,1,2,4,8,9,13,15,16
%N Squares mod 17.
%t Union[PowerMod[Range[17], 2, 17]] (* _Alonso del Arte_, Dec 17 2019 *)
%o (Sage) [quadratic_residues(17)] # _Zerinvary Lajos_, May 24 2009
%o (Scala) (1 to 17).map(n => (n * n) % 17).toSet.toSeq.sorted // _Alonso del Arte_, Dec 17 2019
%Y Row 17 of A096008.
%Y Cf. A028730, A136805.
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_
|
