A326968 Number of set-systems on n vertices whose dual is a weak antichain.
1, 2, 6, 56, 19446
Offset: 0
Examples
The a(0) = 1 through a(2) = 6 set-systems: {} {} {} {{1}} {{1}} {{2}} {{1,2}} {{1},{2}} {{1},{2},{1,2}}
Crossrefs
Programs
-
Mathematica
dual[eds_]:=Table[First/@Position[eds,x],{x,Union@@eds}]; stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}]; Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],stableQ[dual[#],SubsetQ]&]],{n,0,3}]
Comments