%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