A192158 Monotonic ordering of nonnegative differences 9^i-3^j, for 40>= i>=0, j>=0.
0, 6, 8, 54, 72, 78, 80, 486, 648, 702, 720, 726, 728, 4374, 5832, 6318, 6480, 6534, 6552, 6558, 6560, 39366, 52488, 56862, 58320, 58806, 58968, 59022, 59040, 59046, 59048, 354294, 472392, 511758, 524880, 529254, 530712, 531198, 531360, 531414, 531432
Offset: 1
Keywords
Crossrefs
Cf. A192157.
Programs
-
Mathematica
c = 9; 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 ]]