A192166 Monotonic ordering of nonnegative differences 7^i-4^j, for 40>=i>=0, j>=0.
0, 3, 6, 33, 45, 48, 87, 279, 327, 339, 342, 423, 1377, 2145, 2337, 2385, 2397, 2400, 12711, 15783, 16551, 16743, 16791, 16803, 16806, 52113, 101265, 113553, 116625, 117393, 117585, 117633, 117645, 117648, 561399, 758007, 807159, 819447, 822519, 823287
Offset: 1
Keywords
Crossrefs
Cf. A192165.
Programs
-
Mathematica
c = 7; d = 4; 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 ]]