A028765 Nonsquares mod 52.

2, 3, 5, 6, 7, 8, 10, 11, 14, 15, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 30, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 50, 51

Offset

1,1

Links

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

Mathematica

Complement[Range[0, 51], PowerMod[Range[52], 2, 52]] (* Alonso del Arte, Dec 26 2019 *)

Prog

(Scala) (0 to 51).diff((1 to 52).map(n => (n * n) % 52)) // Alonso del Arte, Dec 26 2019

Crossrefs

Cf. A010413.

Sequence in context: A137620 A368999 A336487 * A181807 A059870 A179813

Adjacent sequences: A028762 A028763 A028764 * A028766 A028767 A028768

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved