A010413 Squares mod 52.

0, 1, 4, 9, 12, 13, 16, 17, 25, 29, 36, 40, 48, 49

Offset

1,3

Links

Table of n, a(n) for n=1..14.

Mathematica

Union[PowerMod[Range[52], 2, 52]] (* Alonso del Arte, Dec 26 2019 *)

Prog

(SageMath) [quadratic_residues(52)] # Zerinvary Lajos, May 24 2009
(Scala) (1 to 52).map(n => (n * n) % 52).toSet.toSeq.sorted // Alonso del Arte, Dec 26 2019

Crossrefs

Cf. A028765.

Sequence in context: A069219 A368742 A312848 * A112652 A272933 A367929

Adjacent sequences: A010410 A010411 A010412 * A010414 A010415 A010416

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved