A364336 -id:A364336 - cp's OEIS frontend

A364337 G.f. satisfies A(x) = (1 + x) * (1 + x*A(x)^4).

1, 2, 9, 68, 580, 5406, 53270, 545844, 5757332, 62094217, 681653493, 7591431752, 85558696024, 974024788280, 11184192097016, 129378232148016, 1506363564912368, 17639001584452320, 207593804132718948, 2454236122156830254, 29132714097692056954, 347086786035103983446

Offset: 0

Seiichi Manyama, Jul 19 2023

nonn

Seiichi Manyama, Table of n, a(n) for n = 0..907

Cf. A073157, A364336, A364338, A364339.

Cf. A215623, A215715, A234461, A239107.

terms = 22; A[] = 0; Do[A[x] = (1+x)(1+x*A[x]^4) + O[x]^terms // Normal, terms]; CoefficientList[A[x], x] (* Stefano Spezia, Mar 24 2025 *)

a(n) = sum(k=0, n, binomial(4*k+1, k)*binomial(4*k+1, n-k)/(4*k+1));

a(n) = Sum_{k=0..n} binomial(4*k+1,k) * binomial(4*k+1,n-k) / (4*k+1).

A364338 G.f. satisfies A(x) = (1 + x) * (1 + x*A(x)^5).

Original entry on oeis.org

1, 2, 11, 105, 1140, 13555, 170637, 2235472, 30161255, 416248640, 5848462880, 83378361111, 1203100853951, 17537182300140, 257858115407535, 3819894878557990, 56958234329850060, 854192593184162160, 12875579347191388830, 194963091634569681550, 2964229359714424159370, 45234864131654311730160

Offset: 0

Seiichi Manyama, Jul 19 2023

nonn

Seiichi Manyama, Table of n, a(n) for n = 0..827

Cf. A073157, A364336, A364337, A364339.

Cf. A215624, A234525, A239108, A364331, A364335.

terms = 22; A[] = 0; Do[A[x] = (1+x)(1+x*A[x]^5) + O[x]^terms // Normal, terms]; CoefficientList[A[x], x] (* Stefano Spezia, Mar 24 2025 *)

a(n) = sum(k=0, n, binomial(5*k+1, k)*binomial(5*k+1, n-k)/(5*k+1));

a(n) = Sum_{k=0..n} binomial(5*k+1,k) * binomial(5*k+1,n-k) / (5*k+1).

A215623 G.f. satisfies A(x) = (1 + xA(x)) (1 + x*A(x)^4).

Original entry on oeis.org

1, 2, 11, 89, 836, 8551, 92445, 1039030, 12019135, 142151324, 1711116646, 20894534324, 258195565959, 3222677162409, 40569811695707, 514520507077695, 6567611974106756, 84310605465652750, 1087798325715407703, 14098475168420865396, 183465816241394787196

Offset: 0

Paul D. Hanna, Aug 17 2012

The radius of convergence of g.f. A(x) is r = 0.0712256396327314729661274986100... with A(r) = 1.4248895273944523042559975726479124492235978714420... where y=A(r) satisfies 3*y^7 - 4*y^6 + 16*y^5 - 28*y^4 + 8*y^3 - 4 = 0.

			G.f.: A(x) = 1 + 2*x + 11*x^2 + 89*x^3 + 836*x^4 + 8551*x^5 + 92445*x^6 + ...
Related expansions.
A(x)^4 = 1 + 8*x + 68*x^2 + 652*x^3 + 6750*x^4 + 73544*x^5 + 831078*x^6 + ...
A(x)^5 = 1 + 10*x + 95*x^2 + 965*x^3 + 10350*x^4 + 115507*x^5 + ...
where A(x) = 1 + x*(A(x) + A(x)^4) + x^2*A(x)^5.
The logarithm of the g.f. equals the series:
log(A(x)) = (1 + A(x)^3)*x + (1 + 2^2*A(x)^3 + A(x)^6)*x^2/2 +
  (1 + 3^2*A(x)^3 + 3^2*A(x)^6 + A(x)^9)*x^3/3 +
  (1 + 4^2*A(x)^3 + 6^2*A(x)^6 + 4^2*A(x)^9 + A(x)^12)*x^4/4 +
  (1 + 5^2*A(x)^3 + 10^2*A(x)^6 + 10^2*A(x)^9 + 5^2*A(x)^12 + A(x)^15)*x^5/5 + ...
more explicitly,
log(A(x)) = 2*x + 18*x^2/2 + 209*x^3/3 + 2550*x^4/4 + 32082*x^5/5 + 411705*x^6/6 + 5356416*x^7/7 + ....

Seiichi Manyama, Table of n, a(n) for n = 0..876

Cf. A198953, A215624, A036765, A198951, A181734, A364331, A364336, A364376.

{a(n)=local(A=1+x); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2*(A+x*O(x^n))^(3*j))*x^m/m))); polcoeff(A, n)}

