|
|
A094732
|
|
Number of connected ordered 5-element multiantichains on a labeled n-set.
|
|
1
|
|
|
0, 1, 1, 241, 11761, 736801, 50524321, 3176975761, 171220124881, 8021076673921, 337296669440641, 13098877345981681, 479949442942292401, 16851170646696553441, 573314381587074123361, 19054886956855687698001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: exp(31*x) - 20*exp(23*x) + 60*exp(19*x) + 20*exp(17*x) + 5*exp(16*x) - 95*exp(15*x) - 120*exp(14*x) + 150*exp(13*x) + 180*exp(12*x) - 420*exp(11*x) - 110*exp(10*x) + 620*exp(9*x) + 160*exp(8*x) - 690*exp(7*x) + 840*exp(6*x) - 936*exp(5*x) - 1140*exp(4*x) + 3560*exp(3*x) - 3010*exp(2*x) + 1095*exp(x) - 150.
|
|
MATHEMATICA
|
With[{nmax = 50}, CoefficientList[Series[Exp[31*x] - 20*Exp[23*x] + 60*Exp[19*x] + 20*Exp[17*x] + 5*Exp[16*x] - 95*Exp[15*x] - 120*Exp[14*x] + 150*Exp[13*x] + 180*Exp[12*x] - 420*Exp[11*x] - 110*Exp[10*x] + 620*Exp[9*x] + 160*Exp[8*x] - 690*Exp[7*x] + 840*Exp[6*x] - 936*Exp[5*x] - 1140*Exp[4*x] + 3560*Exp[3*x] - 3010*Exp[2*x] + 1095*Exp[x] - 150, {x, 0, nmax}], x] Range[0, nmax]!] (* G. C. Greubel, Oct 08 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|