A192115 Monotonic ordering of nonnegative differences 5^i-2^j, for 40>=i>=0, j>=0.
0, 1, 3, 4, 9, 17, 21, 23, 24, 61, 93, 109, 113, 117, 121, 123, 124, 369, 497, 561, 593, 609, 617, 621, 623, 624, 1077, 2101, 2613, 2869, 2997, 3061, 3093, 3109, 3117, 3121, 3123, 3124, 7433, 11529, 12589, 13577, 14601, 15113, 15369, 15497, 15561, 15593
Offset: 1
Keywords
Crossrefs
Cf. A192114.
Programs
-
Mathematica
c = 5; d = 2; 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 ]]