{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=(1+x*A)*(1+x*A^4)+x*O(x^n)); polcoeff(A, n)}
for(n=0,21,print1(a(n),", "))

G.f. satisfies A(x) = exp( Sum_{n>=1} x^n/n * Sum_{k=0..n} C(n,k)^2 * A(x)^(3*k)).
The formal inverse of g.f. A(x) is (sqrt((1-x^3)^2 + 4*x^4) - (1+x^3))/(2*x^4).
a(n) = Sum_{k=0..n} binomial(n+3*k+1,k) * binomial(n+3*k+1,n-k) / (n+3*k+1). - Seiichi Manyama, Jul 19 2023
From  Peter Bala, Sep 10 2024: (Start)
x/series_reversion(x*A(x)) = 1 + 2*x + 7*x^2 + 39*x^3 + 242*x^4 + 1634*x^5 + ..., the g.f. of A364336.
(1/x) * series_reversion(x/A(x)) = 1 + 2*x + 15*x^2 + 163*x^3 + 2070*x^4 + 28698*x^5 + ..., the g.f. of A364331. (End)

A364339 G.f. satisfies A(x) = (1 + x) * (1 + x*A(x)^6).

Original entry on oeis.org

1, 2, 13, 150, 1978, 28603, 438273, 6992052, 114915180, 1932233883, 33081722359, 574755965137, 10107627041697, 179576579730534, 3218352405778284, 58114340679967608, 1056284029850962674, 19310039426151335622, 354818596435147647654, 6549556302551204621664, 121394125733645986376838

Offset: 0

Seiichi Manyama, Jul 19 2023

nonn

Cf. A073157, A364336, A364337, A364338.

Cf. A239109, A364333, A364340.

