A010397 Squares mod 36.
0, 1, 4, 9, 13, 16, 25, 28
Offset: 1
Crossrefs
Cf. A028749.
Programs
-
Magma
[n: n in [0..35] | IsSquare(R! n) where R:= ResidueClassRing(36)]; // Vincenzo Librandi, Jan 31 2020
-
Mathematica
Union[PowerMod[Range[36], 2, 36]] (* Vincenzo Librandi, Jan 31 2020 *)
-
Sage
[quadratic_residues(36)] # Zerinvary Lajos, May 24 2009