OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10000
MATHEMATICA
Module[{prs=Prime[Range[3000]], pr3, pr5}, pr3=Select[Total/@Partition[ prs, 3, 1], PrimeQ]; pr5=Select[Total/@Partition[prs, 5, 1], PrimeQ]; Intersection[ pr3, pr5]] (* Harvey P. Dale, Oct 24 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 31 2013
STATUS
approved