OFFSET
1,1
COMMENTS
Originally an erroneous version of A034962.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
p = 5: 23 = 5 + 7 + 11;
p = 7: 29 = 7 + 11 + 11;
p = 11: 41 = 11 + 13 + 17;
p = 13: 47 = 13 + 17 + 17;
p = 17: 59 = 17 + 19 + 23;
p = 19: 65 = 19 + 23 + 23 is not prime, so not in the sequence;
p = 23: 81 = 23 + 29 + 29 is not prime, so not in the sequence;
p = 29: 97 = 29 + 31 + 37.
MATHEMATICA
Select[Table[p+NextPrime[p]+NextPrime[p+2], {p, Prime[Range[300]]}], PrimeQ] (* Harvey P. Dale, Dec 04 2017 *)
PROG
(PARI) psumpr3(n) = { c1=0; c2=0; forprime(x=3, n, s = nextprime(x)+nextprime(x+1)+nextprime(x+3); c1++; if(isprime(s), c2++; print1(s" ")); ); print(); print(c2/c1+.0) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, May 08 2003
EXTENSIONS
Edited by Joshua Zucker, Jan 27 2007
Definition clarified by Harvey P. Dale, Dec 04 2017
STATUS
approved