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

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.

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

Prog

(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

Crossrefs

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

Sequence in context: A318901 A278612 A331028 * A028859 A155020 A318902

Adjacent sequences: A024578 A024579 A024580 * A024582 A024583 A024584

Keyword

nonn

Author

Clark Kimberling

Status

approved