A092247 a(0)=1, a(n+1)=ceiling((1+1/n)^n*a(n)).

1, 2, 5, 12, 30, 75, 190, 484, 1242, 3206, 8316, 21657, 56591, 148303, 389615, 1025810, 2706014, 7150411, 18923033, 50146688, 133054093, 353426693, 939750924, 2501100209, 6662258807, 17760491578, 47381172431, 126488492584

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Formula

a(n) is asymptotic to c*exp(n)/sqrt(n) where c=1.261(6)...

c = 1.2617447588213627326364194241966529846376230854758648215934468766256494736... - Vaclav Kotesovec, Feb 15 2019

Mathematica

nxt[{n_, a_}]:={n+1, Ceiling[(1+1/n)^n*a]}; Transpose[NestList[nxt, {1, 1}, 30]][[2]] (* Harvey P. Dale, Oct 11 2012 *)

Prog

(PARI) a(n)=if(n<1, 1, ceil((1+1/n)^n*a(n)))

Crossrefs

Sequence in context: A140832 A326793 A026580 * A331233 A108360 A051163

Adjacent sequences: A092244 A092245 A092246 * A092248 A092249 A092250

Keyword

nonn

Author

Benoit Cloitre, Feb 18 2004

Status

approved