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 A086357 #6 Oct 15 2013 22:32:15
%S A086357 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,
%T A086357 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,
%U A086357 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
%N A086357 Fixed point if [nonzero-digit-product]-function at initial-value=A002110(n)=n-th primorial is iterated.
%F A086357 a(n)=A051802[A002110(n)]=fixed-point of A051801[A002110(n)]
%e A086357 n=7, 7th-primorial=510510, iteration list={510510,25,10,1},
%e A086357 a(100)=2.
%t A086357 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}]
%Y A086357 Cf. A051801, A051802, A086353-A086361, A029898, A010888, A038194, A000984.
%K A086357 base,nonn
%O A086357 1,1
%A A086357 _Labos Elemer_, Jul 21 2003