OFFSET
2,1
COMMENTS
The sequence A152470 is a subsequence.
LINKS
Pierre CAMI, Table of n, a(n) for n = 2..10001
EXAMPLE
3+5+7=15 is composite and 3+5+11=19 is prime so a(2)=11.
5+7+11=23 is prime so a(3)=11.
MATHEMATICA
spq[n_]:=Module[{m=NextPrime[n], q}, q=NextPrime[m]; While[!PrimeQ[ m+n+q], q=NextPrime[q]]; q]; Table[spq[n], {n, Prime[Range[2, 60]]}] (* Harvey P. Dale, Apr 08 2018 *)
PROG
(PFGW & SCRIPT)
SCRIPT
DIM k
DIM n, 1
OPENFILEOUT myf, a(n).txt
LABEL loop1
SET n, n+1
IF n>10001 THEN END
SET k, n+1
LABEL loop2
SET k, k+1
PRP p(n)+p(n+1)+p(k)
IF ISPRP then GOTO a
GOTO loop2
LABEL a
WRITE myf, p(k)
GOTO loop1
(PARI) a(n) = t=prime(n)+prime(n+1); k=n+2; while(!isprime(t+q=prime(k)), k++); q \\ Colin Barker, Aug 25 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Aug 25 2014
STATUS
approved