A022765 - OEIS

%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