A014213 Floor((e/2)^n).

1, 1, 1, 2, 3, 4, 6, 8, 11, 15, 21, 29, 39, 54, 73, 99, 135, 184, 250, 340, 462, 628, 854, 1161, 1578, 2145, 2916, 3964, 5387, 7322, 9952, 13526, 18384, 24987, 33961, 46159, 62736, 85267, 115891, 157512, 214081, 290967, 395465, 537493

Offset

0,4

Links

Table of n, a(n) for n=0..43.

Mathematica

f[n_] := Floor[(E/2)^n]; Array[f, 44, 0] (* Robert G. Wilson v, Oct 23 2013 *)

Prog

(PARI) a(n) = floor((exp(1)/2)^n); \\ Michel Marcus, Oct 24 2013
(PARI) a(n)=exp(n)>>n\1 \\ Charles R Greathouse IV, Oct 24 2013

Crossrefs

Sequence in context: A374760 A095814 A006683 * A341218 A064323 A003411

Adjacent sequences: A014210 A014211 A014212 * A014214 A014215 A014216

Keyword

nonn

Author

Clark Kimberling

Status

approved