login
A010397
Squares mod 36.
0
0, 1, 4, 9, 13, 16, 25, 28
OFFSET
1,3
MATHEMATICA
Union[PowerMod[Range[36], 2, 36]] (* Vincenzo Librandi, Jan 31 2020 *)
PROG
(Sage) [quadratic_residues(36)] # Zerinvary Lajos, May 24 2009
(Magma) [n: n in [0..35] | IsSquare(R! n) where R:= ResidueClassRing(36)]; // Vincenzo Librandi, Jan 31 2020
CROSSREFS
Cf. A028749.
Sequence in context: A243168 A312885 A312886 * A155563 A020684 A312887
KEYWORD
nonn,fini,full
STATUS
approved