A192150 Monotonic ordering of nonnegative differences 5^i-3^j, for 40>=i>=0, j>=0.
0, 2, 4, 16, 22, 24, 44, 98, 116, 122, 124, 382, 544, 598, 616, 622, 624, 938, 2396, 2882, 3044, 3098, 3116, 3122, 3124, 9064, 13438, 14896, 15382, 15544, 15598, 15616, 15622, 15624, 19076, 58442, 71564, 75938, 77396, 77882, 78044, 78098, 78116, 78122, 78124
Offset: 1
Keywords
Crossrefs
Cf. A192149.
Programs
-
Mathematica
c = 5; d = 3; t[i_, j_] := c^i - d^j; u = Table[t[i, j], {i, 0, 40}, {j, 0, i*Log[d, c]}]; v = Union[Flatten[u ]]