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-6 of 6 results.

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

Original entry on oeis.org

1, 2, 8, 54, 460, 4361, 43988, 462580, 5014252, 55624944, 628432101, 7205500484, 83632219892, 980710882430, 11601345881748, 138278231052451, 1659037424218780, 20020306637339944, 242835190201382648, 2958961154058610552, 36203518795424475661
Offset: 0

Views

Author

Ilya Gutkovskiy, Jul 26 2021

Keywords

Comments

Binomial transform of A002294.

Links

Crossrefs

Cf. A002294, A007317, A188687, A227035, A346646, A346648, A346649, A346650.

Programs

  • Maple
    A346647 := proc(n)
    hypergeom([-n,1/5,2/5,3/5,4/5],[1/2,3/4,1,5/4],-3125/256) ;
    simplify(%) ;
end proc:
seq(A346647(n),n=0..40) ; # R. J. Mathar, Jan 10 2023
  • Mathematica
    Table[Sum[Binomial[n, k] Binomial[5 k, k]/(4 k + 1), {k, 0, n}], {n, 0, 20}]
nmax = 20; A[] = 0; Do[A[x] = 1/(1 - x) + x (1 - x)^3 A[x]^5 + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
nmax = 20; CoefficientList[Series[Sum[(Binomial[5 k, k]/(4 k + 1)) x^k/(1 - x)^(k + 1), {k, 0, nmax}], {x, 0, nmax}], x]
Table[HypergeometricPFQ[{1/5, 2/5, 3/5, 4/5, -n}, {1/2, 3/4, 1, 5/4}, -3125/256], {n, 0, 20}]
  • PARI
    a(n) = sum(k=0, n, binomial(n,k)*binomial(5*k,k)/(4*k + 1)); \\ Michel Marcus, Jul 26 2021

Formula

G.f. A(x) satisfies: A(x) = 1 / (1 - x) + x * (1 - x)^3 * A(x)^5.
G.f.: Sum_{k>=0} ( binomial(5*k,k) / (4*k + 1) ) * x^k / (1 - x)^(k+1).
a(n) ~ 3381^(n + 3/2) / (78125 * sqrt(Pi) * n^(3/2) * 2^(8*n + 7/2)). - Vaclav Kotesovec, Jul 30 2021
D-finite with recurrence +8*n*(4*n+1) *(2*n-1)*(4*n-1)*a(n) +(-4405*n^4 +9322*n^3 -7655*n^2 +2978*n -480)*a(n-1) +12*(n-1) *(1255*n^3 -3829*n^2 +4204*n -1640) *a(n-2) -2*(n-1) *(n-2) *(10655*n^2 -32221*n +26076) *a(n-3) +4*(n-1) *(n-2) *(n-3)*(3445*n -6922) *a(n-4) -3381*(n-1)*(n-2) *(n-3)*(n-4)*a(n-5)=0. - R. J. Mathar, Aug 17 2023

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

Original entry on oeis.org

1, 1, 1, 2, 5, 11, 25, 64, 169, 443, 1181, 3224, 8897, 24701, 69161, 195255, 554577, 1583109, 4541461, 13086574, 37856437, 109892403, 320034309, 934774902, 2737689189, 8037746691, 23652564261, 69749727716, 206091735797, 610061655665, 1808962146529
Offset: 0

Views

Author

Karol A. Penson, Jun 25 2013

Keywords

Links

Crossrefs

Cf. A049130, A212385, A226910, A227035.

Programs

  • Maple
    A226974 := proc(n)
    hypergeom([-n/3,-n/3+2/3,-n/3+1/3,1/4,1/2,3/4],[1/3,2/3,2/3,1,4/3],-256/27) ;
    simplify(%) ;
end proc:
seq(A226974(n),n=0..40) ; # R. J. Mathar, Jan 10 2023
  • Mathematica
    Table[Sum[Binomial[n,3*k]*Binomial[4*k,k]/(3*k+1), {k,0,Floor[n/3]}],{n,0,20}] (* Vaclav Kotesovec, Jun 28 2013 *)
  • Maxima
    a(n):=if n<0 then 0 else if n=0 then 1 else sum(sum(sum(a(l)*a(i)*a(j)*a(n-i-j-l-3),l,0,n-3-i-j),j,0,n-3-i),i,0,n-3)+1; /* Vladimir Kruchinin, May 17 2020 */
  • PARI
    a(n) = sum(k=0, n\3, binomial(n,3*k)*binomial(4*k,k)/(3*k+1)); \\ Michel Marcus, Sep 16 2021

Formula

a(n) = Sum_{k=0..floor(n/3)} binomial(n,3*k)*A002293(k).
Representation in terms of special values of hypergeometric function of type 6F5: a(n) = hypergeom([1/4, 1/2, 3/4, -(1/3)*n, -(1/3)*n+2/3, -(1/3)*n+1/3], [1/3, 2/3, 2/3, 1, 4/3],-4^4/3^3), n>=0.
Recurrence: 27*n*(n+1)*(n-1)*a(n) = 162*n*(n-1)^2*a(n-1) - 81*(5*n^2-15*n+12)*(n-1)*a(n-2) + 4*(199*n^3 - 1098*n^2 + 2043*n - 1296)*a(n-3) - (n-3)*(1173*n^2 - 5097*n + 5584)*a(n-4) + 6*(n-4)*(n-3)*(155*n-401)*a(n-5) - 283*(n-5)*(n-4)*(n-3)*a(n-6). - Vaclav Kotesovec, Jun 28 2013
a(n) ~ (3+4^(1+1/3))^(n+3/2)/(8*3^(n+1)*sqrt(2*Pi)*n^(3/2)). - Vaclav Kotesovec, Jun 28 2013
G.f. satisfies A(x)=1+x^3*A(x)^4+x/(1-x). - Vladimir Kruchinin, May 17 2020
From Peter Bala, Sep 15 2021: (Start)
O.g.f.: A(x) = (1/x)*series reversion( x*(1 - x^3)/(1 + x*(1 - x^3)) ).
The g.f. of the m-th binomial transform of this sequence is equal to (1/x)*series reversion( x*(1 - x^3)/(1 + (m + 1)*x*(1 - x^3)) ). The case m = -1 gives the sequence [1,0,0,1,0,0,4,0,0,22,0,0,140,...] - an aerated version of A002293. (End)

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

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 7, 22, 57, 127, 259, 529, 1189, 3004, 8009, 21073, 53233, 129813, 312733, 763573, 1915251, 4914736, 12720841, 32800186, 83869501, 213261712, 542609237, 1388542312, 3579043987, 9273567337, 24075321925, 62475528190, 161969731985, 419914766965
Offset: 0

Views

Author

Karol A. Penson, Jun 22 2013

Keywords

Links

Crossrefs

Cf. A002295, A049130, A212385, A227035.

Programs

  • Mathematica
    Table[Sum[Binomial[n,5*k]*Binomial[6*k,k]/(5*k+1),{k,0,Floor[n/5]}],{n,0,20}] (* Vaclav Kotesovec, Jun 28 2013 *)
  • PARI
    a(n)=sum(k=0,n\5,binomial(n,5*k)*binomial(6*k,k)/(5*k+1)) \\ Charles R Greathouse IV, Jun 24 2013

Formula

Representation in terms of special values of generalized hypergeometric function of type 10F9: a(n) = hypergeom([1/6, 1/3, 1/2, 2/3, 5/6, -(1/5)*n, -(1/5)*n+4/5, -(1/5)*n+3/5, -(1/5)*n+2/5, 1/5-(1/5)*n], [1/5, 2/5, 2/5, 3/5, 3/5, 4/5, 4/5, 1, 6/5], -6^6/5^5), n>=0.
Recurrence: -49781*(n-9)*(n-8)*(n-7)*(n-6)*(n-5)*a(n-10) + 10*(n-8)*(n-7)*(n-6)*(n-5)*(26453*n - 123726)*a(n-9) - 15*(n-7)*(n-6)*(n-5)*(40479*n^2 - 351957*n + 782140)*a(n-8) + 120*(n-6)*(n-5)*(7013*n^3 - 87699*n^2 + 378278*n - 565577)*a(n-7) - 6*(n-5)*(148255*n^4 - 2435310*n^3 + 15491085*n^2 - 45173430*n + 50791476)*a(n-6) + 12*(69513*n^5 - 1361100*n^4 + 10838875*n^3 - 43818750*n^2 + 89776250*n - 74437500)*a(n-5) - 93750*(7*n^4 - 98*n^3 + 525*n^2 - 1274*n + 1180)*(n-3)*a(n-4) + 375000*(n-2)*(n^2-6*n+10)*(n-3)^2*a(n-3) - 46875*(n-2)*(n-1)*(3*n^2-15*n+20)*(n-3)*a(n-2) + 31250*(n-2)^2*(n-1)*n*(n-3)*a(n-1) - 3125*(n-2)*(n-1)*n*(n+1)*(n-3)*a(n) = 0. - Vaclav Kotesovec, Jun 28 2013
a(n) ~ (5+6^(1+1/5))^(n+3/2)/(5^(n+1)*6^(1+3/10)*sqrt(2*Pi)*n^(3/2)). - Vaclav Kotesovec, Jun 28 2013
G.f. A(x) satisfies: A(x) = 1 / (1 - x) + x^5 * A(x)^6. - Ilya Gutkovskiy, Jul 25 2021
From Peter Bala, Sep 15 2021: (Start)
O.g.f.: A(x) = (1/x)*series reversion ( x*(1 - x^5)/(1 + x*(1 - x^5)) ).
The g.f. of the m-th binomial transform of this sequence is equal to (1/x)*series reversion ( x*(1 - x^5)/(1 + (m + 1)*x*(1 - x^5)) ). The case m = -1 gives the sequence [1, 0, 0, 0, 0, 1, 0, 0,0, 0, 6, 0, 0, 0, 0, 51, 0, 0, 0, 0, 506, ...] - an aerated version of A002295. (End)

A369631 Expansion of (1/x) * Series_Reversion( x * (1/(1+x^4) - x) ).

Original entry on oeis.org

1, 1, 2, 5, 15, 49, 168, 594, 2149, 7920, 29640, 112359, 430564, 1665197, 6491280, 25478886, 100611695, 399421439, 1593221090, 6382176160, 25664184349, 103560846454, 419215870860, 1701907025715, 6927658961599, 28268225980197, 115608889788304
Offset: 0

Views

Author

Seiichi Manyama, Jan 28 2024

Keywords

Links

Crossrefs

Cf. A007863, A199874, A369630.
Cf. A227035.

Programs

  • PARI
    my(N=30, x='x+O('x^N)); Vec(serreverse(x*(1/(1+x^4)-x))/x)
  • PARI
    a(n) = sum(k=0, n\4, binomial(2*n-4*k+1, k)*binomial(2*n-4*k, n-4*k))/(n+1);

