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