A379186 G.f. A(x) satisfies A(x) = 1/((1 - x*A(x)^3) * (1 - x*A(x))^2).

1, 3, 21, 202, 2270, 27903, 363412, 4927840, 68834941, 983680783, 14312988289, 211329419670, 3158263216267, 47682769300288, 726188701482730, 11142842570134264, 172101193009427174, 2673445730846829604, 41742159037922167264, 654721526817143247304, 10311337739352708700427

Offset

0,2

Links

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

Formula

a(n) = Sum_{k=0..n} binomial(n+3*k+1,k) * binomial(3*n+3*k+1,n-k)/(n+3*k+1).

Mathematica

terms = 21; A[_] = 0; Do[A[x_] = 1/((1-x*A[x]^3)*(1 -x*A[x])^2) + O[x]^terms // Normal, terms]; CoefficientList[A[x], x] (* Stefano Spezia, Jun 14 2025 *)

Prog

(PARI) a(n) = sum(k=0, n, binomial(n+3*k+1, k)*binomial(3*n+3*k+1, n-k)/(n+3*k+1));

Crossrefs

Cf. A006632, A369616, A379185.

Cf. A379188, A379189.

Cf. A379174.

Sequence in context: A192461 A199682 A348912 * A384843 A309638 A167872

Adjacent sequences: A379183 A379184 A379185 * A379187 A379188 A379189

Keyword

nonn

Author

Seiichi Manyama, Dec 17 2024

Status

approved