%I
%S 1,2,3,4,5,6,7,8,9,10,11,12,39,28,15,48,119,72,171,20,42,22,138,24,50,
%T 78,378,56,522,30,93,96,33,204,105,36,777,456,117,40,164,84,516,44,
%U 180,276,1316,48,1764,50,255,260,795,540,55,840,1995,1160,2655,60,366,186
%N LCM of n and its nonzero decimal digits.
%F a(n) = lcm(n, A052429(n)).
%e n=13: lcm(13,1,3) = 39 = a(13); a(x)=x if x is divisible by each nonzero digits, i.e., if x in A002796.
%t lc[x_] := Apply[LCM, DeleteCases[IntegerDigits[x], 0]] Table[LCM[lc[w], w], {w, 1, 128}] NOT
%o (PARI) lcnzd(n) = lcm(select(x>(x!=0), digits(n)));
%o a(n) = lcm(n, lcnzd(n)); \\ _Michel Marcus_, Mar 18 2018
%Y Cf. A052429, A078547, A078548, A002796.
%K nonn,base
%O 1,2
%A _Labos Elemer_, Dec 05 2002
