A192116 Monotonic ordering of nonnegative differences 2^i-6^j, for 40>=i>=0, j>=0.
0, 1, 2, 3, 7, 10, 15, 26, 28, 31, 40, 58, 63, 92, 122, 127, 220, 250, 255, 296, 416, 476, 506, 511, 752, 808, 988, 1018, 1023, 1832, 2012, 2042, 2047, 2800, 3880, 4060, 4090, 4095, 6896, 7976, 8156, 8186, 8191, 8608, 15088, 16168, 16348, 16378, 16383, 18880
Offset: 1
Keywords
Crossrefs
Cf. A192117.
Programs
-
Mathematica
c = 2; d = 6; 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 ]]