OFFSET
1,10
MATHEMATICA
lc[x_] := Apply[LCM, DeleteCases[IntegerDigits[x], 0]] Table[LCM[lc[w], w]-lc[w], {w, 1, 128}]
PROG
(PARI) lcnzd(n) = lcm(select(x->(x!=0), digits(n)));
a(n) = my(lc=lcnzd(n)); lcm(n, lc) - lc; \\ Michel Marcus, Mar 18 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Labos Elemer, Dec 05 2002
STATUS
approved