OFFSET
0,1
MATHEMATICA
Rest[FoldList[Times, 1, Drop[Drop[Prime[Range[40]], {2, -1, 4}], {2, -1, 3}]]] (* Harvey P. Dale, Nov 26 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 21 2001
STATUS
approved