A213225
G.f. satisfies: A(x) = 1/(1 - x/A(-x*A(x)^4)).
Original entry on oeis.org
1, 1, 2, 6, 20, 76, 313, 1375, 6337, 30243, 148129, 739172, 3737993, 19077868, 97955307, 504707999, 2604312205, 13436676965, 69229324721, 355854322633, 1823672937884, 9314227843463, 47406130512872, 240498260267049, 1216833204738419, 6146116088495029, 31030233400282749
Offset: 0
G.f.: A(x) = 1 + x + 2*x^2 + 6*x^3 + 20*x^4 + 76*x^5 + 313*x^6 +...
Related expansions:
A(x)^4 = 1 + 4*x + 14*x^2 + 52*x^3 + 201*x^4 + 816*x^5 + 3468*x^6 +...
1/A(-x*A(x)^4) = 1 + x + 3*x^2 + 9*x^3 + 35*x^4 + 146*x^5 + 656*x^6 +...
-
terms = 26; A[] = 1; Do[A[x] = 1/(1-x/A[-x*A[x]^4]) + O[x]^terms // Normal, terms]; CoefficientList[A[x], x] (* Stefano Spezia, Aug 23 2025 *)
-
{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=1/(1-x/subst(A, x, -x*subst(A^4, x, x+x*O(x^n)))) ); polcoeff(A, n)}
for(n=0, 30, print1(a(n), ", "))
A213226
G.f. satisfies: A(x) = 1/(1 - x/A(-x*A(x)^5)).
Original entry on oeis.org
1, 1, 2, 7, 27, 122, 607, 3208, 17688, 99803, 571238, 3292738, 19001315, 109303307, 624615928, 3537913240, 19843769848, 110273489737, 608712132055, 3355449334452, 18624818099047, 105191779542849, 610586100129734, 3662333209225714, 22652502251884322
Offset: 0
G.f.: A(x) = 1 + x + 2*x^2 + 7*x^3 + 27*x^4 + 122*x^5 + 607*x^6 +...
Related expansions:
A(x)^5 = 1 + 5*x + 20*x^2 + 85*x^3 + 380*x^4 + 1801*x^5 + 9045*x^6 +...
1/A(-x*A(x)^5) = 1 + x + 4*x^2 + 14*x^3 + 66*x^4 + 336*x^5 + 1805*x^6 +...
-
{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=1/(1-x/subst(A, x, -x*subst(A^5, x, x+x*O(x^n)))) ); polcoeff(A, n)}
for(n=0, 30, print1(a(n), ", "))
A213228
G.f. satisfies: A(x) = 1/(1 - x/A(-x*A(x)^6)^2).
Original entry on oeis.org
1, 1, 3, 14, 73, 440, 2862, 19991, 146939, 1125413, 8896018, 72067978, 595097838, 4987609871, 42290465703, 361845473658, 3117830204185, 27009650432888, 234932107635587, 2049479335366836, 17915253987741538, 156799716352350344, 1373180896765862962
Offset: 0
G.f.: A(x) = 1 + x + 3*x^2 + 14*x^3 + 73*x^4 + 440*x^5 + 2862*x^6 +...
Related expansions:
A(x)^6 = 1 + 6*x + 33*x^2 + 194*x^3 + 1188*x^4 + 7656*x^5 + 51583*x^6 +...
1/A(-x*A(x)^6)^2 = 1 + 2*x + 9*x^2 + 44*x^3 + 268*x^4 + 1750*x^5 + 12422*x^6 +...
-
{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=1/(1-x/subst(A^2, x, -x*subst(A^6, x, x+x*O(x^n)))) ); polcoeff(A, n)}
for(n=0, 30, print1(a(n), ", "))
A213229
G.f. satisfies: A(x) = 1/(1 - x/A(-x*A(x)^7)^2).
Original entry on oeis.org
1, 1, 3, 16, 93, 649, 4924, 40221, 344817, 3058115, 27798895, 257009431, 2404734586, 22679499148, 214947515333, 2042353663088, 19417906390395, 184458621283607, 1748712359825873, 16530801697256737, 155736745914813741, 1461877902947680987, 13674142992787617967
Offset: 0
G.f.: A(x) = 1 + x + 3*x^2 + 16*x^3 + 93*x^4 + 649*x^5 + 4924*x^6 +...
Related expansions:
A(x)^7 = 1 + 7*x + 42*x^2 + 273*x^3 + 1862*x^4 + 13531*x^5 + 104062*x^6 +...
1/A(-x*A(x)^7)^2 = 1 + 2*x + 11*x^2 + 60*x^3 + 431*x^4 + 3302*x^5 + 27421*x^6 +..
-
{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=1/(1-x/subst(A^2, x, -x*subst(A^7, x, x+x*O(x^n)))) ); polcoeff(A, n)}
for(n=0, 30, print1(a(n), ", "))
A213230
G.f. satisfies: A(x) = 1/(1 - x/A(-x*A(x)^8)^2).
Original entry on oeis.org
1, 1, 3, 18, 115, 902, 7722, 70784, 678251, 6670586, 66851992, 677328214, 6903177354, 70490174298, 718856047396, 7304677030708, 73837797474235, 741722190452840, 7402780597473820, 73459355234486763, 726095774886910232, 7170907377415662763, 71063833561266044578
Offset: 0
G.f.: A(x) = 1 + x + 3*x^2 + 18*x^3 + 115*x^4 + 902*x^5 + 7722*x^6 +...
Related expansions:
A(x)^8 = 1 + 8*x + 52*x^2 + 368*x^3 + 2754*x^4 + 22112*x^5 + 189344*x^6 +...
1/A(-x*A(x)^8)^2 = 1 + 2*x + 13*x^2 + 78*x^3 + 634*x^4 + 5488*x^5 + 50969*x^6 +...
-
{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=1/(1-x/subst(A^2, x, -x*subst(A^8, x, x+x*O(x^n)))) ); polcoeff(A, n)}
for(n=0, 30, print1(a(n), ", "))
A213232
G.f. satisfies: A(x) = 1/(1 - x/A(-x*A(x)^9)^3).
Original entry on oeis.org
1, 1, 4, 28, 215, 1983, 19789, 213698, 2426851, 28661509, 348287354, 4322627557, 54508747790, 695534616050, 8953637420349, 116002300640637, 1509724588732027, 19707310304585212, 257698683361191598, 3372154116182404890, 44121356408759264549
Offset: 0
G.f.: A(x) = 1 + x + 4*x^2 + 28*x^3 + 215*x^4 + 1983*x^5 + 19789*x^6 +...
Related expansions:
A(x)^9 = 1 + 9*x + 72*x^2 + 624*x^3 + 5661*x^4 + 54621*x^5 + 555837*x^6 +...
1/A(-x*A(x)^9)^3 = 1 + 3*x + 21*x^2 + 154*x^3 + 1446*x^4 + 14511*x^5 + 158838*x^6 +...
-
{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=1/(1-x/subst(A^3, x, -x*subst(A^9, x, x+x*O(x^n)))) ); polcoeff(A, n)}
for(n=0, 30, print1(a(n), ", "))
A213233
G.f. satisfies: A(x) = 1/(1 - x/A(-x*A(x)^10)^4).
Original entry on oeis.org
1, 1, 5, 39, 345, 3512, 38431, 451620, 5587237, 72275004, 968509140, 13361356169, 188704259571, 2716467168169, 39716842554828, 588125693790055, 8800638181341593, 132838773216409675, 2019626662710709088, 30891440565153652705, 474899505740289874276
Offset: 0
G.f.: A(x) = 1 + x + 5*x^2 + 39*x^3 + 345*x^4 + 3512*x^5 + 38431*x^6 +...
Related expansions:
A(x)^10 = 1 + 10*x + 95*x^2 + 960*x^3 + 10095*x^4 + 111212*x^5 +...
1/A(-x*A(x)^10)^4 = 1 + 4*x + 30*x^2 + 256*x^3 + 2605*x^4 + 28484*x^5 +...
-
{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=1/(1-x/subst(A^4, x, -x*subst(A^10, x, x+x*O(x^n)))) ); polcoeff(A, n)}
for(n=0, 30, print1(a(n), ", "))
A213227
G.f. satisfies: A(x) = 1/(1 - x/A(-x*A(x)^6)).
Original entry on oeis.org
1, 1, 2, 8, 35, 181, 1042, 6301, 39435, 249744, 1585386, 10027385, 62696192, 385398251, 2322152120, 13727653882, 80274175978, 472701550856, 2883417403654, 18796497074750, 132728456810968, 995480740265410, 7605881152587204, 56821415293287735, 403362682583930224
Offset: 0
G.f.: A(x) = 1 + x + 2*x^2 + 8*x^3 + 35*x^4 + 181*x^5 + 1042*x^6 +...
Related expansions:
A(x)^6 = 1 + 6*x + 27*x^2 + 128*x^3 + 645*x^4 + 3462*x^5 + 19823*x^6 +...
1/A(-x*A(x)^6) = 1 + x + 5*x^2 + 20*x^3 + 108*x^4 + 638*x^5 + 3889*x^6 +...
-
{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=1/(1-x/subst(A, x, -x*subst(A^6, x, x+x*O(x^n)))) ); polcoeff(A, n)}
for(n=0, 30, print1(a(n), ", "))
A385015
G.f. A(x) satisfies A(x) = 1 + x*A(x)/A(-x*A(x))^3.
Original entry on oeis.org
1, 1, 4, 4, -13, -81, -389, -198, 7455, 44515, 198661, 70243, -5428624, -40239313, -218619844, -408542577, 3648305171, 44441073999, 339489511573, 1430556904456, 2122222427956, -35048613488679, -504238969376070, -3684488832562182, -21342732340391295, -67688326964892247
Offset: 0
-
a(n, k=-1) = if(n*k==0, 0^n, (-1)^n*k*sum(j=1, n, binomial(-n+j+k-1, j-1)*a(n-j, 3*j)/j));
Showing 1-9 of 9 results.
Comments