A028809 Nonsquares mod 96.

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, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 74, 75, 76, 77, 78, 79, 80, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95

Offset

1,1

Links

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

Mathematica

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

Prog

(PARI) select(n->!issquare(Mod(n, 96)), [2..95]) \\ Charles R Greathouse IV, Aug 28 2016
(Scala) (0 to 95).diff((1 to 96).map(n => (n * n) % 96)) // Alonso del Arte, Dec 24 2019

Crossrefs

Cf. A010457.

Sequence in context: A164514 A000037 A028761 * A337533 A028785 A166546

Adjacent sequences: A028806 A028807 A028808 * A028810 A028811 A028812

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Status

approved