OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..36 (* All terms from using the first 100 million primes. *)
MATHEMATICA
Module[{nn=10^8, prs, p3, p5, p7, p11}, prs=Prime[Range[nn]]; p3=Select[ Total/@ Partition[ prs, 3, 1], PrimeQ]; p5=Select[Total/@Partition[prs, 5, 1], PrimeQ]; p7=Select[ Total/@Partition[prs, 7, 1], PrimeQ]; p11=Select[Total/@Partition[prs, 11, 1], PrimeQ]; Intersection[ p3, p5, p7, p11]] (* Harvey P. Dale, Sep 05 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 04 2018
EXTENSIONS
a(7)-a(23) from Giovanni Resta, Jun 07 2018
STATUS
approved