OFFSET
1,1
COMMENTS
First pairs of two successive primes in the sequence are {13, 17}, {911, 919}, {2999, 3001} (twin primes!), {13523, 13537}, {52543, 52553}.
First case of three successive primes is {78059, 78079, 78101}.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
13 is a term because 13 + 17 + 13 = 43 and 13 + 11 + 13 = 37 are primes.
MAPLE
Primes:= select(isprime, [2, seq(i, i=3..10^5, 2)]):
Primes[select(t -> isprime(2*Primes[t]+Primes[t-1]) and isprime(2*Primes[t]+Primes[t+1]), [$2..nops(Primes)-1])]; # Robert Israel, Mar 15 2018
MATHEMATICA
pQ[n_]:=PrimeQ[2n+NextPrime[n]]&&PrimeQ[2n+NextPrime[n, -1]]; Select[ Prime[Range[2, 3000]], pQ] (* Harvey P. Dale, Apr 25 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 11 2007
STATUS
approved