A191629 a(n) = floor((2^n)/(3*n - 1)).

1, 0, 1, 1, 2, 3, 6, 11, 19, 35, 64, 117, 215, 399, 744, 1394, 2621, 4946, 9362, 17772, 33825, 64527, 123361, 236298, 453438, 871543, 1677721, 3234162, 6242685, 12064514, 23342213, 45210182, 87652393, 170097714, 330382099, 642238100, 1249445031, 2432547849

Offset

1,5

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A191627, A191628.

Sequence in context: A038084 A018169 A238644 * A285553 A242842 A327665

Adjacent sequences: A191626 A191627 A191628 * A191630 A191631 A191632

Keyword

nonn,less,easy

Author

Clark Kimberling, Jun 09 2011

Status

approved