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

Author

Vladimir Joseph Stephan Orlovsky, Mar 03 2010

Keywords

• nonn

Comments

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

Examples

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

Links

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

Crossrefs

Cf. A173970

Programs

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 *)

PARI

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

Extensions

Definition clarified by Zak Seidov, Feb 11 2015