login
A117714
a(n) = (A034962(n) - A152470(n))/2.
0
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
OFFSET
1,1
COMMENTS
The sequence is always increasing.
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 * A245685 A315957 A114554
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Apr 13 2006
EXTENSIONS
Description simplified by the Assoc. Eds. of the OEIS, Jun 27 2010
STATUS
approved