A192149 Monotonic ordering of nonnegative differences 3^i-5^j, for 40>= i>=0, j>=0.
0, 2, 4, 8, 22, 26, 56, 76, 80, 104, 118, 218, 238, 242, 604, 704, 724, 728, 1562, 2062, 2162, 2182, 2186, 3436, 4058, 5936, 6436, 6536, 6556, 6560, 16558, 19058, 19558, 19658, 19678, 19682, 43424, 55924, 58424, 58924, 59024, 59044, 59048, 99022, 140816
Offset: 1
Keywords
Crossrefs
Cf. A192150.
Programs
-
Mathematica
c = 3; 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 ]]