|
%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
|
