A117714 a(n) = (A034962(n) - A152470(n))/2.

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

Author

Roger L. Bagula, Apr 13 2006

Keywords

• nonn
• easy

Comments

The sequence is always increasing.

Crossrefs

Cf. A072225, A073681.

Programs

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}]]

Extensions

Description simplified by the Assoc. Eds. of the OEIS, Jun 27 2010