|
%I #23 Sep 08 2022 08:44:37
%S 0,1,4,6,9,11,14,16,19,21,24,25,26,29,31,34,36,39,41,44,46,49
%N Squares mod 50.
%t Union[PowerMod[Range[50], 2, 50]]
%o (Sage) [quadratic_residues(50)] # _Zerinvary Lajos_, May 24 2009
%o (Scala) (1 to 50).map(n => (n * n) % 50).toSet.toSeq.sorted // _Alonso del Arte_, Dec 25 2019
%o (Magma) [ n: n in [0..49] | IsSquare(R! n) where R:= ResidueClassRing(50)]; // _Vincenzo Librandi_, Dec 28 2019
%Y Row 50 of A096008.
%Y Cf. A028763.
%K nonn,fini,full,easy
%O 1,3
%A _N. J. A. Sloane_
|
