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

A114934 Number of connected (5,n)-hypergraphs (without empty edges and without multiple edges).

Original entry on oeis.org

0, 0, 0, 21, 2773, 148365, 5878391, 204819447, 6721694469, 214306917321, 6736603947907, 210284186632443, 6541309609120385, 203129541349695597, 6302428271530970943, 195459285517696665759, 6060542952694406463421
Offset: 0

Views

Author

Goran Kilibarda and Vladeta Jovovic, Jan 08 2006

Keywords

Crossrefs

Programs

  • Mathematica
    With[{nmax = 50}, CoefficientList[Series[(1/5!)*(Exp[31*x] - 5*Exp[16*x] - 10*Exp[15*x] - 10*Exp[10*x] + 20*Exp[9*x] + 40*Exp[8*x] + 65*Exp[7*x] - 30*Exp[6*x] - 96*Exp[5*x] - 45*Exp[4*x] + 20*Exp[3*x] + 50*Exp[2*x] + 24*Exp[x] - 24), {x, 0, nmax}], x] Range[0, nmax]!] (* G. C. Greubel, Oct 07 2017 *)
  • PARI
    x='x+O('x^50); concat([0,0,0], Vec(serlaplace((1/5!)*(exp(31*x) - 5*exp(16*x) - 10*exp(15*x) - 10*exp(10*x) + 20*exp(9*x) + 40*exp(8*x) + 65*exp(7*x) - 30*exp(6*x) - 96*exp(5*x) - 45*exp(4*x) + 20*exp(3*x) + 50*exp(2*x) + 24*exp(x) - 24)))) \\ G. C. Greubel, Oct 07 2017

Formula

E.g.f.: (1/5!)*(exp(31*x) - 5*exp(16*x) - 10*exp(15*x) - 10*exp(10*x) + 20*exp(9*x) + 40*exp(8*x) + 65*exp(7*x) - 30*exp(6*x) - 96*exp(5*x) - 45*exp(4*x) + 20*exp(3*x) + 50*exp(2*x) + 24*exp(x) - 24).

A114932 Number of connected (3,n)-hypergraphs (without empty edges and without multiple edges).

Original entry on oeis.org

0, 0, 1, 25, 267, 2265, 17471, 128765, 927067, 6591505, 46545591, 327428805, 2298406067, 16114352345, 112902172111, 790721005645, 5536667136267, 38763140938785, 271367842141031, 1899678231827285, 13298160713181667
Offset: 0

Views

Author

Goran Kilibarda and Vladeta Jovovic, Jan 08 2006

Keywords

Crossrefs

Programs

  • Mathematica
    With[{nmax = 50}, CoefficientList[Series[(1/3!)*(Exp[7*x] - 3*Exp[4*x] - Exp[3*x] + 3*Exp[2*x] + 2*Exp[x] - 2), {x, 0, nmax}], x] Range[0, nmax]!] (* G. C. Greubel, Oct 07 2017 *)
  • PARI
    x='x+O('x^50); concat([0,0], Vec(serlaplace((1/3!)*(exp(7*x)-3*exp(4*x)-exp(3*x)+3*exp(2*x)+2*exp(x)-2)))) \\ G. C. Greubel, Oct 07 2017

Formula

E.g.f.: (1/3!)*(exp(7*x)-3*exp(4*x)-exp(3*x)+3*exp(2*x)+2*exp(x)-2).
Showing 1-2 of 2 results.