A322065 -id:A322065 - cp's OEIS frontend

A322064 Number of ways to choose a stable partition of a simple connected graph with n vertices.

1, 1, 1, 7, 141, 6533, 631875, 123430027, 48659732725, 39107797223409, 64702785181953175, 221636039917857648631, 1575528053913118966200441, 23249384407499950496231003021, 711653666389829384034090082068939, 45128328085994437067694854477617868995

Offset: 0

Gus Wiseman, Nov 25 2018

nonn

A stable partition of a graph is a set partition of the vertices where no non-singleton edge has both ends in the same block.

			The a(3) = 7 stable partitions. The simple connected graph is on top, and below is a list of all its stable partitions.
  {1,3}{2,3}     {1,2}{2,3}     {1,2}{1,3}     {1,2}{1,3}{2,3}
  --------       --------       --------       --------
  {{1,2},{3}}    {{1,3},{2}}    {{1},{2,3}}    {{1},{2},{3}}
  {{1},{2},{3}}  {{1},{2},{3}}  {{1},{2},{3}}

Andrew Howroyd, Table of n, a(n) for n = 0..75

Row sums of A322278.

Cf. A000110, A000569, A001187, A006125, A048143, A229048, A240936, A245883, A277203, A321911, A321979, A322063, A322065.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Union[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
Table[Sum[Length[Select[Subsets[Complement[Subsets[Range[n],{2}],Union@@Subsets/@stn]],And[Union@@#==Range[n],Length[csm[#]]==1]&]],{stn,sps[Range[n]]}],{n,5}]

\\ See A322278 for M.
seq(n)={concat([1], (M(n)*vectorv(n,i,1))~)} \\ Andrew Howroyd, Dec 01 2018

Terms a(7) and beyond from Andrew Howroyd, Dec 01 2018

A322063 Number of ways to choose a stable partition of an antichain of sets spanning n vertices.

Original entry on oeis.org

1, 1, 3, 25, 773, 160105

Offset: 0

Gus Wiseman, Nov 25 2018

A stable partition of a hypergraph or set system is a set partition of the vertices where no non-singleton edge has all its vertices in the same block.

			The a(3) = 25 stable partitions of antichains on 3 vertices. The antichain is on top, and below is a list of all its stable partitions.
  {1}{2}{3}      {1,2,3}        {1}{2,3}       {1,3}{2}       {1,2}{3}
  --------       --------       --------       --------       --------
  {{1,2,3}}      {{1},{2,3}}    {{1,2},{3}}    {{1},{2,3}}    {{1},{2,3}}
  {{1},{2,3}}    {{1,2},{3}}    {{1,3},{2}}    {{1,2},{3}}    {{1,3},{2}}
  {{1,2},{3}}    {{1,3},{2}}    {{1},{2},{3}}  {{1},{2},{3}}  {{1},{2},{3}}
  {{1,3},{2}}    {{1},{2},{3}}
  {{1},{2},{3}}
.
  {1,3}{2,3}     {1,2}{2,3}     {1,2}{1,3}     {1,2}{1,3}{2,3}
  --------       --------       --------       --------
  {{1,2},{3}}    {{1,3},{2}}    {{1},{2,3}}    {{1},{2},{3}}
  {{1},{2},{3}}  {{1},{2},{3}}  {{1},{2},{3}}

Cf. A000110, A000569, A006125, A006126, A229048, A240936, A277203, A321979, A322064, A322065.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
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]]]];
Table[Sum[Length[stableSets[Complement[Subsets[Range[n]],Union@@Subsets/@stn],SubsetQ]],{stn,sps[Range[n]]}],{n,5}]

cp's OEIS Frontend

A322064 Number of ways to choose a stable partition of a simple connected graph with n vertices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions