|
MATHEMATICA
|
ppi={3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6, 4, 3, 3, 8, 3, 2, 7, 9, 5, 0, 2, 8}; Table[Product[ppi[[i]], {i, n}], {n, 1, 33}]
Rest[FoldList[Times, 1, RealDigits[Pi, 10, 30][[1]]]] (* Harvey P. Dale, Jan 23 2015 *)
|