A086353 Fixed point if nonzero-digit product of n! is iterated.

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

Offset

1,2

Links

Table of n, a(n) for n=1..105.

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: A261875 A084686 A040164 * A019786 A278497 A067067

Adjacent sequences: A086350 A086351 A086352 * A086354 A086355 A086356

Keyword

base,nonn

Author

Labos Elemer, Jul 21 2003

Status

approved