A192147 - OEIS

%I #7 Oct 21 2019 14:45:36

%S 0,2,5,8,11,17,23,26,65,77,80,179,227,239,242,473,665,713,725,728,

%T 1163,1931,2123,2171,2183,2186,2465,3299,5537,6305,6497,6545,6557,

%U 6560,15587,18659,19427,19619,19667,19679,19682,42665,54953,58025,58793,58985,59033

%N Monotonic ordering of nonnegative differences 3^i-4^j, for 40>= i>=0, j>=0.

%e The differences accrue like this:

%e 1-1

%e 3-1

%e 9-4.....9-1

%e 27-16...27-4....27-1

%e 81-64...81-16...81-4...81-1

%t c = 3; d = 4; t[i_, j_] := c^i - d^j;

%t u = Table[t[i, j], {i, 0, 40}, {j, 0, i*Log[d, c]}];

%t v = Union[Flatten[u ]]

%Y Cf. A192148.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jun 24 2011