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