login
Nonsquares mod 87.
1

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

%S 2,3,5,8,10,11,12,14,15,17,18,19,20,21,23,26,27,29,31,32,35,37,38,39,

%T 40,41,43,44,46,47,48,50,53,55,56,59,60,61,62,65,66,68,69,70,71,72,73,

%U 74,75,76,77,79,80,83,84,85,86

%N Nonsquares mod 87.

%t Complement[Range[0, 86], PowerMod[Range[87], 2, 87]] (* _Alonso del Arte_, Dec 29 2019 *)

%o (Scala) (0 to 86).diff((1 to 87).map(n => n * n % 87)) // _Alonso del Arte_, Dec 29 2019

%o (Magma) [n: n in [0..86] | not IsSquare(R! n) where R:= ResidueClassRing(87)]; // _Vincenzo Librandi_, Dec 30 2019

%Y Cf. A010448.

%K nonn,fini,full,easy

%O 1,1

%A _N. J. A. Sloane_