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,2

Links

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

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 *)

Crossrefs

Sequence in context: A367656 A240609 A054657 * A057960 A339479 A227045

Adjacent sequences: A024573 A024574 A024575 * A024577 A024578 A024579

Keyword

nonn

Author

Clark Kimberling

Status

approved