%I #8 Jan 30 2020 06:40:59

%S 1,4,7,8,10,14,19,21,24,28,29,30,34,35,36,38,39,41,42,43,45,46,50,51,

%T 53,54,58,59,63,67,68,72,78,82,88,99,110,113,115,118,120,122,125,127,

%U 133,135,138,140,146,148,154,160,162,168,175,176,177,183,190,191,192

%N Where record gaps between 3-smooth numbers occur.

%H Amiram Eldar, <a href="/A084791/b084791.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SmoothNumber.html">Smooth Number</a>

%F A084788(n) = A061987(a(n)).

%F A084789(n) = A003586(a(n)).

%F A084790(n) = A003586(a(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[First@ Position[d, #] &, v] //Flatten (* _Amiram Eldar_, Jan 30 2020 *)

%Y Cf. A003586, A084788, A084789, A084790.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Jun 03 2003