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.

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

This page as a plain text file.
%I A322063 #7 Nov 26 2018 17:04:13
%S A322063 1,1,3,25,773,160105
%N A322063 Number of ways to choose a stable partition of an antichain of sets spanning n vertices.
%C A322063 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.
%e A322063 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.
%e A322063   {1}{2}{3}      {1,2,3}        {1}{2,3}       {1,3}{2}       {1,2}{3}
%e A322063   --------       --------       --------       --------       --------
%e A322063   {{1,2,3}}      {{1},{2,3}}    {{1,2},{3}}    {{1},{2,3}}    {{1},{2,3}}
%e A322063   {{1},{2,3}}    {{1,2},{3}}    {{1,3},{2}}    {{1,2},{3}}    {{1,3},{2}}
%e A322063   {{1,2},{3}}    {{1,3},{2}}    {{1},{2},{3}}  {{1},{2},{3}}  {{1},{2},{3}}
%e A322063   {{1,3},{2}}    {{1},{2},{3}}
%e A322063   {{1},{2},{3}}
%e A322063 .
%e A322063   {1,3}{2,3}     {1,2}{2,3}     {1,2}{1,3}     {1,2}{1,3}{2,3}
%e A322063   --------       --------       --------       --------
%e A322063   {{1,2},{3}}    {{1,3},{2}}    {{1},{2,3}}    {{1},{2},{3}}
%e A322063   {{1},{2},{3}}  {{1},{2},{3}}  {{1},{2},{3}}
%t A322063 sps[{}]:={{}};sps[set:{i_,___}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,___}];
%t A322063 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 A322063 Table[Sum[Length[stableSets[Complement[Subsets[Range[n]],Union@@Subsets/@stn],SubsetQ]],{stn,sps[Range[n]]}],{n,5}]
%Y A322063 Cf. A000110, A000569, A006125, A006126, A229048, A240936, A277203, A321979, A322064, A322065.
%K A322063 nonn,more
%O A322063 0,3
%A A322063 _Gus Wiseman_, Nov 25 2018