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 A078547 #18 Mar 26 2020 06:46:14
%S A078547 0,0,0,0,0,0,0,0,0,0,0,0,26,14,0,32,102,54,152,0,21,0,115,0,25,52,351,
%T A078547 28,493,0,62,64,0,170,70,0,740,418,78,0,123,42,473,0,135,230,1269,0,
%U A078547 1715,0,204,208,742,486,0,784,1938,1102,2596,0,305,124,63,128,325,0
%N A078547 a(n) = lcm(n, A052429(n)) - n.
%C A078547 a(n)=0 if n is divisible by each nonzero digit, i.e., if n in A002796.
%t A078547 lc[x_] := Apply[LCM, DeleteCases[IntegerDigits[x], 0]] Table[LCM[lc[w], w]-w, {w, 1, 128}]
%o A078547 (PARI) lcnzd(n) = lcm(select(x->(x!=0), digits(n)));
%o A078547 a(n) = lcm(n, lcnzd(n)) - n; \\ _Michel Marcus_, Mar 18 2018
%Y A078547 Cf. A052429, A078546, A078548, A002796.
%K A078547 nonn,base
%O A078547 1,13
%A A078547 _Labos Elemer_, Dec 05 2002