OFFSET
1,3
MATHEMATICA
Union[PowerMod[Range[72], 2, 72]] (* Alonso del Arte, Dec 24 2019 *)
PROG
(Sage) [quadratic_residues(72)] # Zerinvary Lajos, May 24 2009
(Scala) (1 to 72).map(n => (n * n) % 72).toSet.toSeq.sorted // Alonso del Arte, Dec 24 2019
(PARI) Set(lift(apply(sqr, Mod([1..16], 72)))) \\ Charles R Greathouse IV, Dec 24 2019
CROSSREFS
KEYWORD
nonn,fini,full,easy
AUTHOR
STATUS
approved