OFFSET
1,3
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 25 2011
STATUS
approved