|
Search: id:A117714
|
|
|
| A117714 |
|
Gap between final prime and generated prime:A072225 Goldbach ordered: Prime[n]+Prime[n+1]+Prime[n+2]=Prime[n] output function is: f[n]=(Prime[m]-Prime[n+1])/2. |
|
+0
1
|
|
| 6, 9, 12, 18, 21, 26, 30, 34, 42, 56, 64, 69, 72, 81, 86, 102, 111, 144, 150, 160, 165, 198, 217, 231, 274, 282, 288, 300, 312, 342, 348, 351, 381, 393, 405, 414, 432, 453, 459, 465, 473, 495, 501, 515
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Unlike many prime gap based functions, this one is always increasing.
|
|
FORMULA
|
a(n) = If[ n element of A072225 then Prime[m]-Prime[n+1])/2]
|
|
MATHEMATICA
|
a = Flatten[Table[If[PrimeQ[Prime[n] + Prime[n + 1] + Prime[n + 2]] == True, If [Prime[n] + Prime[n + 1] + Prime[n + 2] - Prime[m] == 0, {( Prime[m] - Prime[n + 2])/2}, {}], {}], {n, 1, 100}, {m, 1, 500}]]
|
|
CROSSREFS
|
Sequence in context: A023483 A023042 A128245 this_sequence A114554 A023386 A036999
Adjacent sequences: A117711 A117712 A117713 this_sequence A117715 A117716 A117717
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 13 2006
|
|
|
Search completed in 0.002 seconds
|
