A320606 Regular triangle read by rows where T(n,k) is the number of k-uniform hypergraphs spanning n labeled vertices where every two vertices appear together in some edge, n >= 0, 0 <= k <= n.
1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 5, 1, 0, 0, 1, 388, 16, 1, 0, 0, 1, 477965, 27626, 42, 1
Offset: 1
Examples
Triangle begins: 1 0 1 0 0 1 0 0 1 1 0 0 1 5 1 0 0 1 388 16 1 0 0 1 477965 27626 42 1
Crossrefs
Programs
-
Mathematica
Table[Length[Select[Subsets[If[k==0,{},Subsets[Range[n],{k}]]],And[Union@@#==Range[n],Length[Union@@(Subsets[#,{2}]&/@#)]==Binomial[n,2]]&]],{n,0,6},{k,0,n}]