A192123 Monotonic ordering of nonnegative differences 9^i-2^j, for 40>= i>=0, j>=0.
0, 1, 5, 7, 8, 17, 49, 65, 73, 77, 79, 80, 217, 473, 601, 665, 697, 713, 721, 725, 727, 728, 2465, 4513, 5537, 6049, 6305, 6433, 6497, 6529, 6545, 6553, 6557, 6559, 6560, 7153, 26281, 42665, 50857, 54953, 57001, 58025, 58537, 58793, 58921, 58985, 59017
Offset: 1
Keywords
Crossrefs
Cf. A192122.
Programs
-
Mathematica
c = 9; d = 2; 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 ]]