OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3)=7 is a term because 7 and 11 are consecutive primes and 2*7+3*11 = 47 is prime.
MAPLE
P:= [seq(ithprime(i), i=1..1000)]:
P[select(i -> isprime(2*P[i]+3*P[i+1]), [$1..999])];
MATHEMATICA
Select[Partition[Prime[Range[200]], 2, 1], PrimeQ[2#[[1]]+3#[[2]]]&][[;; , 1]] (* Harvey P. Dale, Aug 09 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jan 19 2021
STATUS
approved