OFFSET
0,2
LINKS
EXAMPLE
For n=10, the digits of n are 1 and 0, their product is 0, and the concatenation gives 1 0 0.
MATHEMATICA
Table[FromDigits[Join[IntegerDigits[n], IntegerDigits[Product[Part[IntegerDigits[n], k], {k, Length[IntegerDigits[n]]}]]]], {n, 0, 51}] (* Stefano Spezia, Aug 13 2023 *)
PROG
(PARI) mydigits(n) = if (n, digits(n), [0]);
a(n) = my(d = mydigits(n)); fromdigits(concat(d, mydigits(prod(k=1, #d, d[k]))));
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Michel Marcus, Apr 13 2018
STATUS
approved