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
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jan 03 2002
EXTENSIONS
STATUS
approved