A024581 a(n) = integer nearest e*a(n-1), where a(0) = 1.

1, 3, 8, 22, 60, 163, 443, 1204, 3273, 8897, 24185, 65742, 178705, 485771, 1320462, 3589388, 9756968, 26522189, 72094784, 195973941, 532712403, 1448062445, 3936241831, 10699814642, 29085111709, 79061530637, 214911522061, 584190085145

Offset: 0

Author

Clark Kimberling

Keywords

• nonn

Links

• Clark Kimberling, Table of n, a(n) for n = 0..250
• Steve Butler, R. L. Graham & Nan Zang, Jumping Sequences, Journal of Integer Sequences, Vol. 11, 2008, 08.4.5.

Crossrefs

Equals row sums of triangle A153583. [Gary W. Adamson, Dec 28 2008]

Programs

Mathematica

a[0] = 1; a[n_] := Round[E*a[n - 1]];
Table[a[n], {n, 0, 30}]
(* Clark Kimberling, Aug 18 2012 *)
NestList[Floor[E*#+1/2]&,1,30] (* Harvey P. Dale, Jan 10 2013 *)

PARI

lista(nn) = {nn++; my(va = vector(nn)); va[1] = 1; for (n=2, nn, va[n] = round(exp(1)*va[n-1]);); va;} \\ Michel Marcus, Jan 27 2019