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 A084788 #11 Feb 16 2025 08:32:49
%S A084788 1,2,3,4,6,12,15,20,30,32,36,60,64,72,81,96,108,128,144,162,192,216,
%T A084788 288,324,384,432,576,648,864,1152,1296,1728,2592,3456,5184,10368,
%U A084788 11259,13344,15012,17792,20016,22518,26688,30024,40032,45036,53376
%N A084788 Sizes of successive increasing gaps between 3-smooth numbers.
%H A084788 Amiram Eldar, <a href="/A084788/b084788.txt">Table of n, a(n) for n = 1..10000</a>
%H A084788 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SmoothNumber.html">Smooth Number</a>
%F A084788 a(n) = A084790(n) - A084789(n).
%F A084788 a(n) = A061987(A084791(n)).
%t A084788 s = {}; m = 13; Do[n = 3^k; While[n <= 3^m, AppendTo[s, n]; n*=2], {k, 0, m}]; DeleteDuplicates @ FoldList[Max, Differences @ Union[s]] (* _Amiram Eldar_, Jan 30 2020 *)
%t A084788 DeleteDuplicates[Differences[Select[Range[10^6],Max[FactorInteger[#][[All,1]]]<5&]],GreaterEqual] (* _Harvey P. Dale_, Nov 22 2022 *)
%Y A084788 Cf. A003586, A061987, A084789, A084790, A084791.
%K A084788 nonn
%O A084788 1,2
%A A084788 _Reinhard Zumkeller_, Jun 03 2003