[go: up one dir, main page]

login
A131387
Product of the nonzero digital products of n for all the bases 1 to n (a 'total digital-product factorial').
5
1, 1, 1, 1, 2, 4, 12, 48, 48, 192, 2880, 2880, 25920, 552960, 3265920, 1935360, 116121600, 278691840, 9405849600, 26754416640, 94058496000, 3210529996800, 869100503040000, 423789959577600, 927040536576000, 135612787064832000
OFFSET
1,5
FORMULA
a(n)=product{1<=p<=n, dp_p(n)} where dp_p(n) = product of the nonzero digits of n in base p.
PROG
(PARI) a(n) = {p = 1; for (b=2, n, digs = digits(n, b); p *= prod(k=1, #digs, if (digs[k], digs[k], 1)); ); return (p); } \\ Michel Marcus, Jul 15 2013
CROSSREFS
Sequence in context: A364622 A359328 A332235 * A207647 A152453 A368814
KEYWORD
nonn,base
AUTHOR
Hieronymus Fischer, Jul 08 2007
STATUS
approved