login
Nonsquares mod 93.
1

%I #12 Dec 31 2019 06:47:24

%S 2,3,5,6,8,11,12,13,14,15,17,20,21,22,23,24,26,27,29,30,32,34,35,37,

%T 38,41,42,43,44,46,47,48,50,52,53,54,55,56,57,58,59,60,61,62,65,68,71,

%U 73,74,75,77,79,80,83,84,85,86,88,89,91,92

%N Nonsquares mod 93.

%t Complement[Range[0, 92], PowerMod[Range[93], 2, 93]] (* _Alonso del Arte_, Dec 31 2019 *)

%o (Scala) (0 to 92).diff((1 to 93).map(n => n * n % 93)) // _Alonso del Arte_, Dec 31 2019

%Y Cf. A010454.

%K nonn,fini,full,easy

%O 1,1

%A _N. J. A. Sloane_