login
Nonsquares mod 66.
1

%I #20 Jan 26 2024 05:09:25

%S 2,5,6,7,8,10,11,13,14,17,18,19,20,21,23,24,26,28,29,30,32,35,38,39,

%T 40,41,43,44,46,47,50,51,52,53,54,56,57,59,61,62,63,65

%N Nonsquares mod 66.

%t Complement[Range[0, 65], PowerMod[Range[66], 2, 66]] (* _Alonso del Arte_, Dec 22 2019 *)

%o (PARI) for(k=0, 66, if(!issquare(Mod(k, 66)), print1(k, ", "))) \\ _Hugo Pfoertner_, Dec 02 2019

%o (Scala) (0 to 65).diff((1 to 66).map(n => (n * n) % 66)) // _Alonso del Arte_, Dec 22 2019

%Y Cf. A010427.

%K nonn,fini,full,easy

%O 1,1

%A _N. J. A. Sloane_

%E Incorrect term 33 removed by _Alonso del Arte_, Dec 01 2019