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

Author

N. J. A. Sloane

Keywords

• nonn
• fini
• full
• easy

Comments

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

Crossrefs

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

Row 100 of A096008.

Cf. A028813.

Programs

Magma

[n: n in [0..99] | IsSquare(R! n) where R:= ResidueClassRing(100)]; // Vincenzo Librandi, Dec 28 2019

Mathematica

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

PARI

A010461=Set(vector(100,n,n^2)%100) \\ M. F. Hasler, Mar 03 2014

Sage

[quadratic_residues(100)] # Zerinvary Lajos, May 28 2009

Scala

(1 to 100).map(n => (n * n) % 100).toSet.toSeq.sorted // Alonso del Arte, Dec 25 2019