|
| |
| |
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
The sequence is always increasing.
|
|
|
LINKS
|
Table of n, a(n) for n=1..44.
|
|
|
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
|
Cf. A072225, A073681.
Sequence in context: A023483 A023042 A128245 * A245685 A315957 A114554
Adjacent sequences: A117711 A117712 A117713 * A117715 A117716 A117717
|
|
|
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
|
| |
|
|
