|
| |
|
|
A086357
|
|
Fixed point if [nonzero-digit-product]-function at initial-value=A002110(n)=nth primorial is iterated.
|
|
0
| |
|
|
2, 6, 3, 2, 6, 9, 1, 6, 8, 2, 8, 8, 8, 8, 6, 8, 6, 7, 8, 2, 8, 8, 8, 6, 2, 8, 1, 6, 8, 2, 2, 2, 8, 6, 8, 8, 8, 6, 4, 6, 2, 8, 2, 6, 6, 2, 2, 2, 6, 6, 8, 6, 2, 8, 8, 8, 5, 8, 6, 8, 2, 8, 8, 1, 2, 2, 8, 6, 8, 2, 2, 8, 2, 8, 8, 2, 2, 8, 8, 9, 6, 8, 4, 6, 8, 8, 8, 2, 8, 6, 8, 1, 6, 2, 2, 8, 1, 6, 6, 8, 6, 9, 2, 6, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n)=A051802[A002110(n)]=fixed-point of A051801[A002110(n)]
|
|
|
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
| Cf. A051801, A051802, A086353-A086361, A029898, A010888, A038194, A000984.
Sequence in context: A056113 A128203 A144531 * A138054 A198418 A086360
Adjacent sequences: A086354 A086355 A086356 * A086358 A086359 A086360
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jul 21 2003
|
| |
|
|
