A010461 Squares mod 100.

0, 1, 4, 9, 16, 21, 24, 25, 29, 36, 41, 44, 49, 56, 61, 64, 69, 76, 81, 84, 89, 96

Offset

1,3

Comments

Range of A002015; subset of A122986. - Reinhard Zumkeller, Mar 21 2010

Links

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

Mathematica

Union[PowerMod[Range[100], 2, 100]] (* Alonso del Arte, Dec 25 2019 *)

Prog

(Sage) [quadratic_residues(100)] # Zerinvary Lajos, May 28 2009
(PARI) A010461=Set(vector(100, n, n^2)%100) \\ M. F. Hasler, Mar 03 2014
(Scala) (1 to 100).map(n => (n * n) % 100).toSet.toSeq.sorted // Alonso del Arte, Dec 25 2019
(Magma) [n: n in [0..99] | IsSquare(R! n) where R:= ResidueClassRing(100)]; // Vincenzo Librandi, Dec 28 2019

Crossrefs

Cf. A010382, A010411, A010462, A010421. - Reinhard Zumkeller, Mar 21 2010

Row 100 of A096008.

Cf. A028813.

Sequence in context: A313338 A313339 A313340 * A010421 A286069 A010445

Adjacent sequences: A010458 A010459 A010460 * A010462 A010463 A010464

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved