OFFSET
0,3
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
Completely multiplicative with a(p) = A007954(p) for prime p.
EXAMPLE
MATHEMATICA
Table[Times @@ Flatten@ Map[IntegerDigits, Table[#1, {#2}] & @@@ FactorInteger@ n], {n, 0, 78}] (* Michael De Vlieger, Jun 16 2016 *)
PROG
(PARI) \\ here b(n) is A007954.
b(n)={my(v=digits(n)); prod(i=1, #v, v[i])}
a(n)={my(f=factor(n)); prod(i=1, #f~, my(p=f[i, 1], e=f[i, 2]); b(p)^e)} \\ Andrew Howroyd, Jul 23 2018
CROSSREFS
KEYWORD
base,easy,nonn,mult
AUTHOR
Jonathan Vos Post, May 06 2006
EXTENSIONS
a(36) corrected by Giovanni Resta, Jun 16 2016
Keyword:mult added by Andrew Howroyd, Jul 23 2018
STATUS
approved