110 people attended OEIS-50 (videos, suggestions); annual fundraising drive to start soon (donate); editors, please edit! (stack is over 300), your editing is more valuable than any donation.
0,1
Table of n, a(n) for n=0..49.
a(n) = If Prime[n+2]+Prime[n] is prime then Prime[n+2]+Prime[n]
a = Flatten[Table[If[PrimeQ[Prime[n + 2] +Prime[n] + 1], Prime[n + 2] + Prime[n] + 1, {}], {n, 1, 200}]]
Sequence in context: A105170 A162175 A178128 * A060213 A234098 A153502
Adjacent sequences: A111252 A111253 A111254 * A111256 A111257 A111258
nonn
Roger L. Bagula, Nov 01 2005
approved