OFFSET
1,1
MATHEMATICA
Complement[Range[0, 39], PowerMod[Range[40], 2, 40]] (* Alonso del Arte, Feb 20 2020 *)
PROG
(Scala) (0 to 39).diff((1 to 40).map(n => n * n % 40)) // Alonso del Arte, Feb 20 2020
(Magma) [n: n in [0..39] | not IsSquare(R! n) where R:= ResidueClassRing(40)]; // Vincenzo Librandi, Feb 21 2020
CROSSREFS
KEYWORD
nonn,fini,full,easy
AUTHOR
STATUS
approved