A001671 - OEIS

%I #17 May 28 2018 15:35:59

%S 1,3,8,21,55,149,404,1097,2981,8104,22027,59875,162755,442414,1202605,

%T 3269018,8886111,24154953,65659970,178482301,485165196,1318815735,

%U 3584912847,9744803447,26489122130,72004899338,195729609429,532048240602,1446257064292,3931334297145,10686474581525

%N Powers of e rounded up.

%H T. D. Noe, <a href="/A001671/b001671.txt">Table of n, a(n) for n = 0..500</a>

%t Table[Ceiling[E^n], {n, 0, 50}] (* _T. D. Noe_, Aug 09 2012 *)

%o (PARI) apply( A001671(n)=exp(n)\1+!!n, [0..30]) \\ An error message will say so if default(realprecision) must be increased, for large n. - _M. F. Hasler_, May 27 2018

%Y Cf. A000149 (floor(e^n)), A000227 (round(e^n)).

%K nonn

%O 0,2

%A _N. J. A. Sloane_