A173971 Primes p such that 2*p+q is prime, where q is the prime following p.

2, 3, 5, 13, 17, 19, 29, 59, 79, 103, 109, 113, 149, 197, 223, 227, 229, 239, 241, 269, 283, 337, 349, 409, 419, 439, 491, 569, 577, 643, 659, 691, 701, 709, 739, 743, 769, 773, 787, 823, 839, 911, 919, 983, 1051, 1153, 1213, 1277, 1373, 1409, 1423, 1427

Offset

1,1

Comments

The resulting primes are in A094104. - Michel Marcus, Feb 11 2015

Links

Zak Seidov, Table of n, a(n) for n = 1..10000

Example

2*2+3=7, 2*3+5=11, 2*5+7=17,..

Mathematica

lst={}; Do[p=Prime[n]; If[PrimeQ[2*p+Prime[n+1]], AppendTo[lst, p]], {n, 6!}]; lst
Select[Partition[Prime[Range[300]], 2, 1], PrimeQ[2#[[1]]+#[[2]]]&][[All, 1]] (* Harvey P. Dale, Apr 01 2018 *)

Prog

(PARI) lista(nn) = {forprime(p=2, nn, if (isprime(2*p+nextprime(p+1)), print1(p, ", ")); ); } \\ Michel Marcus, Feb 11 2015

Crossrefs

Cf. A173970

Sequence in context: A045312 A129672 A259188 * A095083 A236183 A093077

Adjacent sequences: A173968 A173969 A173970 * A173972 A173973 A173974

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 03 2010

Extensions

Definition clarified by Zak Seidov, Feb 11 2015

Status

approved