login
Nonsquares mod 83.
1

%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_