A326969 Number of sets of subsets of {1..n} whose dual is a weak antichain.
2, 4, 12, 112, 38892
Offset: 0
Examples
The a(0) = 2 through a(2) = 12 sets of subsets: {} {} {} {{}} {{}} {{}} {{1}} {{1}} {{},{1}} {{2}} {{1,2}} {{},{1}} {{},{2}} {{1},{2}} {{},{1,2}} {{},{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]]],stableQ[dual[#],SubsetQ]&]],{n,0,3}]
Comments