OFFSET
1,3
MATHEMATICA
With[{nn=80}, Floor[Times@@#]&/@Thread[{Range[nn], Accumulate[1/Rest[ FoldList[Times, 1, Prime[Range[nn]]]]]}]] (* Harvey P. Dale, Apr 13 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 04 2001
STATUS
approved