A366037
G.f. A(x) satisfies: A(x) = x * (1 + A(x))^5 / (1 - 5 * A(x)).
Original entry on oeis.org
0, 1, 10, 160, 3110, 67155, 1548526, 37346040, 930513870, 23765376580, 618871054120, 16370119905880, 438628647940730, 11880264846822610, 324739360804852980, 8946782070689651280, 248184394985913218910, 6926162613387923126700, 194320992885495965332600, 5477763483026946993808960, 155070883903415687652796120
Offset: 0
-
nmax = 20; A[] = 0; Do[A[x] = x (1 + A[x])^5/(1 - 5 A[x]) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
CoefficientList[InverseSeries[Series[x (1 - 5 x)/(1 + x)^5, {x, 0, 20}], x], x]
Join[{0}, Table[1/n Sum[Binomial[n + k - 1, k] Binomial[5 n, n - k - 1] 5^k, {k, 0, n - 1}], {n, 1, 20}]]
A366035
G.f. A(x) satisfies: A(x) = x * (1 + A(x))^5 / (1 - 3 * A(x)).
Original entry on oeis.org
0, 1, 8, 98, 1440, 23389, 404712, 7314724, 136476912, 2608808180, 50828498336, 1005682252458, 20152470321984, 408149824237302, 8341496306085040, 171812412714350280, 3562961488550366480, 74328284438252301996, 1558783863783469298016, 32844108784368485209320, 694957689921176181019520
Offset: 0
-
nmax = 20; A[] = 0; Do[A[x] = x (1 + A[x])^5/(1 - 3 A[x]) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
CoefficientList[InverseSeries[Series[x (1 - 3 x)/(1 + x)^5, {x, 0, 20}], x], x]
Join[{0}, Table[1/n Sum[Binomial[n + k - 1, k] Binomial[5 n, n - k - 1] 3^k, {k, 0, n - 1}], {n, 1, 20}]]
A366036
G.f. A(x) satisfies: A(x) = x * (1 + A(x))^5 / (1 - 4 * A(x)).
Original entry on oeis.org
0, 1, 9, 127, 2165, 40914, 824859, 17383720, 378373437, 8440227235, 191938302578, 4433259845898, 103716352560119, 2452629475989840, 58529969579982600, 1407775987050271920, 34092047564798908045, 830565580516900384329, 20342106952028722530603, 500573735323751221019425, 12370242700776737398052970
Offset: 0
-
nmax = 20; A[] = 0; Do[A[x] = x (1 + A[x])^5/(1 - 4 A[x]) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
CoefficientList[InverseSeries[Series[x (1 - 4 x)/(1 + x)^5, {x, 0, 20}], x], x]
Join[{0}, Table[1/n Sum[Binomial[n + k - 1, k] Binomial[5 n, n - k - 1] 4^k, {k, 0, n - 1}], {n, 1, 20}]]
Showing 1-3 of 3 results.
Comments