%I #8 Jan 30 2020 07:02:27
%S 2,6,12,16,24,48,96,128,192,288,324,384,576,648,729,864,972,1152,1296,
%T 1458,1728,1944,2592,2916,3456,3888,5184,5832,7776,10368,11664,15552,
%U 23328,31104,46656,93312,177147,209952,236196,279936,314928
%N Increasing gaps between 3-smooth numbers (upper end).
%H Amiram Eldar, <a href="/A084790/b084790.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A084788(n) + A084789(n).
%F a(n) = A003586(A084791(n) + 1).
%t 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 Cf. A003586, A061987, A084788, A084789, A084791.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 03 2003
|