A094733 - OEIS

%I #11 Oct 08 2017 18:27:35

%S 0,1,1,727,64357,7512151,1143589261,177189092767,23695071256837,

%T 2668384623898951,260281239918269821,22750998388694399407,

%U 1832528834698360763317,138901315742774351716951,10061570091146133148587181,704453005976484684303395647

%N Number of connected ordered 6-element multiantichains on a labeled n-set.

%H G. C. Greubel, <a href="/A094733/b094733.txt">Table of n, a(n) for n = 0..550</a>

%F E.g.f.: exp(63*x) - 30*exp(47*x) + 120*exp(39*x) + 60*exp(35*x) + 60*exp(33*x) - 18*exp(32*x) - 324*exp(31*x) - 720*exp(29*x) + 810*exp(27*x) + 120*exp(26*x) + 480*exp(25*x) + 480*exp(24*x) - 900*exp(23*x) - 720*exp(22*x) - 240*exp(21*x) - 900*exp(20*x) + 2640*exp(19*x) + 615*exp(18*x) + 480*exp(17*x) + 510*exp(16*x) - 2955*exp(15*x) - 5070*exp(14*x) + 3960*exp(13*x) + 7320*exp(12*x) - 8640*exp(11*x) - 4860*exp(10*x) + 10620*exp(9*x) + 9210*exp(8*x) - 21910*exp(7*x) + 16290*exp(6*x) - 120*exp(5*x) - 34470*exp(4*x) + 53925*exp(3*x) - 34950*exp(2*x) + 10208*exp(x) - 1082.

%t With[{nmax = 50}, CoefficientList[Series[Exp[63*x] - 30*Exp[47*x] + 120*Exp[39*x] + 60*Exp[35*x] + 60*Exp[33*x] - 18*Exp[32*x] - 324*Exp[31*x] - 720*Exp[29*x] + 810*Exp[27*x] + 120*Exp[26*x] + 480*Exp[25*x] + 480*Exp[24*x] - 900*Exp[23*x] - 720*Exp[22*x] - 240*Exp[21*x] - 900*Exp[20*x] + 2640*Exp[19*x] + 615*Exp[18*x] + 480*Exp[17*x] + 510*Exp[16*x] - 2955*Exp[15*x] - 5070*Exp[14*x] + 3960*Exp[13*x] + 7320*Exp[12*x] - 8640*Exp[11*x] - 4860*Exp[10*x] + 10620*Exp[9*x] + 9210*Exp[8*x] - 21910*Exp[7*x] + 16290*Exp[6*x] - 120*Exp[5*x] - 34470*Exp[4*x] + 53925*Exp[3*x] - 34950*Exp[2*x] + 10208*Exp[x] - 1082, {x, 0, nmax}], x] Range[0, nmax]!] (* _G. C. Greubel_, Oct 08 2017 *)

%Y Cf. A094033-A094037, A094729-A094738.

%K nonn

%O 0,4

%A Goran Kilibarda, _Vladeta Jovovic_, May 24 2004