A067067 a(n) = product of nonzero digits of n! (A000142).

1, 1, 2, 6, 8, 2, 14, 20, 24, 2304, 2304, 11664, 1512, 2688, 112896, 508032, 18579456, 87091200, 11854080, 368640, 6967296, 22861440, 542126592, 1872809164800, 40633270272, 559872000, 26873856000, 8561413324800, 178362777600

Offset: 0

Author

Amarnath Murthy, Jan 03 2002

Keywords

• base
• nonn

Examples

			a(10) = 2304 as 10! = 3628800 and 3*6*2*8*8 = 2304.
		

Links

• Harry J. Smith, Table of n, a(n) for n = 0..200

Crossrefs

Cf. A000142, A051801.

Programs

Mathematica

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} ]
Table[Times@@DeleteCases[IntegerDigits[n!],0],{n,0,30}] (* Harvey P. Dale, Jan 11 2016 *)

PARI

a(n) = {vecprod(select(x->(x!=0), digits(n!)))} \\ Harry J. Smith, May 03 2010

Formula

a(n) = A051801(n!).

Extensions

More terms from Jason Earls, Harvey P. Dale and Robert G. Wilson v, Jan 04 2002