|
| |
|
|
A086353
|
|
Fixed point if nonzero-digit product of n! is iterated.
|
|
7
| |
|
|
1, 2, 6, 8, 2, 4, 2, 8, 8, 8, 6, 1, 2, 8, 8, 8, 8, 6, 8, 8, 8, 8, 8, 2, 2, 8, 4, 8, 6, 2, 2, 6, 1, 8, 8, 8, 2, 2, 6, 8, 8, 8, 8, 8, 8, 6, 8, 6, 8, 8, 8, 6, 6, 1, 8, 8, 5, 8, 6, 6, 8, 6, 8, 2, 8, 8, 8, 6, 8, 2, 8, 8, 2, 6, 6, 8, 9, 6, 8, 8, 6, 2, 2, 8, 8, 8, 8, 4, 6, 8, 9, 6, 2, 2, 8, 2, 8, 8, 4, 4, 8, 8, 6, 2, 8
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| a(n)=A051802[n! ]=fixed-point of A051801[n! ]
|
|
|
EXAMPLE
| n=10, 10!=362880, iteration list={3628800,2304,24,8},a(10)=8.
|
|
|
MATHEMATICA
| prd[x_] := Apply[Times, DeleteCases[IntegerDigits[x], 0]] Table[FixedPoint[prd, w! ], {w, 1, 128}]
|
|
|
CROSSREFS
| Cf. A051801, A051802, A086354-A086361, A029898, A010888.
Sequence in context: A021377 A084686 A040164 * A019786 A067067 A119279
Adjacent sequences: A086350 A086351 A086352 * A086354 A086355 A086356
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jul 21 2003
|
| |
|
|
