A329113 Row sums of A329058.

1, 3, 16, 114, 1013, 10973, 142980, 2208958, 39796747, 822252765, 19192927840, 499725372072, 14361189358332, 451551559895244, 15419952421504604, 568327808746891014, 22486286328779957223, 950624702855155671101, 42765431507866487733504, 2039838152324158031743570

Offset: 0

Author

Stefano Spezia, Nov 05 2019

Keywords

• nonn

Crossrefs

Cf. A007318, A329058.

Programs

Mathematica

Table[(Binomial[1+3n,n]Hypergeometric2F1[1,-n,-1-3n,1+n])/(1+n),{n,0,19}]

Formula

a(n) = binomial(1 + 3*n, n)*2F1([1, -n], [-1 - 3*n], 1 + n)/(1 + n), where 2F1 is the hypergeometric function.

a(n) ~ exp(3) * n^(n-1). - Vaclav Kotesovec, Nov 06 2019