FoldList[Times, 1, Prime @ Range @ 9]