cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 16 results. Next

A112478 Expansion of (1 + x + sqrt(1 + 6*x + x^2))/2.

Original entry on oeis.org

1, 2, -2, 6, -22, 90, -394, 1806, -8558, 41586, -206098, 1037718, -5293446, 27297738, -142078746, 745387038, -3937603038, 20927156706, -111818026018, 600318853926, -3236724317174, 17518619320890, -95149655201962, 518431875418926, -2832923350929742, 15521467648875090
Offset: 0

Views

Author

Paul Barry, Sep 07 2005

Keywords

Comments

This is the A-sequence for the Delannoy triangle A008288. See the W. Lang link under A006232 for Sheffer a- and z-sequences where also Riordan A- and Z-sequences are explained. O.g.f. A(y) = y/Finv(y) = 2*y/(-(1 + y) + sqrt(y^2 + 6*y + 1)) = ((1 + y) + sqrt(1 + 6*y + y^2))/2 with Finv the inverse function of F(x) = x*(1 + x)/(1 - x). The o.g.f. of the Z-sequence is 1.

Examples

			G.f. = 1 + 2*x - 2*x^2 + 6*x^3 - 22*x^4 + 90*x^5 - 394*x^6 + 1806*x^7 + ...

Links

Crossrefs

A minor variation of A006318. See A085403 for yet another version.
Row sums of number triangle A112477.
Cf. A364393, A364407, A364408, A364409, A366266, A366267, A366268.
Cf. A366325.

Programs

  • Mathematica
    CoefficientList[Series[(1+x+Sqrt[1+6*x+x^2])/2, {x, 0, 20}], x] (* Vaclav Kotesovec, Feb 12 2014 *)
  • PARI
    {a(n) = polcoeff((1 + x + sqrt(1 + 6*x + x^2 + x*O(x^n)))/2, n)}; /* Michael Somos, Jul 07 2020 */

Formula

G.f.: (1 + x + sqrt(1 + 6*x + x^2))/2. - Sergei N. Gladkovskii, Jan 04 2012
G.F.: G(0) where G(k)= 1 + x + x/G(k+1); (continued fraction, 1-step). - Sergei N. Gladkovskii, Jan 04 2012
D-finite with recurrence: n*a(n) + 3*(2*n-3)*a(n-1) + (n-3)*a(n-2) = 0. - R. J. Mathar, Nov 24 2012
a(n) ~ (-1)^(n+1) * sqrt(3*sqrt(2) - 4) * (3 + 2*sqrt(2))^n / (2 * sqrt(Pi) * n^(3/2)). - Vaclav Kotesovec, Feb 12 2014
0 = a(n)*(a(n+1) + 15*a(n+2) + 4*a(n+3)) + a(n+1)*(-3*a(n+1) + 34*a(n+3) + 15*a(n+3)) + a(n+2)*(-3*a(n+2) + a(n+3)) for all integer n > 0. - Michael Somos, Jul 07 2020
From Seiichi Manyama, Oct 08 2023: (Start)
G.f. satisfies A(x) = 1 + x + x/A(x).
a(n) = (-1)^(n-1) * Sum_{k=0..n} binomial(2*k-1,k) * binomial(n+k-2,n-k)/(2*k-1). (End)

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

Original entry on oeis.org

1, 2, -6, 42, -350, 3234, -31878, 328426, -3494142, 38093442, -423344966, 4778162922, -54621614814, 631114404258, -7358619459654, 86472788963370, -1023093071862526, 12177054520248834, -145700860758056838, 1751559565664348842, -21145576694586256734
Offset: 0

Views

Author

Seiichi Manyama, Jul 23 2023

Keywords

Crossrefs

Cf. A364393, A364408, A364409.
Cf. A349310, A364400.

Programs

  • Maple
    A364407 := proc(n)
    if n = 0 then
        1;
    else
        (-1)^(n-1)*add( binomial(n,k) * binomial(n+3*k-2,n-1),k=0..n)/n ;
    end if;
end proc:
seq(A364407(n),n=0..70); # R. J. Mathar, Jul 25 2023
  • Mathematica
    nmax = 20; A[_] = 1;
