|
EXAMPLE
|
The sequence of terms together with their corresponding set-systems begins:
0: {}
1: {{1}}
3: {{1},{2}}
11: {{1},{2},{3}}
139: {{1},{2},{3},{4}}
820: {{1,2},{1,3},{2,3},{1,4},{2,4}}
2868: {{1,2},{1,3},{2,3},{1,4},{2,4},{3,4}}
35636: {{1,2},{1,3},{2,3},{1,4},{2,4},{3,4},{5}}
199476: {{1,2},{1,3},{2,3},{1,4},{2,4},{3,4},{1,5},{2,5}}
723764: {{1,2},{1,3},{2,3},{1,4},{2,4},{3,4},{1,5},{2,5},{3,5}}
|
|
MATHEMATICA
|
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]], 1];
stableQ[u_]:=!Apply[Or, Outer[#1=!=#2&&SubsetQ[#1, #2]&, u, u, 1], {0, 1}];
First/@GatherBy[Select[Range[0, 10000], stableQ[bpe/@bpe[#]]&], Length[bpe[#]]&]
|