login
Squares mod 100.
9

%I #27 Sep 08 2022 08:44:37

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

%N Squares mod 100.

%C Range of A002015; subset of A122986. - _Reinhard Zumkeller_, Mar 21 2010

%t Union[PowerMod[Range[100], 2, 100]] (* _Alonso del Arte_, Dec 25 2019 *)

%o (Sage) [quadratic_residues(100)] # _Zerinvary Lajos_, May 28 2009

%o (PARI) A010461=Set(vector(100,n,n^2)%100) \\ _M. F. Hasler_, Mar 03 2014

%o (Scala) (1 to 100).map(n => (n * n) % 100).toSet.toSeq.sorted // _Alonso del Arte_, Dec 25 2019

%o (Magma) [n: n in [0..99] | IsSquare(R! n) where R:= ResidueClassRing(100)]; // _Vincenzo Librandi_, Dec 28 2019

%Y Cf. A010382, A010411, A010462, A010421. - _Reinhard Zumkeller_, Mar 21 2010

%Y Row 100 of A096008.

%Y Cf. A028813.

%K nonn,fini,full,easy

%O 1,3

%A _N. J. A. Sloane_