|
|
A317674
|
|
Regular triangle where T(n,k) is the number of antichains covering n vertices with k connected components.
|
|
8
|
|
|
1, 1, 1, 5, 3, 1, 84, 23, 6, 1, 6348, 470, 65, 10, 1, 7743728, 39598, 1575, 145, 15, 1, 2414572893530, 54354104, 144403, 4095, 280, 21, 1, 56130437190053299918162, 19316801997024, 218033088, 402073, 9100, 490, 28, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins:
1
1 1
5 3 1
84 23 6 1
6348 470 65 10 1
7743728 39598 1575 145 15 1
|
|
MATHEMATICA
|
blg={1, 1, 5, 84, 6348, 7743728, 2414572893530, 56130437190053299918162} (*A048143*);
sps[{}]:={{}}; sps[set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]&/@sps[Complement[set, s]]]/@Cases[Subsets[set], {i, ___}];
Table[Sum[Product[blg[[Length[s]]], {s, spn}], {spn, Select[sps[Range[n]], Length[#]==k&]}], {n, Length[blg]}, {k, n}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|