|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 10, 10, 36, 24, 10, 42, 112, 64, 162, 18, 40, 20, 132, 20, 40, 72, 364, 48, 504, 27, 90, 90, 30, 192, 90, 30, 756, 432, 108, 36, 160, 80, 504, 40, 160, 264, 1288, 40, 1728, 45, 250, 250, 780, 520, 50, 810, 1960, 1120, 2610, 54, 360, 180
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,10
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|