A192202 Monotonic ordering of nonnegative differences 10^i-5^j, for 40>= i>=0, j>=0.
0, 5, 9, 75, 95, 99, 375, 875, 975, 995, 999, 6875, 9375, 9875, 9975, 9995, 9999, 21875, 84375, 96875, 99375, 99875, 99975, 99995, 99999, 234375, 609375, 921875, 984375, 996875, 999375, 999875, 999975, 999995, 999999, 8046875, 9609375, 9921875, 9984375
Offset: 1
Keywords
Crossrefs
Cf. A192201.
Programs
-
Mathematica
c = 10; 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 ]]