login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A327058
Number of pairwise intersecting set-systems covering n vertices whose dual is a weak antichain.
4
1, 1, 1, 3, 155
OFFSET
0,4
COMMENTS
A set-system is a finite set of finite nonempty sets. Its elements are sometimes called edges. The dual of a set-system has, for each vertex, one edge consisting of the indices (or positions) of the edges containing that vertex. For example, the dual of {{1,2},{2,3}} is {{1},{1,2},{2}}. A weak antichain is a multiset of sets, none of which is a proper subset of any other.
FORMULA
Inverse binomial transform of A327059.
EXAMPLE
The a(0) = 1 through a(3) = 3 set-systems:
{} {{1}} {{12}} {{123}}
{{12}{13}{23}}
{{12}{13}{23}{123}}
MATHEMATICA
dual[eds_]:=Table[First/@Position[eds, x], {x, Union@@eds}];
stableSets[u_, Q_]:=If[Length[u]==0, {{}}, With[{w=First[u]}, Join[stableSets[DeleteCases[u, w], Q], Prepend[#, w]&/@stableSets[DeleteCases[u, r_/; r==w||Q[r, w]||Q[w, r]], Q]]]];
stableQ[u_, Q_]:=!Apply[Or, Outer[#1=!=#2&&Q[#1, #2]&, u, u, 1], {0, 1}];
Table[Length[Select[stableSets[Subsets[Range[n], {1, n}], Intersection[#1, #2]=={}&], Union@@#==Range[n]&&stableQ[dual[#], SubsetQ]&]], {n, 0, 3}]
CROSSREFS
Covering intersecting set-systems are A305843.
The BII-numbers of these set-systems are the intersection of A326910 and A326966.
Covering coantichains are A326970.
The non-covering version is A327059.
The unlabeled multiset partition version is A327060.
Sequence in context: A156990 A075514 A344898 * A087306 A278877 A203682
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Aug 18 2019
STATUS
approved