OFFSET
1,1
COMMENTS
Note that Q-P=q-p and {P,Q} are not necessarily consecutive primes.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..3000
EXAMPLE
a(1)=3 because p=3, q=5 and P=11 and Q=13 are both prime
a(3)=13 because p=13, q=17 and P=43 and Q=47 are both prime.
MATHEMATICA
a=2; Reap[Do[b=Prime[n]; If[PrimeQ[2*a+b]&&PrimeQ[2*b+a], Sow[a]]; a=b, {n, 2, 200}]][[2, 1]]
PROG
(PARI) isok(p) = isprime(p) && (q=nextprime(p+1)) && isprime(p+2*q) && isprime(q+2*p); \\ Michel Marcus, Mar 05 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 18 2012
STATUS
approved