|
| |
|
|
A067067
|
|
Product of nonzero digits of n! (A000142).
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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} ]
|
|
|
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!)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), May 03 2010]
|
|
|
CROSSREFS
| Cf. A000142.
Sequence in context: A040164 A086353 A019786 * A119279 A048741 A115317
Adjacent sequences: A067064 A067065 A067066 * A067068 A067069 A067070
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 03 2002
|
|
|
EXTENSIONS
| More terms from Jason Earls (zevi_35711(AT)yahoo.com), Harvey P. Dale (hpd1(AT)nyu.edu) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 04 2002
|
| |
|
|
