A010398 Squares mod 37.
0, 1, 3, 4, 7, 9, 10, 11, 12, 16, 21, 25, 26, 27, 28, 30, 33, 34, 36
Offset: 1
Programs
-
Magma
[n: n in [0..36] | IsSquare(R! n) where R:= ResidueClassRing(37)]; // Vincenzo Librandi Jan 31 2020
-
Mathematica
Union[PowerMod[Range[37], 2, 37]] (* Vincenzo Librandi, Jan 31 2020 *)
-
Sage
[quadratic_residues(37)] # Zerinvary Lajos, May 24 2009
Comments