A111255 Primes in A111254.

11, 17, 29, 41, 67, 73, 89, 97, 107, 127, 151, 157, 181, 191, 271, 307, 337, 347, 389, 409, 439, 461, 491, 499, 547, 701, 709, 733, 757, 769, 821, 877, 911, 929, 971, 1009, 1033, 1063, 1171, 1187, 1249, 1289, 1297, 1307, 1453, 1571, 1597, 1609, 1667, 1697

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Formula

a(n) = If Prime[n+2]+Prime[n] is prime then Prime[n+2]+Prime[n]

Maple

P:= [seq(ithprime(i), i=1..10000)]:
select(isprime, map(`+`, P[1..-3]+P[3..-1], 1)); # Robert Israel, Jan 03 2021

Mathematica

a = Flatten[Table[If[PrimeQ[Prime[n + 2] +Prime[n] + 1], Prime[n + 2] + Prime[n] + 1, {}], {n, 1, 200}]]

Crossrefs

Cf. A111254.

Sequence in context: A162175 A178128 A330410 * A060213 A234098 A153502

Adjacent sequences: A111252 A111253 A111254 * A111256 A111257 A111258

Keyword

nonn

Author

Roger L. Bagula, Nov 01 2005

Extensions

Offset changed by Robert Israel, Jan 03 2021

Status

approved