A010433 Squares mod 72.

0, 1, 4, 9, 16, 25, 28, 36, 40, 49, 52, 64

Offset

1,3

Links

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

Mathematica

Union[PowerMod[Range[72], 2, 72]] (* Alonso del Arte, Dec 24 2019 *)

Prog

(Sage) [quadratic_residues(72)] # Zerinvary Lajos, May 24 2009
(Scala) (1 to 72).map(n => (n * n) % 72).toSet.toSeq.sorted // Alonso del Arte, Dec 24 2019
(PARI) Set(lift(apply(sqr, Mod([1..16], 72)))) \\ Charles R Greathouse IV, Dec 24 2019

Crossrefs

Cf. A028785.

Sequence in context: A254719 A266918 A086132 * A175592 A331219 A337534

Adjacent sequences: A010430 A010431 A010432 * A010434 A010435 A010436

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved