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

A005716 Coefficient of x^8 in expansion of (1+x+x^2)^n.

Original entry on oeis.org

1, 15, 90, 357, 1107, 2907, 6765, 14355, 28314, 52624, 93093, 157950, 258570, 410346, 633726, 955434, 1409895, 2040885, 2903428, 4065963, 5612805, 7646925, 10293075, 13701285, 18050760, 23554206, 30462615, 39070540, 49721892, 62816292, 78816012, 98253540
Offset: 4

Views

Author

N. J. A. Sloane

Keywords

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 78.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

Crossrefs

Cf. A000574, A005581, A005712, A005714, A005715, A111808.

Programs

  • Magma
    I:=[1, 15, 90, 357, 1107, 2907, 6765, 14355, 28314]; [n le 9 select I[n] else 9*Self(n-1)-36*Self(n-2)+84*Self(n-3)-126*Self(n-4)+126*Self(n-5)-84*Self(n-6)+36*Self(n-7)-9*Self(n-8)+Self(n-9): n in [1..40]]; // Vincenzo Librandi, Jun 16 2012
  • Magma
    /* By definition: */ P:=PolynomialRing(Integers()); [ Coefficients((1+x+x^2)^n)[9]: n in [4..32] ]; // Bruno Berselli, Jun 17 2012
  • Maple
    A005716:=-(6*z-9*z**2+3*z**3+1)/(z-1)**9; # Conjectured by Simon Plouffe in his 1992 dissertation.
A005716 := n -> GegenbauerC(`if`(8A005716(n)), n=4..20); # Peter Luschny, May 10 2016
  • Mathematica
    CoefficientList[Series[(1+6*x-9*x^2+3*x^3)/(1-x)^9,{x,0,40}],x] (* Vincenzo Librandi, Jun 16 2012 *)

Formula

a(n) = binomial(n+1, 5)*(n^2+23*n-84)*(n+10)/336, n >= 4.
G.f.: (x^4)*(1+6*x-9*x^2+3*x^3)/(1-x)^9. (Numerator polynomial is N3(8, x) from A063420).
a(n) = A027907(n, 8), n >= 4 (ninth column of trinomial coefficients).
a(n) = A111808(n,8) for n>7. - Reinhard Zumkeller, Aug 17 2005
a(n) = 9*a(n-1) - 36*a(n-2) + 84*a(n-3) - 126*a(n-4) + 126*a(n-5) - 84*a(n-6) + 36*a(n-7) - 9*a(n-8) + a(n-9). Vincenzo Librandi, Jun 16 2012
a(n) = binomial(n,4) + 10*binomial(n,5) + 15*binomial(n,6) + 7*binomial(n,7) + binomial(n,8) (see our comment in A026729). - Vladimir Shevelev and Peter J. C. Moses, Jun 22 2012
a(n) = GegenbauerC(N, -n, -1/2) where N = 8 if 8Peter Luschny, May 10 2016

Extensions

More terms from Vladeta Jovovic, Oct 02 2000

A005714 Coefficient of x^6 in expansion of (1+x+x^2)^n.

Original entry on oeis.org

1, 10, 45, 141, 357, 784, 1554, 2850, 4917, 8074, 12727, 19383, 28665, 41328, 58276, 80580, 109497, 146490, 193249, 251713, 324093, 412896, 520950, 651430, 807885, 994266, 1214955, 1474795, 1779121, 2133792, 2545224, 3020424, 3567025, 4193322, 4908309, 5721717
Offset: 3

Views

Author

N. J. A. Sloane

Keywords

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 78.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

Crossrefs

Cf. A000574, A005581, A005712, A005715-A005716, A111808.

Programs

  • Magma
    I:=[1, 10, 45, 141, 357, 784, 1554]; [n le 7 select I[n] else 7*Self(n-1)-21*Self(n-2)+35*Self(n-3)-35*Self(n-4)+21*Self(n-5)-7*Self(n-6)+Self(n-7): n in [1..40]]; // Vincenzo Librandi, Jun 16 2012
  • Magma
    /* By definition: */ P:=PolynomialRing(Integers()); [ Coefficients((1+x+x^2)^n)[7]: n in [3..35] ]; // Bruno Berselli, Jun 17 2012
  • Maple
    A005714:=-(1+3*z-4*z**2+z**3)/(z-1)**7; # Conjectured by Simon Plouffe in his 1992 dissertation.
A005714 := n -> GegenbauerC(`if`(6A005714(n)), n=3..20); # Peter Luschny, May 10 2016
  • Mathematica
    a[n_] := Coefficient[(1 + x + x^2)^n, x, 6]; Table[a[n], {n, 3, 35}]
CoefficientList[Series[(1+3*x-4*x^2+x^3)/(1-x)^7,{x,0,40}],x] (* Vincenzo Librandi, Jun 16 2012 *)

Formula

a(n) = binomial(n, 3)*(n^3+18*n^2+17*n-120) /120.
G.f.: (x^3)*(1+3*x-4*x^2+x^3)/(1-x)^7. (Numerator polynomial is N3(6, x) from A063420).
a(n) = A027907(n, 6), n >= 3 (seventh column of trinomial coefficients).
a(n) = A111808(n,6) for n>5. - Reinhard Zumkeller, Aug 17 2005
a(n) = 7*a(n-1) -21*a(n-2) +35*a(n-3) -35*a(n-4) +21*a(n-5) -7*a(n-6) +a(n-7). Vincenzo Librandi, Jun 16 2012
a(n) = binomial(n,3) + 6*binomial(n,4) + 5*binomial(n,5) + binomial(n,6) (see our comment in A026729). - Vladimir Shevelev and Peter J. C. Moses, Jun 22 2012
a(n) = GegenbauerC(N, -n, -1/2) where N = 6 if 6Peter Luschny, May 10 2016
E.g.f.: exp(x)*x^3*(120 + 180*x + 30*x^2 + x^3)/720. - Stefano Spezia, Mar 28 2023

