login
A191693
[(1+e^n)/(1+e*n)], where [ ]=floor.
2
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 11 2011
STATUS
approved