login
A191692
[(1-e^n)/(1-e*n)], where [ ]=floor.
2
1, 1, 2, 5, 11, 26, 60, 143, 345, 841, 2071, 5147, 12884, 32453, 82189, 209121, 534274, 1369940, 3524020, 9091340, 23515042, 60965624, 158399334, 412354169, 1075389431, 2809166692, 7349381323, 19254701768, 50511699310, 132671378996, 348864994867
OFFSET
1,3
MATHEMATICA
f[n_] := Floor[(1-E^n)/(1+E*n)]
Table[f[n], {n, 1, 40}] (* A191692 *)
CROSSREFS
Cf. A191693.
Sequence in context: A006138 A291930 A238437 * A182015 A124217 A095981
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 11 2011
STATUS
approved