This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A086353 #5 Oct 15 2013 22:32:15
%S A086353 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,
%T A086353 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,
%U A086353 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
%N A086353 Fixed point if nonzero-digit product of n! is iterated.
%F A086353 a(n)=A051802[n! ]=fixed-point of A051801[n! ]
%e A086353 n=10, 10!=362880, iteration list={3628800,2304,24,8},a(10)=8.
%t A086353 prd[x_] := Apply[Times, DeleteCases[IntegerDigits[x], 0]] Table[FixedPoint[prd, w! ], {w, 1, 128}]
%Y A086353 Cf. A051801, A051802, A086354-A086361, A029898, A010888.
%K A086353 base,nonn
%O A086353 1,2
%A A086353 _Labos Elemer_, Jul 21 2003