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 A084790 #8 Jan 30 2020 07:02:27
%S A084790 2,6,12,16,24,48,96,128,192,288,324,384,576,648,729,864,972,1152,1296,
%T A084790 1458,1728,1944,2592,2916,3456,3888,5184,5832,7776,10368,11664,15552,
%U A084790 23328,31104,46656,93312,177147,209952,236196,279936,314928
%N A084790 Increasing gaps between 3-smooth numbers (upper end).
%H A084790 Amiram Eldar, <a href="/A084790/b084790.txt">Table of n, a(n) for n = 1..10000</a>
%F A084790 a(n) = A084788(n) + A084789(n).
%F A084790 a(n) = A003586(A084791(n) + 1).
%t A084790 s = {}; m = 13; Do[n = 3^k; While[n <= 3^m, AppendTo[s, n]; n*=2], {k, 0, m}]; s = Union[s]; d = Differences @ s; v = DeleteDuplicates @ FoldList[Max, d]; Map[s[[1 + First@ Position[d, #]]] &, v] //Flatten (* _Amiram Eldar_, Jan 30 2020 *)
%Y A084790 Cf. A003586, A061987, A084788, A084789, A084791.
%K A084790 nonn
%O A084790 1,1
%A A084790 _Reinhard Zumkeller_, Jun 03 2003