|
%I #14 Nov 16 2021 13:34:01
%S 0,4,6,7,32,48,56,60,62,63,256,384,448,480,496,504,508,510,511,2048,
%T 3072,3584,3840,3968,4032,4064,4080,4088,4092,4094,4095,16384,24576,
%U 28672,30720,31744,32256,32512,32640,32704,32736,32752,32760,32764,32766,32767
%N Monotonic ordering of nonnegative differences 8^i - 2^j, for 40 >= i >= 0, j >= 0.
%H Nathaniel Johnston, <a href="/A192121/b192121.txt">Table of n, a(n) for n = 1..2461</a> [truncated to 8^40-1 by _Georg Fischer_, Nov 16 2021]
%p A192121:={}: for i from 0 to 5 do for j from 0 to 3*i do A192121 := A192121 union {8^i-2^j}: od: od: op(A192121); # _Nathaniel Johnston_, Jun 23 2011
%t c = 8; d = 2; 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. A192110, A192120.
%K nonn,easy,fini
%O 1,2
%A _Clark Kimberling_, Jun 23 2011
|
