A192157 Monotonic ordering of nonnegative differences 3^i-9^j, for 40>=i>=0, j>=0.
0, 2, 8, 18, 26, 72, 80, 162, 234, 242, 648, 720, 728, 1458, 2106, 2178, 2186, 5832, 6480, 6552, 6560, 13122, 18954, 19602, 19674, 19682, 52488, 58320, 58968, 59040, 59048, 118098, 170586, 176418, 177066, 177138, 177146, 472392, 524880, 530712, 531360
Offset: 1
Keywords
Crossrefs
Cf. A192158.
Programs
-
Mathematica
c = 3; d = 9; 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 ]]