A191633 a(n) = floor((1 + 2^n)/(1 + 2*n)).

1, 1, 1, 1, 3, 5, 8, 15, 27, 48, 89, 163, 303, 565, 1057, 1985, 3744, 7085, 13443, 25575, 48771, 93206, 178481, 342392, 657930, 1266205, 2440322, 4709393, 9099507, 17602325, 34087042, 66076419, 128207979, 248983611, 483939977, 941362695, 1832519379

Offset

1,5

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..600

Mathematica

f[n_] := Floor[(1 + 2^n)/(2 n + 1)]
Table[f[n], {n, 1, 40}]    (* A191633 *)

Prog

(PARI) a(n)=(2^n+1)\(2*n+1) \\ Charles R Greathouse IV, Jun 17 2011
(Maxima) A191633(n):=floor((1+2^n)/(1+2*n))$ makelist(A191633(n), n, 1, 30); /* Martin Ettl, Oct 25 2012 */

Crossrefs

Cf. A005408, A000051.

Cf. A191634.

Sequence in context: A359851 A193147 A052977 * A215327 A208723 A285010

Adjacent sequences: A191630 A191631 A191632 * A191634 A191635 A191636

Keyword

nonn,less,easy

Author

Clark Kimberling, Jun 09 2011

Status

approved