|
%I #21 Jan 09 2020 03:13:50
%S 0,1,4,9,10,16,19,25,31,34,36,40,45,46,49,54,55,61,64,70,76,79,81,85
%N Squares mod 90.
%t With[{b = 90}, Union@ Array[Mod[#^2, b] &, b]] (* _Michael De Vlieger_, Jul 06 2018 *)
%t Union[PowerMod[Range[90], 2, 90]] (* _Alonso del Arte_, Jan 03 2020 *)
%o (Sage) [quadratic_residues(90)] # _Zerinvary Lajos_, May 28 2009
%o (Scala) (1 to 90).map(n => n * n % 90).toSet.toSeq.sorted // _Alonso del Arte_, Jan 03 2020
%Y Cf. A028803.
%Y Row 90 of A096008.
%K nonn,fini,full,easy
%O 1,3
%A _N. J. A. Sloane_
|
