OFFSET
1,1
LINKS
Hans Havermann, Table of n, a(n) for n = 1..10000
EXAMPLE
19, 23, 29, 31 are four consecutive primes. The four ways of adding three of them yields 71, 73, 79, 83, all of which are prime. So 19 is a term of the sequence.
MATHEMATICA
s={2, 3, 5, 7}; p=s[[-1]]; While[p<10^6, If[PrimeQ[s[[1]]+s[[2]]+s[[3]]]&&PrimeQ[s[[1]]+s[[2]]+s[[4]]]&&PrimeQ[s[[1]]+s[[3]]+s[[4]]]&&PrimeQ[s[[2]]+s[[3]]+s[[4]]], Print[s[[1]]]]; p=NextPrime[p]; s=Join[Rest[s], {p}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Hans Havermann, Jan 26 2018
STATUS
approved