terms = 21; A[] = 0; Do[A[x] = (1+x)(1+x*A[x]^6) + O[x]^terms // Normal, terms]; CoefficientList[A[x], x] (* Stefano Spezia, Mar 24 2025 *)

a(n) = sum(k=0, n, binomial(6*k+1, k)*binomial(6*k+1, n-k)/(6*k+1));

a(n) = Sum_{k=0..n} binomial(6*k+1,k) * binomial(6*k+1,n-k) / (6*k+1).

A364372 G.f. satisfies A(x) = (1 + x) * (1 - x*A(x)^3).

Original entry on oeis.org

1, 0, -1, 3, -6, 6, 15, -107, 349, -672, 39, 5835, -27654, 75765, -95799, -279129, 2297970, -8377854, 17663640, -996624, -177445221, 888491025, -2551959604, 3337931168, 10407149226, -87719805853, 328682535695, -708428979213, 15252552804, 7616368090377, -38693979668535

Offset: 0

Seiichi Manyama, Jul 20 2023

Cf. A364371, A364373, A364376.

Cf. A364336.

A364372 := proc(n)
    add( (-1)^k*binomial(3*k+1,k) * binomial(3*k+1,n-k)/(3*k+1),k=0..n) ;
end proc:
seq(A364372(n),n=0..80); # R. J. Mathar, Jul 25 2023

a(n) = sum(k=0, n, (-1)^k*binomial(3*k+1, k)*binomial(3*k+1, n-k)/(3*k+1));

a(n) = Sum_{k=0..n} (-1)^k * binomial(3*k+1,k) * binomial(3*k+1,n-k) / (3*k+1).
D-finite with recurrence 2*n*(2*n+1)*a(n) +(51*n-26)*(n-1)*a(n-1) +(279*n^2 -931*n +766)*a(n-2) +2*(413*n^2 -2127*n +2728)*a(n-3) +6*(75*n-244) *(3*n-11)*a(n-4) +9*(45*n-179) *(3*n-14)*a(n-5) +63*(3*n-14) *(3*n-17)*a(n-6) +12*(3*n-16) *(3*n-20)*a(n-7)=0. - R. J. Mathar, Jul 25 2023
From Peter Bala, Aug 25 2024: (Start)
Fifth-order recurrence: 2*(n-2)*(n-1)*n*(2*n+1)*a(n) + (n-2)*(n-1)*(31*n^2-27*n+6)*a(n-1) + 3*(n-2)*(3*n-5)*(12*n^2-19*n+2)*a(n-2) + 3*(3*n-8)*(18*n^3-69*n^2+63*n-2)*a(n-3) + 3*n*(3*n-11)*(12*n^2-49*n+42)*a(n-4) + 3*n*(n-1)*(3*n-10)*(3*n-14)*a(n-5) = 0 with a(0) = 1, a(1) = 0, a(2) = -1, a(3) = 3 and a(4) = -6.
The g.f. A(x) satisfies (1/x) * series_reversion(x/A(x)) = 1 - x^2 + 3*x^3 - 4*x^4 - 9*x^5 + 73*x^6 - ..., the g.f. of A364376. (End)

A366326 G.f. satisfies A(x) = (1 + x) * (1 + x/A(x)^2).

Original entry on oeis.org

1, 2, -3, 14, -78, 479, -3131, 21372, -150588, 1087057, -7998295, 59763129, -452257495, 3459109408, -26697940390, 207672518808, -1626400971710, 12813379464399, -101482102525511, 807524595076284, -6452856224076654, 51760509258982478, -416620859045829372

Offset: 0

Seiichi Manyama, Oct 07 2023

sign

Winston de Greef, Table of n, a(n) for n = 0..1067

Cf. A073157, A364336, A364337, A364338, A364339, A366325, A366327, A366328.

Cf. A006013, A364393.

a(n) = (-1)^(n-1)*sum(k=0, n, binomial(3*k-1, k)*binomial(n+k-2, n-k)/(3*k-1));

a(n) = (-1)^(n-1) * Sum_{k=0..n} binomial(3*k-1,k) * binomial(n+k-2,n-k)/(3*k-1).

A366325 G.f. satisfies A(x) = (1 + x) * (1 + x/A(x)).

Original entry on oeis.org

1, 2, -1, 3, -10, 36, -137, 543, -2219, 9285, -39587, 171369, -751236, 3328218, -14878455, 67030785, -304036170, 1387247580, -6363044315, 29323149825, -135700543190, 630375241380, -2938391049395, 13739779184085, -64430797069375, 302934667061301, -1427763630578197

Offset: 0

Seiichi Manyama, Oct 07 2023

sign

Cf. A073157, A007863, A364336, A364337, A364338, A364339, A366326, A366327, A366328.

Cf. A000108, A002212, A112478.

a := proc(n) option remember; if n = 1 then 2 elif n = 2 then -1 else (-3*(2*n - 3)*a(n-1) - 5*(n - 3)*a(n-2))/n fi; end:
seq(a(n), n = 1..30); # Peter Bala, Sep 10 2024

a(n) = (-1)^(n-1)*sum(k=0, n, binomial(2*k-1, k)*binomial(n-2, n-k)/(2*k-1));

G.f.: A(x) = -2*x*(1+x) / (1+x-sqrt((1+x)*(1+5*x))).
a(n) = (-1)^(n-1) * Sum_{k=0..n} binomial(2*k-1,k) * binomial(n-2,n-k)/(2*k-1).
a(n) ~ -(-1)^n * 5^(n - 1/2) / (2 * sqrt(Pi) * n^(3/2)). - Vaclav Kotesovec, Oct 07 2023
From Peter Bala, Sep 10 2024: (Start)
a(n) = 1/(1 - n) * Sum_{k = 0..n} binomial(-n+k, k)*binomial(-n+k+1, n-k) for n not equal to 1. Cf. A007863.
a(n) = Sum_{k = 0..n-2} binomial(-n+k+1, k)*binomial(-n+k+1, n-k)/(-n+k+1) for n >= 2.
P-recursive: n*a(n) = - 3*(2*n - 3)*a(n-1) - 5*(n - 3)*a(n-2) with a(1) = 2 and a(2)  = -1. (End)

A366327 G.f. satisfies A(x) = (1 + x) * (1 + x/A(x)^3).

Original entry on oeis.org

1, 2, -5, 33, -260, 2263, -20979, 203124, -2030121, 20786694, -216928144, 2298911699, -24673591005, 267644087524, -2929602893537, 32317666058508, -358931896710948, 4010200327457883, -45040693394259858, 508253687784232108, -5759468659295939684

Offset: 0

Seiichi Manyama, Oct 07 2023

sign

Cf. A073157, A364336, A364337, A364338, A364339, A366325, A366326, A366328.

Cf. A006632, A364407.

a(n) = (-1)^(n-1)*sum(k=0, n, binomial(4*k-1, k)*binomial(n+2*k-2, n-k)/(4*k-1));

a(n) = (-1)^(n-1) * Sum_{k=0..n} binomial(4*k-1,k) * binomial(n+2*k-2,n-k)/(4*k-1).

A366328 G.f. satisfies A(x) = (1 + x) * (1 + x/A(x)^4).

Original entry on oeis.org

1, 2, -7, 60, -612, 6898, -82806, 1038076, -13431940, 178040315, -2405137161, 32992706368, -458336721104, 6435090557964, -91167680664004, 1301665779507128, -18710805300530504, 270559054510943509, -3932893180646204203, 57437414168562779574, -842365843304975785062

Offset: 0

Seiichi Manyama, Oct 07 2023

sign

Cf. A073157, A364336, A364337, A364338, A364339, A366325, A366326, A366327.

Cf. A118971, A364408.

a(n) = (-1)^(n-1)*sum(k=0, n, binomial(5*k-1, k)*binomial(n+3*k-2, n-k)/(5*k-1));

a(n) = (-1)^(n-1) * Sum_{k=0..n} binomial(5*k-1,k) * binomial(n+3*k-2,n-k)/(5*k-1).

A216359 G.f. satisfies: A(x) = (1 + xA(x)^2) (1 + x/A(x)).

Original entry on oeis.org

1, 2, 3, 13, 32, 147, 445, 2067, 7019, 32590, 119209, 551551, 2125429, 9795863, 39221165, 180177403, 742575760, 3403131833, 14342166121, 65626369612, 281459129188, 1286834885967, 5596229192396, 25580269950635, 112492633046446, 514323765191879, 2282371511598955

Offset: 0

Paul D. Hanna, Sep 04 2012

The radius of convergence of g.f. A(x) is r = 0.209619875959405379599013693... with A(r) = 2.36951367232829409921688546894691317519410... where y=A(r) satisfies y^7 - 2*y^6 - 4*y^4 + 4*y^3 + 4*y - 2 = 0.

			G.f.: A(x) = 1 + 2*x + 3*x^2 + 13*x^3 + 32*x^4 + 147*x^5 + 445*x^6 +...
Related expansions.
A(x)^2 = 1 + 4*x + 10*x^2 + 38*x^3 + 125*x^4 + 500*x^5 + 1839*x^6 +...
A(x)^3 = 1 + 6*x + 21*x^2 + 83*x^3 + 315*x^4 + 1269*x^5 + 5061*x^6 +...
where A(x) = (1-x^2)*A(x)^2 - x*A(x)^3 - x.
The logarithm of the g.f. equals the series:
log(A(x)) = (1 + 1/A(x)^3)*x*A(x) + (1 + 2^2/A(x)^3 + 1/A(x)^6)*x^2*A(x)^2/2 +
(1 + 3^2/A(x)^3 + 3^2/A(x)^6 + 1/A(x)^9)*x^3*A(x)^3/3 +
(1 + 4^2/A(x)^3 + 6^2/A(x)^6 + 4^2/A(x)^9 + 1/A(x)^12)*x^4*A(x)^4/4 +
(1 + 5^2/A(x)^3 + 10^2/A(x)^6 + 10^2/A(x)^9 + 5^2/A(x)^12 + 1/A(x)^15)*x^5*A(x)^5/5 +...

Robert Israel, Table of n, a(n) for n = 0..1000

Cf. A073157, A198953, A215623, A215624, A364331, A364336.

S:= series(RootOf(x+y+x^2*y^2-y^2+x*y^3, y, 1), x, 41):
seq(coeff(S,x,j),j=0..40); # Robert Israel, Jul 10 2017

nmax=20; aa=ConstantArray[0,nmax]; aa[[1]]=2; Do[AGF=1+Sum[aa[[n]]*x^n,{n,1,j-1}]+koef*x^j; sol=Solve[Coefficient[(1-x^2)*AGF^2 - x*AGF^3 - x - AGF,x,j]==0,koef][[1]];aa[[j]]=koef/.sol[[1]],{j,2,nmax}]; Flatten[{1,aa}] (* Vaclav Kotesovec, Sep 18 2013 *)

{a(n)=local(A=1+x); for(i=1, n, A=(1 + x*A^2)*(1 + x/(A+x*O(x^n)))); polcoeff(A, n)}

{a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2/A^(3*j))*x^m*A^m/m))); polcoeff(A, n)}
for(n=0, 31, print1(a(n), ", "))

