|
%I #12 Aug 22 2019 19:56:49
%S 1,2,5,7,14,19,20,40,51,54,109,140,146,147,148,296,382,399,401,402,
%T 403,806,1038,1084,1091,1093,1095,1096,2193,2824,2948,2968,2972,2977,
%U 2979,2980,5961,7676,8014,8068,8080,8094,8098,8100,8103,16206,20866
%N Ordered sequence of distinct terms of the form floor(exp(i) * floor(exp(j))), i,j >= 0.
%H Robert Israel, <a href="/A022765/b022765.txt">Table of n, a(n) for n = 1..10000</a>
%p M:= 10^5: # for all terms <= M
%p g:= proc(x) local i,R,v; R:= NULL;
%p for i from 0 do
%p v:= floor(exp(i)*x);
%p if v > M then return R fi;
%p R:= R,v;
%p od;
%p end proc:
%p sort(convert(map(g, {g(1)}),list)); # _Robert Israel_, Aug 22 2019
%Y Cf. A001113 (e).
%K nonn
%O 1,2
%A _Clark Kimberling_
%E Missing 8103 inserted and offset corrected by _Sean A. Irvine_, May 20 2019
|
