A010411 Squares mod 50.
0, 1, 4, 6, 9, 11, 14, 16, 19, 21, 24, 25, 26, 29, 31, 34, 36, 39, 41, 44, 46, 49
Offset: 1
Programs
-
Magma
[ n: n in [0..49] | IsSquare(R! n) where R:= ResidueClassRing(50)]; // Vincenzo Librandi, Dec 28 2019
-
Mathematica
Union[PowerMod[Range[50], 2, 50]]
-
Sage
[quadratic_residues(50)] # Zerinvary Lajos, May 24 2009
-
Scala
(1 to 50).map(n => (n * n) % 50).toSet.toSeq.sorted // Alonso del Arte, Dec 25 2019