A067067 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,3

Links

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

Example

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

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 *)

Prog

(PARI) ProdNzD(x)= { local(d, p=1); while (x>9, d=x%10; if (d, p*=d); x\=10); return(p*x) } { for (n=0, 200, write("b067067.txt", n, " ", ProdNzD(n!)) ) } \\ Harry J. Smith, May 03 2010

Crossrefs

Cf. A000142.

Sequence in context: A086353 A019786 A278497 * A119279 A344171 A327617

Adjacent sequences: A067064 A067065 A067066 * A067068 A067069 A067070

Keyword

base,nonn

Author

Amarnath Murthy, Jan 03 2002

Extensions

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

Status

approved