OFFSET
0,2
MATHEMATICA
Do[p = Product[Prime[m], {m, 1, n}]; While[Mod[p, 10] == 0, p = p/10]; Print[Mod[p, 10]], {n, 0, 100}]
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Robert G. Wilson v, Jul 28 2000
STATUS
approved