A191692 [(1-e^n)/(1-e*n)], where [ ]=floor.

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

Links

Table of n, a(n) for n=1..31.

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

Adjacent sequences: A191689 A191690 A191691 * A191693 A191694 A191695

Keyword

nonn

Author

Clark Kimberling, Jun 11 2011

Status

approved