Extensions

More terms from Vladeta Jovovic, Oct 02 2000

A005715 Coefficient of x^7 in expansion of (1+x+x^2)^n.

Original entry on oeis.org

4, 30, 126, 393, 1016, 2304, 4740, 9042, 16236, 27742, 45474, 71955, 110448, 165104, 241128, 344964, 484500, 669294, 910822, 1222749, 1621224, 2125200, 2756780, 3541590, 4509180, 5693454, 7133130, 8872231, 10960608, 13454496
Offset: 4

Views

Author

N. J. A. Sloane

Keywords

References

  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 78.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

Crossrefs

Cf. A000574, A005581, A005712, A005714, A005716, A111808.

Programs

  • Magma
    I:=[4, 30, 126, 393, 1016, 2304, 4740, 9042]; [n le 8 select I[n] else 8*Self(n-1)-28*Self(n-2)+56*Self(n-3)-70*Self(n-4)+56*Self(n-5)-28*Self(n-6)+8*Self(n-7)-Self(n-8): n in [1..40]]; // Vincenzo Librandi, Jun 16 2012
  • Magma
    /* By definition: */ P:=PolynomialRing(Integers()); [ Coefficients((1+x+x^2)^n)[8]: n in [4..33] ]; // Bruno Berselli, Jun 17 2012
  • Maple
    A005715:=(z-2)*(z**2-2)/(z-1)**8; # Conjectured by Simon Plouffe in his 1992 dissertation.
A005715 := n -> GegenbauerC(`if`(7A005715(n)), n=4..20); # Peter Luschny, May 10 2016
  • Mathematica
    CoefficientList[Series[(x-2)*(x^2-2)/(1-x)^8,{x,0,40}],x] (* Vincenzo Librandi, Jun 16 2012 *)

Formula

a(n) = binomial(n, 4)*(n^3+27*n^2+116*n-120)/210, n >= 4.
G.f.: (x^4)*(x-2)*(x^2-2)/(1-x)^8. (Numerator polynomial is N3(7, x) from A063420).
a(n) = A027907(n, 7), n >= 4 (eighth column of trinomial coefficients).
a(n) = A111808(n,7) for n>6. - Reinhard Zumkeller, Aug 17 2005
a(n) = 8*a(n-1) -28*a(n-2) +56*a(n-3) -70*a(n-4) +56*a(n-5) -28*a(n-6) +8*a(n-7) -a(n-8). Vincenzo Librandi, Jun 16 2012
a(n) = 4*binomial(n,4) + 10*binomial(n,5) + 6*binomial(n,6) + binomial(n,7) (see our comment in A026729). - Vladimir Shevelev and Peter J. C. Moses, Jun 22 2012
a(n) = GegenbauerC(N, -n, -1/2) where N = 7 if 7Peter Luschny, May 10 2016

Extensions

More terms from Vladeta Jovovic, Oct 02 2000

A064054 Tenth column of trinomial coefficients.

Original entry on oeis.org

5, 50, 266, 1016, 3139, 8350, 19855, 43252, 87802, 168168, 306735, 536640, 905658, 1481108, 2355962, 3656360, 5550755, 8260934, 12075184, 17363896, 24597925, 34370050, 47419905, 64662780, 87222720, 116470380, 154066125, 202008896, 262691396, 338962184
Offset: 0

Views

Author

Wolfdieter Lang, Aug 29 2001

Keywords

Links

Crossrefs

A005716 (ninth column), A111808.

Programs

  • Maple
    A064054 := n -> GegenbauerC(`if`(9A064054(n)), n=5..20); # Peter Luschny, May 10 2016
  • Mathematica
    Table[GegenbauerC[9, -n, -1/2], {n,5,50}] (* G. C. Greubel, Feb 28 2017 *)
  • PARI
    for(n=0,25, print1(binomial(n+5,5)*(n^4 + 66*n^3 + 1307*n^2 + 8706*n + 15120) /(9!/5!), ", ")) \\ G. C. Greubel, Feb 28 2017

Formula

a(n) = A027907(n+5, 9).
a(n) = binomial(n+5, 5)*(n^4+66*n^3+1307*n^2+8706*n+15120) /(9!/5!).
G.f.: (1+x-x^2)*(5-5*x+x^2)/(1-x)^10, numerator polynomial is N3(9, x)= 5+0*x-9*x^2+6*x^3-x^4 from array A063420.
a(n) = A111808(n+5,9) for n>3. - Reinhard Zumkeller, Aug 17 2005
a(n) = 5*binomial(n+5,5) + 20*binomial(n+5,6) + 21*binomial(n+5,7) + 8*binomial(n+5,8) + binomial(n+5,9) (see our comment in A026729). - Vladimir Shevelev and Peter J. C. Moses, Jun 22 2012
a(n) = GegenbauerC(N, -n, -1/2) where N = 9 if 9Peter Luschny, May 10 2016
Showing 1-4 of 4 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.