A377148
a(n) = Sum_{k=0..n} binomial(k+3,3) * binomial(k,n-k)^2.
Original entry on oeis.org
1, 4, 14, 60, 225, 796, 2764, 9304, 30580, 98700, 313422, 981548, 3037473, 9301620, 28222000, 84927760, 253699285, 752863840, 2220831160, 6515581600, 19021079866, 55276625304, 159967084164, 461150383400, 1324652146775, 3792447499916, 10824189204014
Offset: 0
-
[&+[Binomial(k+3,3)*Binomial(k, n-k)^2: k in [0..n]]: n in [0..30]]; // Vincenzo Librandi, May 12 2025
-
Table[Sum[Binomial[k+3,3]*Binomial[k, n-k]^2,{k,0,n}],{n,0,30}] (* Vincenzo Librandi, May 12 2025 *)
-
a(n) = sum(k=0, n, binomial(k+3, 3)*binomial(k, n-k)^2);
-
a089627(n, k) = n!/((n-2*k)!*k!^2);
my(N=3, M=30, x='x+O('x^M), X=1-x-x^2, Y=3); Vec(sum(k=0, N\2, a089627(N, k)*X^(N-2*k)*x^(Y*k))/(X^2-4*x^Y)^(N+1/2))
A377145
a(n) = Sum_{k=0..n} binomial(k+2,2) * binomial(k,n-k)^2.
Original entry on oeis.org
1, 3, 9, 34, 111, 351, 1103, 3384, 10224, 30536, 90222, 264186, 767663, 2215623, 6356907, 18143300, 51540885, 145801395, 410888595, 1153964520, 3230723826, 9019081038, 25112021154, 69750583164, 193303849531, 534602071341, 1475644537323, 4065845732794
Offset: 0
-
a(n) = sum(k=0, n, binomial(k+2, 2)*binomial(k, n-k)^2);
-
a089627(n, k) = n!/((n-2*k)!*k!^2);
my(N=2, M=30, x='x+O('x^M), X=1-x-x^2, Y=3); Vec(sum(k=0, N\2, a089627(N, k)*X^(N-2*k)*x^(Y*k))/(X^2-4*x^Y)^(N+1/2))
A382471
a(n) = Sum_{k=0..n} binomial(k+4,4) * binomial(2*k,2*n-2*k).
Original entry on oeis.org
1, 5, 20, 125, 610, 2611, 10815, 42610, 161005, 590155, 2106362, 7348265, 25141430, 84569395, 280246795, 916465742, 2961805180, 9470735650, 29994694130, 94172180660, 293326457342, 907028460410, 2786036875580, 8505001839950, 25815678641935, 77945771624609
Offset: 0
- Vincenzo Librandi, Table of n, a(n) for n = 0..400
- Index entries for linear recurrences with constant coefficients, signature (10,-35,50,-55,172,-250,100,-365,510,-29,510,-365,100,-250,172,-55,50,-35,10,-1).
-
[&+[Binomial(k+4,4) * Binomial(2*k,2*n-2*k): k in [0..n]]: n in [0..25]]; // Vincenzo Librandi, Apr 10 2025
-
Table[Sum[Binomial[k+4,4]*Binomial[2*k,2*n-2*k],{k,0,n}],{n,0,30}] (* Vincenzo Librandi, Apr 10 2025 *)
-
a(n) = sum(k=0, n, binomial(k+4, 4)*binomial(2*k, 2*n-2*k));
-
my(N=4, M=30, x='x+O('x^M), X=1-x-x^2, Y=3); Vec(sum(k=0, (N+1)\2, 4^k*binomial(N+1, 2*k)*X^(N+1-2*k)*x^(Y*k))/(X^2-4*x^Y)^(N+1))
A377153
a(n) = Sum_{k=0..n} binomial(k+5,5) * binomial(k,n-k)^2.
Original entry on oeis.org
1, 6, 27, 140, 651, 2772, 11354, 44640, 169371, 624742, 2248575, 7922124, 27397937, 93214632, 312559200, 1034507696, 3384194616, 10954244952, 35118346760, 111602517096, 351819819414, 1100912299156, 3421515852834, 10566654790176, 32441857824859, 99060134392422
Offset: 0
-
a(n) = sum(k=0, n, binomial(k+5, 5)*binomial(k, n-k)^2);
-
a089627(n, k) = n!/((n-2*k)!*k!^2);
my(N=5, M=30, x='x+O('x^M), X=1-x-x^2, Y=3); Vec(sum(k=0, N\2, a089627(N, k)*X^(N-2*k)*x^(Y*k))/(X^2-4*x^Y)^(N+1/2))
A377158
a(n) = Sum_{k=0..n} binomial(k+6,6) * binomial(k,n-k)^2.
Original entry on oeis.org
1, 7, 35, 196, 994, 4578, 20118, 84540, 341397, 1335103, 5078227, 18852428, 68519920, 244413820, 857393700, 2963013816, 10102413972, 34025396580, 113329367816, 373642488044, 1220412680410, 3951964394642, 12695738508950, 40484919514284, 128216539026261
Offset: 0
-
a(n) = sum(k=0, n, binomial(k+6, 6)*binomial(k, n-k)^2);
-
a089627(n, k) = n!/((n-2*k)!*k!^2);
my(N=6, M=30, x='x+O('x^M), X=1-x-x^2, Y=3); Vec(sum(k=0, N\2, a089627(N, k)*X^(N-2*k)*x^(Y*k))/(X^2-4*x^Y)^(N+1/2))
A377159
a(n) = Sum_{k=0..n} binomial(k+7,7) * binomial(k,n-k)^2.
Original entry on oeis.org
1, 8, 44, 264, 1446, 7152, 33516, 149688, 640233, 2642992, 10582220, 41249000, 157050660, 585621960, 2143442400, 7715164176, 27353809188, 95660348904, 330377130644, 1127996393656, 3810881349814, 12750188169312, 42276102419916, 139008143200536, 453526927536969
Offset: 0
-
a(n) = sum(k=0, n, binomial(k+7, 7)*binomial(k, n-k)^2);
-
a089627(n, k) = n!/((n-2*k)!*k!^2);
my(N=7, M=30, x='x+O('x^M), X=1-x-x^2, Y=3); Vec(sum(k=0, N\2, a089627(N, k)*X^(N-2*k)*x^(Y*k))/(X^2-4*x^Y)^(N+1/2))
Showing 1-6 of 6 results.