%I #14 Aug 09 2023 12:28:05
%S 2,5,7,11,19,29,31,37,41,43,53,67,73,83,107,109,113,127,131,137,149,
%T 151,163,167,173,193,197,199,211,239,257,271,317,347,353,379,383,397,
%U 401,431,439,449,457,461,467,487,557,563,569,587,599,601,647,659,701,743,757,773,797,809,821,823,863
%N Primes p such that 2*p+3*q is prime, where q is the next prime after p.
%H Robert Israel, <a href="/A340759/b340759.txt">Table of n, a(n) for n = 1..10000</a>
%e a(3)=7 is a term because 7 and 11 are consecutive primes and 2*7+3*11 = 47 is prime.
%p P:= [seq(ithprime(i),i=1..1000)]:
%p P[select(i -> isprime(2*P[i]+3*P[i+1]), [$1..999])];
%t Select[Partition[Prime[Range[200]],2,1],PrimeQ[2#[[1]]+3#[[2]]]&][[;;,1]] (* _Harvey P. Dale_, Aug 09 2023 *)
%Y Cf. A151800.
%K nonn
%O 1,1
%A _J. M. Bergot_ and _Robert Israel_, Jan 19 2021
|