OFFSET
1,1
EXAMPLE
n=7, 7th-primorial=510510, iteration list={510510,25,10,1},
a(100)=2.
MATHEMATICA
prd[x_] := Apply[Times, DeleteCases[IntegerDigits[x], 0]] q[x_] := Apply[Times, Table[Prime[w], {w, 1, x}]] Table[FixedPoint[prd, q[w]], {w, 1, 128}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Jul 21 2003
STATUS
approved