OFFSET
1,3
MATHEMATICA
With[{b = 90}, Union@ Array[Mod[#^2, b] &, b]] (* Michael De Vlieger, Jul 06 2018 *)
Union[PowerMod[Range[90], 2, 90]] (* Alonso del Arte, Jan 03 2020 *)
PROG
(Sage) [quadratic_residues(90)] # Zerinvary Lajos, May 28 2009
(Scala) (1 to 90).map(n => n * n % 90).toSet.toSeq.sorted // Alonso del Arte, Jan 03 2020
CROSSREFS
KEYWORD
nonn,fini,full,easy
AUTHOR
STATUS
approved