|
%I #5 Mar 30 2012 18:57:32
%S 1,1,2,5,11,26,60,143,345,841,2071,5147,12884,32453,82189,209121,
%T 534274,1369940,3524020,9091340,23515042,60965624,158399334,412354169,
%U 1075389431,2809166692,7349381323,19254701768,50511699310,132671378996,348864994867
%N [(1-e^n)/(1-e*n)], where [ ]=floor.
%t f[n_] := Floor[(1-E^n)/(1+E*n)]
%t Table[f[n], {n, 1, 40}] (* A191692 *)
%Y Cf. A191693.
%K nonn
%O 1,3
%A _Clark Kimberling_, Jun 11 2011
|
