A001671 Powers of e rounded up.
1, 3, 8, 21, 55, 149, 404, 1097, 2981, 8104, 22027, 59875, 162755, 442414, 1202605, 3269018, 8886111, 24154953, 65659970, 178482301, 485165196, 1318815735, 3584912847, 9744803447, 26489122130, 72004899338, 195729609429, 532048240602, 1446257064292, 3931334297145, 10686474581525
Offset: 0
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 0..500
Programs
-
Mathematica
Table[Ceiling[E^n], {n, 0, 50}] (* T. D. Noe, Aug 09 2012 *)
-
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