A192196 Monotonic ordering of nonnegative differences 7^i-5^j, for 40>= i>=0, j>=0.
0, 2, 6, 24, 44, 48, 218, 318, 338, 342, 1182, 1776, 2276, 2376, 2396, 2400, 13682, 16182, 16682, 16782, 16802, 16806, 39524, 102024, 114524, 117024, 117524, 117624, 117644, 117648, 432918, 745418, 807918, 820418, 822918, 823418, 823518, 823538, 823542
Offset: 1
Keywords
Crossrefs
Cf. A192195.
Programs
-
Mathematica
c = 7; 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 ]]