|
| |
|
|
A144411
|
|
Odd non-prime gaps adjusted to be {2,1,0,-1}: a(n)=A067970(n)/2-2.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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: A005590 A142598 A037800 * A138253 A085737 A191904
Adjacent sequences: A144408 A144409 A144410 * A144412 A144413 A144414
|
|
|
KEYWORD
| uned,sign
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 30 2008
|
| |
|
|
