login
Squares mod 50.
3

%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_