login
Squares mod 60.
7

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

%S 0,1,4,9,16,21,24,25,36,40,45,49

%N Squares mod 60.

%C Range of A159852. - _Reinhard Zumkeller_, Apr 24 2009

%t Union[PowerMod[Range[60], 2, 60]] (* _Alonso del Arte_, Jan 03 2020 *)

%o (Sage) [quadratic_residues(60)] # _Zerinvary Lajos_, May 24 2009

%o (Scala) (1 to 60).map(n => n * n % 60).toSet.toSeq.sorted // _Alonso del Arte_, Jan 03 2020

%o (Magma) [n: n in [0..59] | IsSquare(R! n) where R:= ResidueClassRing(60)]; // _Vincenzo Librandi_, Jan 05 2020

%Y Cf. A010378, A010382, A010462. - _Reinhard Zumkeller_, Apr 24 2009

%Y Row 60 of A096008.

%Y Cf. A028773.

%K nonn,fini,full,easy

%O 1,3

%A _N. J. A. Sloane_