A192171 Monotonic ordering of nonnegative differences 4^i-10^j, for 40>=i>=0, j>=0.
0, 3, 6, 15, 24, 54, 63, 156, 246, 255, 924, 1014, 1023, 3096, 3996, 4086, 4095, 6384, 15384, 16284, 16374, 16383, 48576, 55536, 64536, 65436, 65526, 65535, 162144, 252144, 261144, 262044, 262134, 262143, 948576, 1038576, 1047576, 1048476, 1048566, 1048575
Offset: 1
Keywords
Crossrefs
Cf. A192172.
Programs
-
Mathematica
c = 4; d = 10; 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 ]]