A192168 Monotonic ordering of nonnegative differences 8^i-4^j, for 40>= i>=0, j>=0.
0, 4, 7, 48, 60, 63, 256, 448, 496, 508, 511, 3072, 3840, 4032, 4080, 4092, 4095, 16384, 28672, 31744, 32512, 32704, 32752, 32764, 32767, 196608, 245760, 258048, 261120, 261888, 262080, 262128, 262140, 262143, 1048576, 1835008, 2031616, 2080768, 2093056
Offset: 1
Keywords
Crossrefs
Cf. A192167.
Programs
-
Mathematica
c = 8; 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 ]]