A326965 Number of set-systems on n vertices where every covered vertex is the unique common element of some subset of the edges.
1, 2, 5, 46, 19181, 2010327182, 9219217424630040409, 170141181796805106025395618012972506978, 57896044618658097536026644159052312978532934306727333157337631572314050272137
Offset: 0
Keywords
Examples
The a(0) = 1 through a(2) = 5 set-systems: {} {} {} {{1}} {{1}} {{2}} {{1},{2}} {{1},{2},{1,2}}
Crossrefs
Programs
-
Mathematica
tmQ[eds_]:=Union@@Select[Intersection@@@Rest[Subsets[eds]],Length[#]==1&]==Union@@eds; Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],tmQ]],{n,0,3}]
Comments