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

A094073 Coefficients arising in combinatorial field theory.

Original entry on oeis.org

4, 240, 49938, 24608160, 23465221750, 38341895571708, 98780305524248572, 377796303580335320432, 2048907276496726375662702, 15198414983297581845761672560, 149768511689247547252666676150490
Offset: 1

Views

Author

N. J. A. Sloane, May 01 2004

Keywords

Crossrefs

Programs

  • Maple
    with(combinat): a:=n->bell(2*n)*(2*n)!*coeff(series(exp(x*sinh(x)), x=0,40), x^(2*n)): seq(a(n),n=1..13); # Emeric Deutsch, Jan 22 2005
  • Mathematica
    a[n_] := (2n)! BellB[2n] SeriesCoefficient[Exp[x Sinh[x]], {x, 0, 2n}];
    Table[a[n], {n, 1, 11}] (* Jean-François Alcover, Nov 11 2018 *)

Formula

a(n) = (2n)!*bell(2n)*coeff(exp(x*sinh(x)), x^(2n)). - Emeric Deutsch, Jan 22 2005

Extensions

More terms from Emeric Deutsch, Jan 22 2005

A094071 Coefficients arising in combinatorial field theory.

Original entry on oeis.org

1, 2, 10, 75, 572, 6293, 92962, 1395180, 25482135, 582310475, 13697614020, 364311810217, 11551145067139, 380339218683310, 13636394439014770, 563142483841155427, 24264229405883569164, 1114389674994185476663
Offset: 0

Views

Author

N. J. A. Sloane, May 01 2004

Keywords

References

  • P. Blasiak, K. A. Penson, A. I. Solomon, A. Horzela and G. E. H. Duchamp, Some useful combinatorial formulas for bosonic operators, J. Math. Phys. 46, 052110 (2005) (6 pages).
  • P. Blasiak, K. A. Penson, A. I. Solomon, A. Horzela and G E. H. Duchamp, Combinatorial field theories via boson normal ordering, preprint, Apr 27 2004.

Crossrefs

Programs

  • Maple
    with(combinat):F:=series(exp(x+x^3/3!),x=0,25): seq((n+1)!*coeff(F,x^(n+1))*bell(n+1),n=0..20);
  • Mathematica
    a[n_] := (n+1)! BellB[n+1] SeriesCoefficient[Exp[x+x^3/3!], {x, 0, n+1}];
    Table[a[n], {n, 0, 17}] (* Jean-François Alcover, Nov 11 2018 *)

Formula

a(n)=(n+1)!*B(n+1)*[x^(n+1)](exp(x+x^3/3!)), where B(n) are the Bell numbers (A000110) - Emeric Deutsch, Nov 23 2004

Extensions

More terms from Emeric Deutsch, Nov 23 2004

A094072 Coefficients arising in combinatorial field theory.

Original entry on oeis.org

1, 6, 50, 615, 10192, 214571, 5544394, 171367020, 6208928376, 259542887975, 12356823485580, 662921411131909, 39714830070598204, 2636484537372437498, 192653800829700013970, 15405383160836582657251
Offset: 0

Views

Author

N. J. A. Sloane, May 01 2004

Keywords

References

  • P. Blasiak, K. A. Penson, A. I. Solomon, A. Horzela and G. E. H. Duchamp, Some useful combinatorial formulas for bosonic operators, J. Math. Phys. 46, 052110 (2005) (6 pages).

Crossrefs

Programs

  • Maple
    with(combinat): seq(bell(n+1)*sum(k^(n+1-k)*binomial(n+1,k),k=1..n+1),n=0..18);
  • Mathematica
    Table[BellB[n+1]Sum[Binomial[n+1,k]k^(n+1-k),{k,n+1}],{n,0,20}] (* Harvey P. Dale, Feb 05 2015 *)

Formula

a(n) = B(n+1)*Sum_{k=1..n+1} binomial(n+1, k)*k^(n+1-k), where B(n) are the Bell numbers (A000110). - Emeric Deutsch, Nov 23 2004
E.g.f.: exp(-1)*Sum_{k>=0} exp(k*x*exp(k*x))/k!. - Vladeta Jovovic, Sep 26 2006

Extensions

More terms from Emeric Deutsch, Nov 23 2004
Showing 1-3 of 3 results.