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

0, 4, 6, 22, 40, 46, 48, 100, 214, 262, 316, 334, 340, 342, 1672, 2158, 2320, 2374, 2392, 2398, 2400, 10246, 14620, 16078, 16564, 16726, 16780, 16798, 16804, 16806, 58600, 97966, 111088, 115462, 116920, 117406, 117568, 117622, 117640, 117646, 117648, 292102

Offset: 1

Author

Clark Kimberling, Jun 24 2011

Keywords

• nonn

Crossrefs

Cf. A192153.

Programs

Mathematica

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