OFFSET
0,2
MATHEMATICA
Do[p = Product[Prime[m], {m, 1, n}]; Print[IntegerPart[p/10^Floor[N[Log[10, p], 12]]]], {n, 0, 121}]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Robert G. Wilson v, Jul 28 2000
STATUS
approved