A192125 Monotonic ordering of nonnegative differences 10^i-2^j, for 40>= i>=0, j>=0.
0, 2, 6, 8, 9, 36, 68, 84, 92, 96, 98, 99, 488, 744, 872, 936, 968, 984, 992, 996, 998, 999, 1808, 5904, 7952, 8976, 9488, 9744, 9872, 9936, 9968, 9984, 9992, 9996, 9998, 9999, 34464, 67232, 83616, 91808, 95904, 97952, 98976, 99488, 99744, 99872, 99936
Offset: 1
Keywords
Crossrefs
Cf. A192124.
Programs
-
Mathematica
c = 10; 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 ]]