A024576 a(n) = [ e*a(n-1) ], where a(0) = 1.

1, 2, 5, 13, 35, 95, 258, 701, 1905, 5178, 14075, 38259, 103998, 282695, 768444, 2088847, 5678074, 15434605, 41955606, 114047161, 310012325, 842700869, 2290698459, 6226763995, 16926099417, 46009908471, 125067898125, 339969794796, 924133715418

Offset: 0

Author

Clark Kimberling

Keywords

• nonn

Links

• Clark Kimberling, Table of n, a(n) for n = 0..249

Programs

Mathematica

a[0] = 1; a[n_] := Floor[E*a[n-1]]; Table[a[n], {n, 50}] (* Clark Kimberling, Aug 17 2012 *)
NestList[Floor[E*#]&,1,30] (* Harvey P. Dale, Apr 24 2014 *)