This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A078546 #11 Mar 18 2018 04:03:59
%S A078546 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 A078546 78,378,56,522,30,93,96,33,204,105,36,777,456,117,40,164,84,516,44,
%U A078546 180,276,1316,48,1764,50,255,260,795,540,55,840,1995,1160,2655,60,366,186
%N A078546 LCM of n and its nonzero decimal digits.
%F A078546 a(n) = lcm(n, A052429(n)).
%e A078546 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 A078546 lc[x_] := Apply[LCM, DeleteCases[IntegerDigits[x], 0]] Table[LCM[lc[w], w], {w, 1, 128}] NOT
%o A078546 (PARI) lcnzd(n) = lcm(select(x->(x!=0), digits(n)));
%o A078546 a(n) = lcm(n, lcnzd(n)); \\ _Michel Marcus_, Mar 18 2018
%Y A078546 Cf. A052429, A078547, A078548, A002796.
%K A078546 nonn,base
%O A078546 1,2
%A A078546 _Labos Elemer_, Dec 05 2002