A192194 Monotonic ordering of nonnegative differences 6^i-5^j, for 40>= i>=0, j>=0.

0, 1, 5, 11, 31, 35, 91, 191, 211, 215, 671, 1171, 1271, 1291, 1295, 4651, 7151, 7651, 7751, 7771, 7775, 31031, 43531, 46031, 46531, 46631, 46651, 46655, 201811, 264311, 276811, 279311, 279811, 279911, 279931, 279935, 312071, 1288991, 1601491, 1663991

Offset: 1

Author

Clark Kimberling, Jun 25 2011

Keywords

• nonn

Crossrefs

Cf. A192193.

Programs

Mathematica

c = 6; d = 5; 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 ]]
Take[Union[Select[6^#[[1]]-5^#[[2]]&/@Tuples[Range[0,60],2], #>=0&]], 40] (* Harvey P. Dale, May 20 2012 *)