Formula

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

A370838 Expansion of (1/x) * Series_Reversion( x/(x+1/(1+x^4)) ).

Original entry on oeis.org

1, 1, 1, 1, 0, -4, -14, -34, -64, -80, 16, 496, 1946, 5266, 10830, 14886, -884, -92564, -390404, -1113380, -2405649, -3529749, -360799, 20509101, 91770476, 271807476, 608858576, 941203576, 243522996, -4977842140, -23564569004, -72054072364, -166314098964
Offset: 0

Views

Author

Seiichi Manyama, Mar 03 2024

Keywords

Links

Crossrefs

Cf. A370836, A370837.
Cf. A227035, A370801.

Programs

  • PARI
    my(N=40, x='x+O('x^N)); Vec(serreverse(x/(x+1/(1+x^4)))/x)
  • PARI
    a(n) = sum(k=0, n\4, (-1)^k*binomial(n, 4*k)*binomial(5*k, k)/(4*k+1));

Formula

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

A369688 G.f. satisfies A(x) = 1 + x*A(x) + x^2*(1-x)^3*A(x)^5.

Original entry on oeis.org

1, 1, 2, 4, 12, 36, 126, 442, 1644, 6172, 23801, 92731, 366688, 1462852, 5891808, 23898576, 97600556, 400844140, 1654818768, 6862550360, 28576414261, 119434041561, 500849380048, 2106740001442, 8886482895068, 37580609774876, 159303913630686
Offset: 0

Views

Author

Seiichi Manyama, Jan 28 2024

Keywords

Crossrefs

Cf. A227035, A346647, A364522, A364597.
Cf. A049130, A364594.

Programs

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

Formula

a(n) = Sum_{k=0..floor(n/2)} binomial(n,2*k) * binomial(5*k,k) / (4*k+1).
Showing 1-6 of 6 results.

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

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