A192152 Monotonic ordering of nonnegative differences 6^i-3^j, for 40>= i>=0, j>=0.
0, 3, 5, 9, 27, 33, 35, 135, 189, 207, 213, 215, 567, 1053, 1215, 1269, 1287, 1293, 1295, 5589, 7047, 7533, 7695, 7749, 7767, 7773, 7775, 26973, 40095, 44469, 45927, 46413, 46575, 46629, 46647, 46653, 46655, 85293, 102789, 220887, 260253, 273375, 277749
Offset: 1
Keywords
Crossrefs
Cf. A192151.
Programs
-
Mathematica
c = 6; 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 ]]