A330099 BII-numbers of brute-force normalized set-systems.
0, 1, 3, 4, 5, 7, 11, 15, 19, 20, 21, 23, 31, 33, 37, 51, 52, 53, 55, 63, 64, 65, 67, 68, 69, 71, 75, 79, 83, 84, 85, 87, 95, 97, 101, 115, 116, 117, 119, 127, 139, 143, 159, 191, 203, 207, 223, 255, 267, 271, 275, 276, 277, 279, 287, 307, 308, 309, 311, 319, 331
Offset: 1
Examples
The sequence of all nonempty brute-force normalized set-systems together with their BII-numbers begins: 1: {1} 52: {12}{13}{23} 3: {1}{2} 53: {1}{12}{13}{23} 4: {12} 55: {1}{2}{12}{13}{23} 5: {1}{12} 63: {1}{2}{3}{12}{13}{23} 7: {1}{2}{12} 64: {123} 11: {1}{2}{3} 65: {1}{123} 15: {1}{2}{3}{12} 67: {1}{2}{123} 19: {1}{2}{13} 68: {12}{123} 20: {12}{13} 69: {1}{12}{123} 21: {1}{12}{13} 71: {1}{2}{12}{123} 23: {1}{2}{12}{13} 75: {1}{2}{3}{123} 31: {1}{2}{3}{12}{13} 79: {1}{2}{3}{12}{123} 33: {1}{23} 83: {1}{2}{13}{123} 37: {1}{12}{23} 84: {12}{13}{123} 51: {1}{2}{13}{23} 85: {1}{12}{13}{123}
Crossrefs
Equals the image/fixed points of the idempotent sequence A330101.
Non-isomorphic multiset partitions are A007716.
Unlabeled spanning set-systems by span are A055621.
Unlabeled spanning set-systems by weight are A283877.
Other fixed points:
- Brute-force: A330104 (multisets of multisets), A330107 (multiset partitions), A330099 (set-systems).
- Lexicographic: A330120 (multisets of multisets), A330121 (multiset partitions), A330110 (set-systems).
- BII: A330109 (set-systems).
Programs
-
Mathematica
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; brute[m_]:=If[Union@@m!={}&&Union@@m!=Range[Max@@Flatten[m]],brute[m/.Rule@@@Table[{(Union@@m)[[i]],i},{i,Length[Union@@m]}]],First[Sort[brute[m,1]]]]; brute[m_,1]:=Table[Sort[Sort/@(m/.Rule@@@Table[{i,p[[i]]},{i,Length[p]}])],{p,Permutations[Union@@m]}]; Select[Range[0,100],Sort[bpe/@bpe[#]]==brute[bpe/@bpe[#]]&]
Comments