A383581 a(n) = Sum_{k=0..floor(n/3)} binomial(n-2*k,k) * binomial(2*(n-3*k),n-3*k).

1, 2, 6, 21, 74, 270, 1005, 3788, 14418, 55289, 213270, 826614, 3216629, 12558928, 49175136, 193023965, 759299438, 2992534344, 11813985377, 46709675040, 184928644350, 733047010709, 2908981549006, 11555513379450, 45945148281437, 182835149061920, 728149606630164

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..400

Formula

G.f.: 1/sqrt((1 - x^3) * (1 - x^3 - 4*x)).

Mathematica

Table[Sum[Binomial[n-2*k, k]* Binomial[2*(n-3*k), n-3*k], {k, 0, Floor[n/3]}], {n, 0, 30}] (* Vincenzo Librandi, May 02 2025 *)

Prog

(PARI) a(n) = sum(k=0, n\3, binomial(n-2*k, k)*binomial(2*(n-3*k), n-3*k));
(Magma) [&+[Binomial(n-2*k, k) * Binomial(2*(n-3*k), n-3*k): k in [0..n div 3]]: n in [0..25]]; // Vincenzo Librandi, May 02 2025

Crossrefs

Cf. A026375, A383573, A383582.

Cf. A376791, A383571.

Cf. A360291.

Sequence in context: A294769 A116738 A360151 * A150186 A150187 A116818

Adjacent sequences: A383578 A383579 A383580 * A383582 A383583 A383584

Keyword

nonn

Author

Seiichi Manyama, Apr 30 2025

Status

approved