A192198 Monotonic ordering of nonnegative differences 8^i-5^j, for 40>= i>=0, j>=0.
0, 3, 7, 39, 59, 63, 387, 487, 507, 511, 971, 3471, 3971, 4071, 4091, 4095, 17143, 29643, 32143, 32643, 32743, 32763, 32767, 144027, 184019, 246519, 259019, 261519, 262019, 262119, 262139, 262143, 1706527, 2019027, 2081527, 2094027, 2096527, 2097027, 2097127
Offset: 1
Keywords
Crossrefs
Cf. A192197.
Programs
-
Mathematica
c = 8; d = 5; 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 ]]