A326964 Number of connected set-systems covering a subset of {1..n}.
1, 2, 7, 112, 32253, 2147316942, 9223372023968335715, 170141183460469231667123699322514272668, 5789604461865809771178549250434395393752402807429031284280914691514037561273
Offset: 0
Keywords
Examples
The a(0) = 1 through a(2) = 7 set-systems: {} {} {} {{1}} {{1}} {{2}} {{1,2}} {{1},{1,2}} {{2},{1,2}} {{1},{2},{1,2}}
Crossrefs
Programs
-
Mathematica
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]]; Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],Length[csm[#]]<=1&]],{n,0,4}]
Formula
Binomial transform of A323818.
Comments