|
|
A024576
|
|
a(n) = [ e*a(n-1) ], where a(0) = 1.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
_Clark Kimberling_
|
|
STATUS
|
approved
|
|
|
|