A307678
G.f. A(x) satisfies: A(x) = 1 + x*A(x)^3/(1 - x).
Original entry on oeis.org
1, 1, 4, 19, 101, 578, 3479, 21714, 139269, 912354, 6078832, 41066002, 280636657, 1936569717, 13475408847, 94446518559, 666149216744, 4724705621702, 33676421377532, 241100485812034, 1732999323835918, 12501487280292424, 90478497094713958, 656788523782034248, 4780725762185300389
Offset: 0
G.f.: A(x) = 1 + x + 4*x^2 + 19*x^3 + 101*x^4 + 578*x^5 + 3479*x^6 + 21714*x^7 + 139269*x^8 + 912354*x^9 + 6078832*x^10 + ...
-
terms = 24; A[] = 1; Do[A[x] = 1 + x A[x]^3/(1 - x) + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x]
a[0] = 1; a[n_] := a[n] = Sum[Sum[Sum[a[k] a[i - k] a[j - i], {k, 0, i}], {i, 0, j}], {j, 0, n - 1}]; Table[a[n], {n, 0, 24}]
terms = 24; CoefficientList[Series[2 Sqrt[(1 - x) Sin[1/3 ArcSin[3/2 Sqrt[3] Sqrt[x/(1 - x)]]]^2/x]/Sqrt[3], {x, 0, terms}], x]
-
a(n):=sum(binomial(n-1,n-k)*(binomial(3*k,k))/(2*k+1),k,0,n); /* Vladimir Kruchinin, Feb 05 2022*/
-
{a(n) = my(A=[1]); for(m=1, n, A=concat(A, 0);
A[#A] = 1 + sum(k=1, m-1, (polcoeff(Ser(A)^3, k)) )); A[n+1]}
for(n=0, 30, print1(a(n), ", ")) \\ Vaclav Kotesovec, Nov 23 2024, after Paul D. Hanna
A371486
G.f. A(x) satisfies A(x) = 1 / (1 - x*A(x) / (1-x))^4.
Original entry on oeis.org
1, 4, 30, 260, 2465, 24796, 260008, 2811216, 31117240, 350890260, 4016744586, 46556054072, 545273713228, 6443442857024, 76727957438650, 919796418086076, 11091249210406816, 134439965189940176, 1637160457090585016, 20019920157735604796, 245733987135102838131
Offset: 0
-
a(n) = sum(k=0, n, binomial(n-1, n-k)*binomial(5*k+3, k)/(k+1));
A371523
G.f. A(x) satisfies A(x) = (1 + x*A(x)^3 / (1-x))^2.
Original entry on oeis.org
1, 2, 15, 142, 1533, 17924, 220936, 2827218, 37202580, 500228562, 6842899886, 94931338876, 1332438761910, 18887047322030, 269986427261981, 3887654399820062, 56337997080499605, 821021578186212094, 12024687038651388155, 176900548019426869808, 2612917215947948178941
Offset: 0
-
a(n) = 2*sum(k=0, n, binomial(n-1, n-k)*binomial(6*k+1, k)/(5*k+2));
A371483
G.f. A(x) satisfies A(x) = 1 / (1 - x*A(x) / (1-x))^3.
Original entry on oeis.org
1, 3, 18, 124, 933, 7446, 61943, 531348, 4666425, 41751325, 379230711, 3487769871, 32414437521, 303950138604, 2872137458010, 27322233357964, 261446381792670, 2514851398148595, 24303030755342128, 235841264063844258, 2297278004837062317
Offset: 0
-
a(n) = sum(k=0, n, binomial(n-1, n-k)*binomial(4*k+2, k)/(k+1));
A371516
G.f. A(x) satisfies A(x) = (1 + x*A(x) / (1-x))^3.
Original entry on oeis.org
1, 3, 15, 82, 477, 2901, 18235, 117555, 773085, 5166478, 34987170, 239570655, 1655933060, 11538839130, 80971109712, 571702698185, 4058556404958, 28951715755830, 207424064434502, 1491898838023884, 10768487956456506, 77977009814421534, 566310026687320290
Offset: 0
-
a(n) = 3*sum(k=0, n, binomial(n-1, n-k)*binomial(3*k+2, k)/(2*k+3));
A371519
G.f. A(x) satisfies A(x) = 1 / (1 - x*A(x) / (1-x))^5.
Original entry on oeis.org
1, 5, 45, 470, 5375, 65231, 825225, 10764185, 143739440, 1955340360, 27001732972, 377530388235, 5333865386885, 76031188364860, 1092117166466660, 15792298241897649, 229704197116753825, 3358528175751886765, 49333470827844265285, 727680248026484478405
Offset: 0
-
a(n) = sum(k=0, n, binomial(n-1, n-k)*binomial(6*k+4, k)/(k+1));
A371518
G.f. A(x) satisfies A(x) = (1 + x*A(x)^2 / (1-x))^2.
Original entry on oeis.org
1, 2, 11, 72, 525, 4104, 33647, 285526, 2486809, 22103726, 199697284, 1828472914, 16929944932, 158246198836, 1491210732346, 14151603542612, 135130396860130, 1297381593071890, 12516650939119421, 121281286192026308, 1179769340479567499
Offset: 0
-
a(n) = 2*sum(k=0, n, binomial(n-1, n-k)*binomial(4*k+1, k)/(3*k+2));
A371576
G.f. satisfies A(x) = ( 1 + x*A(x)^(3/2) * (1 + x) )^2.
Original entry on oeis.org
1, 2, 9, 44, 240, 1390, 8404, 52426, 334964, 2180928, 14418123, 96525656, 653077411, 4458529390, 30674865164, 212472058410, 1480446579602, 10369560147798, 72972217926122, 515674254743332, 3657933383804959, 26036659997517572, 185905008055923918
Offset: 0
-
a(n, r=2, s=1, t=3, u=0) = r*sum(k=0, n, binomial(t*k+u*(n-k)+r, k)*binomial(s*k, n-k)/(t*k+u*(n-k)+r));
A371583
G.f. satisfies A(x) = ( 1 + x*A(x)^(5/2) / (1 - x) )^2.
Original entry on oeis.org
1, 2, 13, 104, 940, 9166, 94044, 1000602, 10939780, 122161128, 1387361151, 15974899766, 186069556707, 2188416960148, 25953579753464, 310022550197360, 3726709235290628, 45047517497268968, 547217895030263028, 6676784544374859088, 81789906534091716353
Offset: 0
-
a(n, r=2, s=1, t=5, u=0) = r*sum(k=0, n, binomial(t*k+u*(n-k)+r, k)*binomial(n+(s-1)*k-1, n-k)/(t*k+u*(n-k)+r));
A370695
G.f. A(x) satisfies A(x) = (1 + x*A(x)^(3/4) / (1-x))^4.
Original entry on oeis.org
1, 4, 22, 128, 777, 4872, 31330, 205560, 1370868, 9266104, 63343006, 437183260, 3042337215, 21323543252, 150395596016, 1066637271424, 7602188660799, 54422262148632, 391146728466980, 2821396586367568, 20417766975784066, 148200184917042112
Offset: 0
-
A370695 := proc(n)
4*add(binomial(n-1,n-k)*binomial(3*k+4,k)/(3*k+4),k=0..n) ;
end proc:
seq(A370695(n),n=0..80) ; #R. J. Mathar, Oct 24 2024
-
a(n) = 4*sum(k=0, n, binomial(n-1, n-k)*binomial(3*k+4, k)/(3*k+4));
Showing 1-10 of 10 results.
Comments