cp's OEIS Frontend

A248482 Consider two consecutive primes {p,q} such that P=2p+q and Q=2q+p are both prime. The sequence gives primes P.

%I A248482 #13 Jun 28 2017 17:59:18
%S A248482 11,17,43,179,313,353,673,733,809,1021,1481,2333,2371,2473,2741,2767,
%T A248482 4721,4931,5179,5647,5849,6277,7283,7573,8273,8863,8941,8999,9041,
%U A248482 9437,10093,10723,11239,12703,13099,13999,14737,17383,17729,18671,19079,20389,21143,22531
%N A248482 Consider two consecutive primes {p,q} such that P=2p+q and Q=2q+p are both prime. The sequence gives primes P.
%e A248482 a(1)=11 because p=3, q=5 and P=11 and Q=13 are both prime.
%e A248482 a(3)=43 because p=13, q=17 and P=43 and Q=47 are both prime.
%t A248482 Select[Table[If[PrimeQ[2*Prime[j-1] + Prime[j]] && PrimeQ[Prime[j-1] + 2*Prime[j]],2*Prime[j-1] + Prime[j],0],{j,2,2000}],#!=0&] (* _Vaclav Kotesovec_, Oct 08 2014 *)
%t A248482 2#[[1]]+#[[2]]&/@Select[Partition[Prime[Range[1000]],2,1],AllTrue[ {2#[[1]]+ #[[2]],2#[[2]]+#[[1]]},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 28 2017 *)
%o A248482 (PARI) listP(nn) = {forprime(p=2, nn, q = nextprime(p+1); if (isprime(P=2*p+q) && isprime(2*q+p), print1(P, ", ")););} \\ _Michel Marcus_, Oct 07 2014
%Y A248482 Cf. A181848(primes p), A248480(primes q), A248483(primes Q).
%K A248482 nonn
%O A248482 1,1
%A A248482 _Zak Seidov_, Oct 07 2014