The OEIS Foundation is grateful to everyone who made a donation during our Annual Appeal. Visit the new and spectacular Pictures from the OEIS page!
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