%I #15 Sep 08 2022 08:44:50
%S 2,5,6,8,13,14,15,18,19,20,22,24,32,34,35,39,42,43,45,46,47,50,52,53,
%T 54,55,56,57,58,60,62,66,67,71,72,73,74,76,79,80,82
%N Nonsquares mod 83.
%t Complement[Range[0, 82], PowerMod[Range[83], 2, 83]] (* _Alonso del Arte_, Jan 23 2020 *)
%o (Scala) (0 to 82).diff((1 to 83).map(n => n * n % 83)) // _Alonso del Arte_, Jan 23 2020
%o (Magma) [n: n in [0..82] | not IsSquare(R! n) where R := ResidueClassRing(83)]; // _Vincenzo Librandi_, Jan 24 2020
%Y Cf. A010444 (complement), A096013 (row 83).
%K nonn,fini,full,easy
%O 1,1
%A _N. J. A. Sloane_