A300659 Product of digits of n!.
1, 1, 2, 6, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (1).
Programs
-
Magma
[&*Intseq(Factorial(n)): n in [0..100]];
-
Mathematica
Array[Times @@ IntegerDigits[#!] &, 105] (* Michael De Vlieger, Jun 06 2018 *)
-
PARI
a(n) = my(d=digits(n!)); prod(k=1, #d, d[k]); \\ Michel Marcus, Jun 05 2018
Comments