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 A078548 #12 Mar 18 2018 04:04:15
%S A078548 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,
%T A078548 72,364,48,504,27,90,90,30,192,90,30,756,432,108,36,160,80,504,40,160,
%U A078548 264,1288,40,1728,45,250,250,780,520,50,810,1960,1120,2610,54,360,180
%N A078548 a(n) = lcm(n, A052429(n)) - A052429(n).
%t A078548 lc[x_] := Apply[LCM, DeleteCases[IntegerDigits[x], 0]] Table[LCM[lc[w], w]-lc[w], {w, 1, 128}]
%o A078548 (PARI) lcnzd(n) = lcm(select(x->(x!=0), digits(n)));
%o A078548 a(n) = my(lc=lcnzd(n)); lcm(n, lc) - lc; \\ _Michel Marcus_, Mar 18 2018
%Y A078548 Cf. A052429, A078546, A078547, A002796.
%K A078548 nonn,base
%O A078548 1,10
%A A078548 _Labos Elemer_, Dec 05 2002