login
Nonsquares mod 97.
1

%I #15 Sep 08 2022 08:44:50

%S 5,7,10,13,14,15,17,19,20,21,23,26,28,29,30,34,37,38,39,40,41,42,45,

%T 46,51,52,55,56,57,58,59,60,63,67,68,69,71,74,76,77,78,80,82,83,84,87,

%U 90,92

%N Nonsquares mod 97.

%t Complement[Range[0, 96], PowerMod[Range[97], 2, 97]] (* _Alonso del Arte_, Jan 25 2020 *)

%o (Scala) (0 to 96).diff((1 to 97).map(n => n * n % 97)) // _Alonso del Arte_, Jan 25 2020

%o (Magma) [n: n in [0..96] | not IsSquare(R! n) where R:= ResidueClassRing(97)]; // _Vincenzo Librandi_, Jan 29 2020

%Y Cf. A010458.

%K nonn,fini,full,easy

%O 1,1

%A _N. J. A. Sloane_