Do[A[x_] = 1 + x*(1 + 1/A[x]^3) + O[x]^(nmax+1) // Normal, {nmax+1}];
CoefficientList[A[x], x] (* Jean-François Alcover, Mar 03 2024 *)
  • PARI
    a(n) = if(n==0, 1, (-1)^(n-1)*sum(k=0, n, binomial(n, k)*binomial(n+3*k-2, n-1))/n);

Formula

G.f.: A(x) = 1/B(-x) where B(x) is the g.f. of A349310.
a(n) = (-1)^(n-1) * (1/n) * Sum_{k=0..n} binomial(n,k) * binomial(n+3*k-2,n-1) for n > 0.
D-finite with recurrence 3*n*(52*n-187)*(3*n-1) *(3*n-2)*a(n) +(14392*n^4 -70190*n^3 +56951*n^2 +50237*n -49500)*a(n-1) +3*(-17252*n^4 +205959*n^3 -851664*n^2 +1432459*n -815652)*a(n-2) +18*(-472*n^4 +1294*n^3 +36359*n^2 -226731*n +361171)*a(n-3) -27*(n-5)*(404*n^3 -2235*n^2 -4058*n +26406)*a(n-4) -81*(n-5)*(n-6) *(8*n^2+358*n-1785)*a(n-5) +243*(n-5)*(n-6) *(n-7)*(4*n-31)*a(n-6)=0. - R. J. Mathar, Jul 25 2023

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

Original entry on oeis.org

1, 2, -8, 72, -768, 9072, -114240, 1502976, -20414208, 284083968, -4029438976, 58040074752, -846682968064, 12483389708288, -185725854932992, 2784798982701056, -42039464045854720, 638415031298588672, -9746180768647217152, 149486708349609050112
Offset: 0

Views

Author

Seiichi Manyama, Jul 23 2023

Keywords

Crossrefs

Cf. A364393, A364407, A364409.
Cf. A349311.

Programs

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

Formula

G.f.: A(x) = 1/B(-x) where B(x) is the g.f. of A349311.
a(n) = (-1)^(n-1) * (1/n) * Sum_{k=0..n} binomial(n,k) * binomial(n+4*k-2,n-1) for n > 0.

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

Original entry on oeis.org

1, 2, -10, 110, -1430, 20570, -315282, 5047350, -83406510, 1411954610, -24360750810, 426796726334, -7572551327430, 135790011411850, -2457028916693090, 44804882306441990, -822573909558939998, 15191515999168557410, -282038057756813698730
Offset: 0

Views

Author

Seiichi Manyama, Jul 23 2023

Keywords

Links

Crossrefs

Cf. A112478, A364393, A364407, A364408, A366266, A366267, A366268.
Cf. A349312.

Programs

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

Formula

G.f.: A(x) = 1/B(-x) where B(x) is the g.f. of A349312.
a(n) = (-1)^(n-1) * (1/n) * Sum_{k=0..n} binomial(n,k) * binomial(n+5*k-2,n-1) for n > 0.

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

Original entry on oeis.org

1, 2, -8, 60, -552, 5648, -61712, 705104, -8321696, 100658368, -1241281536, 15546987648, -197234640384, 2529169695232, -32728878054144, 426864306146560, -5605439340018176, 74050470138645504, -983432207024885760, 13122261492710033408, -175836387068096147456
Offset: 0

Views

Author

Seiichi Manyama, Jul 22 2023

Keywords

Crossrefs

Cf. A364393, A364397, A364399.
Cf. A219534.

Programs

  • Maple
    A364395 := proc(n)
    if n = 0 then
        1;
    else
    (-1)^(n-1)*add( binomial(n,k) * binomial(2*n+2*k-2,n-1),k=0..n)/n ;
    end if;
end proc:
seq(A364395(n),n=0..80); # R. J. Mathar, Jul 25 2023
a := n -> `if`(n=0, 1, (-1)^(n+1)*binomial(2*(n-1), n-1)*hypergeom([n-1/2, -n, n], [(n+1)/2, n/2], -1) / n):
seq(simplify(a(n)), n = 0..20);  # Peter Luschny, Mar 03 2024
  • Mathematica
    nmax = 20; A[_] = 1;
Do[A[x_] = 1 + x/A[x]*(1 + 1/A[x]^2) + O[x]^(nmax+1) // Normal, {nmax+1}];
CoefficientList[A[x], x] (* Jean-François Alcover, Mar 03 2024 *)
  • PARI
    a(n) = if(n==0, 1, (-1)^(n-1)*sum(k=0, n, binomial(n, k)*binomial(2*n+2*k-2, n-1))/n);

Formula

G.f.: A(x) = 1/B(-x) where B(x) is the g.f. of A219534.
a(n) = (-1)^(n-1) * (1/n) * Sum_{k=0..n} binomial(n,k) * binomial(2*n+2*k-2,n-1) for n > 0.
D-finite with recurrence 9*n*(130549*n-619680) *(3*n-1)*(3*n-2)*a(n) +6*(-15361165*n^4 +161422948*n^3 -662268162*n^2 +955427047*n -435307620)*a(n-1) +4*(-908652649*n^4 +9061174176*n^3 -32838390812*n^2 +51018866685*n -28467674946)*a(n-2) -24*(n-3)*(50425637*n^3 -426659887*n^2 +1128823867*n -890225572)*a(n-3) -16*(n-3)*(n-4) *(4607885*n -6704077)*(2*n-9)*a(n-4)=0. - R. J. Mathar, Jul 25 2023
a(n) ~ c*(-1)^(n+1)*4^n*3F2([n-1/2, -n, n], [(n+1)/2, n/2], -1)*n^(-3/2), with c = 1/(4*sqrt(Pi)). - Stefano Spezia, Oct 21 2023
a(n) = (-1)^(n+1)*binomial(2*(n-1), n-1)*hypergeom([n-1/2, -n, n], [(n+1)/2, n/2], -1) / n. - Peter Luschny, Mar 03 2024

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

Original entry on oeis.org

1, 2, -16, 212, -3400, 60384, -1142960, 22598832, -461250208, 9644611008, -205537131008, 4447969973888, -97482797466624, 2159242220999936, -48260706692535552, 1087076798266594048, -24652590023639251456, 562396337623786449920
Offset: 0

Views

Author

Seiichi Manyama, Jul 22 2023

Keywords

Crossrefs

Cf. A364393, A364395, A364397.
Cf. A364398, A364400.
Cf. A363380.

Programs

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

Formula

G.f.: A(x) = 1/B(-x) where B(x) is the g.f. of A363380.
a(n) = (-1)^(n-1) * (1/n) * Sum_{k=0..n} binomial(n,k) * binomial(4*n+2*k-2,n-1) for n > 0.
a(n) ~ c*(-1)^(n-1)*256^n*27^(-n)*3F2([-n, 2*n, 2*n-1/2], [3*n/2, (3*n+1)/2], -1)*n^(-3/2), with c = (1/8)*sqrt(3/(2*Pi)). - Stefano Spezia, Oct 21 2023

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

Original entry on oeis.org

1, 2, -12, 124, -1560, 21776, -324256, 5046096, -81086112, 1335113408, -22408067200, 381942129792, -6593494698752, 115044039049728, -2025580621035520, 35943759448886528, -642162301086308864, 11541259115333684224, -208521418711421405184
Offset: 0

Views

Author

Seiichi Manyama, Jul 22 2023

Keywords

Crossrefs

Cf. A364393, A364395, A364399.
Cf. A363311.

Programs

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

Formula

G.f.: A(x) = 1/B(-x) where B(x) is the g.f. of A363311.
a(n) = (-1)^(n-1) * (1/n) * Sum_{k=0..n} binomial(n,k) * binomial(3*n+2*k-2,n-1) for n > 0.
a(n) ~ c*(-1)^(n+1)*27^n*4^(-n)*3F2([-n, 3*n/2, (3n-1)/2], [n, n+1/2], -1)*n^(-3/2), with c = 1/(3*sqrt(3*Pi)). - Stefano Spezia, Oct 21 2023

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

Views

Author

Seiichi Manyama, Oct 07 2023

Keywords

Links

Crossrefs

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

Programs

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

Formula

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

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

Original entry on oeis.org

1, 2, 5, 20, 90, 440, 2266, 12110, 66525, 373320, 2130865, 12332512, 72202860, 426861830, 2544727475, 15280236800, 92333523153, 561054410200, 3426075429740, 21013974400920, 129403499560500, 799733464576880, 4958649842375975, 30837325310579350
Offset: 0

Views

Author

Seiichi Manyama, Oct 10 2023

Keywords

Crossrefs

Cf. A112478, A364393, A364407, A364408, A364409, A366266, A366267, A366268, A366453, A366454, A366455, A366456.
Cf. A259757, A366404.

Programs

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

Formula

G.f.: A(x) = 1/B(-x) where B(x) is the g.f. of A366404.
a(n) = Sum_{k=0..n} binomial(3*k/2+1,n-k) * binomial(5*k/2,k) / (3*k/2+1).
G.f.: A(x) = B(x)^2 where B(x) is the g.f. of A259757. - Seiichi Manyama, Apr 04 2024

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

Original entry on oeis.org

1, 2, 7, 42, 287, 2142, 16898, 138600, 1170037, 10098774, 88712736, 790540296, 7128879940, 64933227996, 596523624144, 5520761026854, 51424824505054, 481741853731110, 4535711525840271, 42897532229559714, 407358615638833341, 3882484733036731500
Offset: 0

Views

Author

Seiichi Manyama, Oct 10 2023

Keywords

Crossrefs

Cf. A112478, A364393, A364407, A364408, A364409, A366266, A366267, A366268, A366452, A366454, A366455, A366456.
Cf. A295537, A366405.

Programs

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

Formula

G.f.: A(x) = 1/B(-x) where B(x) is the g.f. of A366405.
a(n) = Sum_{k=0..n} binomial(5*k/2+1,n-k) * binomial(7*k/2,k) / (5*k/2+1).
G.f.: A(x) = B(x)^2 where B(x) is the g.f. of A295537. - Seiichi Manyama, Apr 04 2024
Showing 1-10 of 16 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.