A028779 Nonsquares mod 66.

2, 5, 6, 7, 8, 10, 11, 13, 14, 17, 18, 19, 20, 21, 23, 24, 26, 28, 29, 30, 32, 35, 38, 39, 40, 41, 43, 44, 46, 47, 50, 51, 52, 53, 54, 56, 57, 59, 61, 62, 63, 65

Offset

1,1

Links

Table of n, a(n) for n=1..42.

Mathematica

Complement[Range[0, 65], PowerMod[Range[66], 2, 66]] (* Alonso del Arte, Dec 22 2019 *)

Prog

(PARI) for(k=0, 66, if(!issquare(Mod(k, 66)), print1(k, ", "))) \\ Hugo Pfoertner, Dec 02 2019
(Scala) (0 to 65).diff((1 to 66).map(n => (n * n) % 66)) // Alonso del Arte, Dec 22 2019

Crossrefs

Cf. A010427.

Sequence in context: A374115 A374109 A028746 * A050007 A047579 A028726

Adjacent sequences: A028776 A028777 A028778 * A028780 A028781 A028782

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Extensions

Incorrect term 33 removed by Alonso del Arte, Dec 01 2019

Status

approved