A144411 Odd nonprime gaps adjusted to be {2,1,0,-1}: a(n)=A067970(n)/2-2.

2, 1, 1, 0, -1, 1, -1, 0, 1, 0, -1, 0, -1, 1, -1, 0, 1, -1, 0, 0, -1, 0, -1, -1, 0, 1, 1, 0, -1, -1, -1, -1, -1, 0, 0, -1, 1, -1, -1, -1, 1, -1, 0, -1, 0, 0, -1, 0, -1, 1, -1, -1, -1, 1, 1, -1, -1, -1, -1, 0, -1, -1, -1, -1, 0, 1, 0, -1, 1, -1, -1, -1, 0, -1, 0, -1, 0, -1, 1, -1, 0, 1, -1, -1, -1, 0, -1, -1, -1, -1, -1, 0, 1, 0, -1, -1, -1, -1, -1, 0

Offset

1,1

Links

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

Formula

a(n)=A067970(n)/2-2.

Mathematica

b = Flatten[Table[If[PrimeQ[2*n + 1], {}, 2*n + 1], {n, 0, 200}]]; c = Table[(b[[n + 1]] - b[[n]])/2 - 2, {n, 1, Length[b] - 1}]

Crossrefs

Sequence in context: A142598 A274372 A037800 * A138253 A341969 A261447

Adjacent sequences: A144408 A144409 A144410 * A144412 A144413 A144414

Keyword

uned,sign

Author

Roger L. Bagula and Gary W. Adamson, Sep 30 2008

Status

approved