|
Search: id:A139324
|
|
|
| A139324 |
|
Difference between primes of the two third order Integer differential types: 1) Prime[ -2 + n] - 3 Prime[ -1 + n] + 3 Prime[n] - 1 Prime[1 + n] == 0 2) -Prime[ -1 + n] + 3*Prime[n] - 3*Prime[1 + n] + Prime[n + 2] == 0. |
|
+0
1
|
|
| 4, 4, 4, 4, 6, 4, 6, 4, 4, 6, 6, 6, 8, 6, 4, 4, 6, 8, 8, 6, 6, 4, 4, 4, 4, 6, 4, 6, 4, 6, 4, 8, 6, 4, 4, 6, 4, 10, 4, 6, 4, 6, 18, 12, 4, 4, 6, 6, 4, 6, 6, 8, 10, 12, 8, 6, 4, 6
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
This sequence is an interesting higher level "gap" sequence
at the third order Integer differential level.
In the interval there are the same number of each type,
but there are different chaotic gaps.
|
|
FORMULA
|
Let a1(n)=Prime[n] such that: 1) Prime[ -2 + n] - 3 Prime[ -1 + n] + 3 Prime[n] - 1 Prime[1 + n] == 0 Let a2(n)=Prime[n] such that: 2) -Prime[ -1 + n] + 3*Prime[n] - 3*Prime[1 + n] + Prime[n + 2] == 0 then: a(n) =a1(n)-a2(n).
|
|
MATHEMATICA
|
Flatten[Table[If[ Prime[ -2 +n] - 3 Prime[ -1 + n] + 3 Prime[n] - 1 Prime[1 + n] == 0, Prime[n], {}], {n, 3, 500}]] - Flatten[ Table[If[ -Prime[ -1 + n] + 3*Prime[n] - 3*Prime[1 + n] + Prime[n + 2] == 0, Prime[n], {}], {n, 2, 500}]]
|
|
CROSSREFS
|
Sequence in context: A134994 A138195 A140744 this_sequence A111655 A113646 A106325
Adjacent sequences: A139321 A139322 A139323 this_sequence A139325 A139326 A139327
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 07 2008
|
|
|
Search completed in 0.002 seconds
|
