A191693 [(1+e^n)/(1+e*n)], where [ ]=floor.

1, 1, 2, 4, 10, 23, 54, 131, 318, 781, 1937, 4841, 12175, 30791, 78254, 199721, 511640, 1315064, 3390147, 8762929, 22705350, 58960248, 153411988, 399903630, 1044199306, 2730780816, 7151800337, 18755305334, 49246220422, 129456991053, 340682085365

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}]     (* A191693 *)

Crossrefs

Cf. A191692.

Sequence in context: A189601 A210460 A329669 * A238436 A366229 A137681

Adjacent sequences: A191690 A191691 A191692 * A191694 A191695 A191696

Keyword

nonn

Author

Clark Kimberling, Jun 11 2011

Status

approved