A192155 Monotonic ordering of nonnegative differences 3^i-8^j, for 40>= i>=0, j>=0.
0, 1, 2, 8, 17, 19, 26, 73, 80, 179, 217, 235, 242, 665, 721, 728, 1675, 2123, 2179, 2186, 2465, 6049, 6497, 6553, 6560, 15587, 19171, 19619, 19675, 19682, 26281, 54953, 58537, 58985, 59041, 59048, 144379, 173051, 176635, 177083, 177139, 177146, 269297
Offset: 1
Keywords
Crossrefs
Cf. A192156.
Programs
-
Mathematica
c = 3; 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 ]]