OFFSET
1,1
MATHEMATICA
Accumulate[Times@@@Select[Partition[Prime[Range[500]], 2, 1], Last[#]- First[#] ==2&]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Jun 14 2011
STATUS
approved