|
EXAMPLE
|
The a(5) = 6 hypergraphs:
{{1234},{1235},{1245},{1345}}
{{1234},{1235},{1245},{2345}}
{{1234},{1235},{1345},{2345}}
{{1234},{1245},{1345},{2345}}
{{1235},{1245},{1345},{2345}}
{{1234},{1235},{1245},{1345},{2345}}
|
|
MATHEMATICA
|
Table[Length[Select[Subsets[Subsets[Range[n], {4}]], Length[Union@@(Subsets[#, {3}]&/@#)]==Binomial[n, 3]&]], {n, 6}]
|