cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A323293 Number of 3-uniform hypergraphs on n labeled vertices where no two edges have two vertices in common.

This page as a plain text file.
%I A323293 #17 Oct 12 2023 08:10:38
%S A323293 1,1,1,2,5,26,271,5596,231577,21286940,4392750641,2100400533176
%N A323293 Number of 3-uniform hypergraphs on n labeled vertices where no two edges have two vertices in common.
%e A323293 The a(5) = 26 hypergraphs:
%e A323293   {}
%e A323293   {{1,2,3}}
%e A323293   {{1,2,4}}
%e A323293   {{1,2,5}}
%e A323293   {{1,3,4}}
%e A323293   {{1,3,5}}
%e A323293   {{1,4,5}}
%e A323293   {{2,3,4}}
%e A323293   {{2,3,5}}
%e A323293   {{2,4,5}}
%e A323293   {{3,4,5}}
%e A323293   {{1,2,3},{1,4,5}}
%e A323293   {{1,2,3},{2,4,5}}
%e A323293   {{1,2,3},{3,4,5}}
%e A323293   {{1,2,4},{1,3,5}}
%e A323293   {{1,2,4},{2,3,5}}
%e A323293   {{1,2,4},{3,4,5}}
%e A323293   {{1,2,5},{1,3,4}}
%e A323293   {{1,2,5},{2,3,4}}
%e A323293   {{1,2,5},{3,4,5}}
%e A323293   {{1,3,4},{2,3,5}}
%e A323293   {{1,3,4},{2,4,5}}
%e A323293   {{1,3,5},{2,3,4}}
%e A323293   {{1,3,5},{2,4,5}}
%e A323293   {{1,4,5},{2,3,4}}
%e A323293   {{1,4,5},{2,3,5}}
%e A323293 Non-isomorphic representatives of the 6 unlabeled 3-uniform hypertrees spanning 6 vertices where no two edges have two vertices in common, and their multiplicities in the labeled case which add up to a(6) = 271:
%e A323293     1 X {}
%e A323293    20 X {{1,2,3}}
%e A323293    90 X {{1,2,5},{3,4,5}}
%e A323293    10 X {{1,2,3},{4,5,6}}
%e A323293   120 X {{1,3,5},{2,3,6},{4,5,6}}
%e A323293    30 X {{1,2,4},{1,3,5},{2,3,6},{4,5,6}}
%t A323293 stableSets[u_,Q_]:=If[Length[u]===0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets[DeleteCases[u,r_/;r===w||Q[r,w]||Q[w,r]],Q]]]];
%t A323293 Table[Length[stableSets[Subsets[Range[n],{3}],Length[Intersection[#1,#2]]>1&]],{n,8}]
%Y A323293 Essentially the same as A287232.
%Y A323293 Cf. A000665, A025035, A125791, A190865, A289837, A302374, A302394, A319540, A320395, A322451, A323292-A323299.
%K A323293 nonn,more
%O A323293 0,4
%A A323293 _Gus Wiseman_, Jan 10 2019
%E A323293 a(9) from _Andrew Howroyd_, Aug 14 2019
%E A323293 a(10) and a(11) (using A287232) from _Joerg Arndt_, Oct 12 2023