A192153 Monotonic ordering of nonnegative differences 3^i-7^j, for 40>= i>=0, j>=0.

0, 2, 8, 20, 26, 32, 74, 80, 194, 236, 242, 386, 680, 722, 728, 1844, 2138, 2180, 2186, 2876, 4160, 6218, 6512, 6554, 6560, 17282, 19340, 19634, 19676, 19682, 42242, 56648, 58706, 59000, 59042, 59048, 59498, 160340, 174746, 176804, 177098, 177140, 177146

Offset: 1

Author

Clark Kimberling, Jun 24 2011

Keywords

• nonn

Crossrefs

Cf. A192154.

Programs

Mathematica

c = 3; d = 7; 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 ]]