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 A067067 #20 Dec 08 2024 23:51:33
%S A067067 1,1,2,6,8,2,14,20,24,2304,2304,11664,1512,2688,112896,508032,
%T A067067 18579456,87091200,11854080,368640,6967296,22861440,542126592,
%U A067067 1872809164800,40633270272,559872000,26873856000,8561413324800,178362777600
%N A067067 a(n) = product of nonzero digits of n! (A000142).
%H A067067 Harry J. Smith, <a href="/A067067/b067067.txt">Table of n, a(n) for n = 0..200</a>
%F A067067 a(n) = A051801(n!).
%e A067067 a(10) = 2304 as 10! = 3628800 and 3*6*2*8*8 = 2304.
%t A067067 f[n_] := Block[{d = Sort[ IntegerDigits[n! ]] }, While[ First[d] == 0, d = Drop[d, 1]]; Return[ Apply[ Times, d]]]; Table[ f[n], {n, 0, 30} ]
%t A067067 Table[Times@@DeleteCases[IntegerDigits[n!],0],{n,0,30}] (* _Harvey P. Dale_, Jan 11 2016 *)
%o A067067 (PARI) a(n) = {vecprod(select(x->(x!=0), digits(n!)))} \\ _Harry J. Smith_, May 03 2010
%Y A067067 Cf. A000142, A051801.
%K A067067 base,nonn
%O A067067 0,3
%A A067067 _Amarnath Murthy_, Jan 03 2002
%E A067067 More terms from _Jason Earls_, _Harvey P. Dale_ and _Robert G. Wilson v_, Jan 04 2002