G.f. satisfies:
A(x) = exp( Sum_{n>=1} x^n*A(x)^n/n * Sum_{k=0..n} C(n,k)^2 / A(x)^(3*k) ).
The formal inverse of the g.f. A(x) is (sqrt(1 - 2*x^3 + 4*x^4 + x^6) - (1+x^3))/(2*x^2).
Recurrence: n*(n+1)*(1241*n^5 - 21306*n^4 + 135203*n^3 - 381522*n^2 + 435524*n - 104880)*a(n) = 6*n*(1201*n^4 - 19476*n^3 + 114613*n^2 - 287442*n + 255364)*a(n-1) + 2*(12410*n^7 - 237880*n^6 + 1771109*n^5 - 6388366*n^4 + 11032829*n^3 - 6363274*n^2 - 3856020*n + 4157712)*a(n-2) + 6*(2482*n^7 - 51299*n^6 + 419427*n^5 - 1705769*n^4 + 3477465*n^3 - 2797370*n^2 - 637684*n + 1410288)*a(n-3) + 2*(4964*n^7 - 110044*n^6 + 983093*n^5 - 4442260*n^4 + 10160177*n^3 - 8790970*n^2 - 4722180*n + 9233280)*a(n-4) - 6*(2482*n^7 - 58745*n^6 + 553921*n^5 - 2617109*n^4 + 6255337*n^3 - 6022682*n^2 - 1392300*n + 4289616)*a(n-5) + 60*(n-7)*(2*n - 11)*(n^3 - 40*n^2 + 280*n - 552)*a(n-6) + 2*(n-8)*(2*n - 13)*(1241*n^5 - 15101*n^4 + 62389*n^3 - 91339*n^2 - 930*n + 64260)*a(n-7). - Vaclav Kotesovec, Sep 18 2013
a(n) ~ c*d^n/(sqrt(Pi)*n^(3/2)), where d = 4.77053998540509708... is the root of the equation -4 + 12*d^2 - 8*d^3 - 12*d^4 - 20*d^5 + d^7 = 0 and c = 1.27852844884923435863262213680985089152... - Vaclav Kotesovec, Sep 18 2013
In closed form, c = (-4 + (1 + sqrt(1+8/d^2))*d^2) * sqrt((d^3*(1 + sqrt(1+8/d^2) + (4*(4 + d^2*(-3-sqrt(1+8/d^2) + d*(4+d))))/d^6)) / (1 + 1/64*(1 + sqrt(1+8/d^2)-4/d^2)^3*d^3)) / (32*d). - Vaclav Kotesovec, Aug 18 2014
From Peter Bala, Sep 10 2024: (Start)
For n not of the form 3*m + 1, we conjecture that a(n) = Sum_{k = 0..n} binomial(-n+3*k+1, k)*binomial(-n+3*k+1, n-k)/(-n+3*k+1).
Define a sequence operator R: {u(n): n >= 0} -> {v(n): n >= 0} by Sum_{n >= 0} v(n)*x^n = (1/x) * series_reversion(x/Sum_{n >= 0} u(n)*x^n). Then R({a(n)}) = A364336, R^2({a(n)}) = A215623 and R^3({a(n)}) = A364331. Cf. A073157. (End)

