A028761 Nonsquares mod 48.

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

Offset

1,1

Links

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

Mathematica

Complement[Range[0, 47], PowerMod[Range[48], 2, 48]] (* Alonso del Arte, Dec 24 2019 *)

Prog

(Scala) (0 to 47).diff((1 to 48).map(n => (n * n) % 48)) // Alonso del Arte, Dec 24 2019

Crossrefs

Cf. A010409.

Sequence in context: A244218 A164514 A000037 * A028809 A337533 A028785

Adjacent sequences: A028758 A028759 A028760 * A028762 A028763 A028764

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved