A192197 Monotonic ordering of nonnegative differences 5^i-8^j, for 40>= i>=0, j>=0.
0, 4, 17, 24, 61, 113, 117, 124, 561, 617, 624, 2613, 3061, 3117, 3124, 11529, 15113, 15561, 15617, 15624, 45357, 74029, 77613, 78061, 78117, 78124, 128481, 357857, 386529, 390113, 390561, 390617, 390624, 1690981, 1920357, 1949029, 1952613, 1953061, 1953117
Offset: 1
Keywords
Crossrefs
Cf. A192198.
Programs
-
Mathematica
c = 5; d = 8; 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 ]]