A326950 Number of T_0 antichains of nonempty subsets of {1..n}.
1, 2, 4, 12, 107, 6439, 7726965, 2414519001532, 56130437161079183223017, 286386577668298409107773412840148848120595
Offset: 0
Examples
The a(0) = 1 through a(3) = 12 antichains: {} {} {} {} {{1}} {{1}} {{1}} {{2}} {{2}} {{1},{2}} {{3}} {{1},{2}} {{1},{3}} {{2},{3}} {{1,2},{1,3}} {{1,2},{2,3}} {{1},{2},{3}} {{1,3},{2,3}} {{1,2},{1,3},{2,3}}
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[#,SubsetQ]&&UnsameQ@@dual[#]&]],{n,0,3}]
Extensions
a(5)-a(8) from Andrew Howroyd, Aug 14 2019
a(9), based on A245567, from Patrick De Causmaecker, Jun 01 2023
Comments