cp's OEIS Frontend

A364337 G.f. satisfies A(x) = (1 + x) * (1 + x*A(x)^4).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A364338 G.f. satisfies A(x) = (1 + x) * (1 + x*A(x)^5).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A215623 G.f. satisfies A(x) = (1 + x*A(x)) * (1 + x*A(x)^4).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

PARI

Formula

A364339 G.f. satisfies A(x) = (1 + x) * (1 + x*A(x)^6).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

PARI

Formula

A364372 G.f. satisfies A(x) = (1 + x) * (1 - x*A(x)^3).

Views

Author

Keywords

Crossrefs

Programs

Maple

PARI

Formula

A366326 G.f. satisfies A(x) = (1 + x) * (1 + x/A(x)^2).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A366325 G.f. satisfies A(x) = (1 + x) * (1 + x/A(x)).

Views

Author

Keywords

Crossrefs

Programs

Maple

PARI

Formula

A366327 G.f. satisfies A(x) = (1 + x) * (1 + x/A(x)^3).

Views

Author

Keywords

Crossrefs

Programs

PARI

Formula

A366328 G.f. satisfies A(x) = (1 + x) * (1 + x/A(x)^4).

Views

Author

A215623 G.f. satisfies A(x) = (1 + xA(x)) (1 + x*A(x)^4).

A216359 G.f. satisfies: A(x) = (1 + xA(x)^2) (1 + x/A(x)).