A066798 a(n) = Sum_{i=1..n} binomial(6*i,3*i).

20, 944, 49564, 2753720, 157871240, 9233006540, 547490880980, 32795094564080, 1979734520212192, 120244316085073616, 7339672750101339356, 449852213026938118560, 27666867082225970134160

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..100

Formula

G.f.: (1+8/s)^(3/2)*(s-4)*s^5/(3*(s^4+8*s^3-s+1)*(s^2+4*s-8)) - 1/(1-x) where (s+8)*s^3*x-s+1 = 0. - Mark van Hoeij, May 02 2013

a(n) ~ sqrt(3) * 64^(n+1) / (189*sqrt(Pi*n)). - Vaclav Kotesovec, Jun 07 2019

Maple

s := RootOf((s+8)*s^3*x-s+1, s):
series( (1+8/s)^(3/2)*(s-4)*s^5/(3*(s^4+8*s^3-s+1)*(s^2+4*s-8)) - 1/(1-x), x=0, 30); # Mark van Hoeij, May 02 2013

Mathematica

Accumulate[Table[Binomial[6n, 3n], {n, 20}]] (* Harvey P. Dale, Apr 04 2020 *)

Prog

(PARI) { a=0; for (n=1, 100, write("b066798.txt", n, " ", a+=binomial(6*n, 3*n)) ) } \\ Harry J. Smith, Mar 28 2010

Crossrefs

Cf. A006134, A066796, A066797, A066802.

Sequence in context: A305116 A066802 A354814 * A072035 A269413 A274764

Adjacent sequences: A066795 A066796 A066797 * A066799 A066800 A066801

Keyword

nonn

Author

Benoit Cloitre, Jan 18 2002

Status

approved