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.

Previous Showing 41-50 of 50 results.

A116549 a(0) = 1. a(m + 2^n) = a(n) + a(m), for 0 <= m <= 2^n - 1.

Original entry on oeis.org

1, 2, 3, 4, 4, 5, 6, 7, 5, 6, 7, 8, 8, 9, 10, 11, 5, 6, 7, 8, 8, 9, 10, 11, 9, 10, 11, 12, 12, 13, 14, 15, 6, 7, 8, 9, 9, 10, 11, 12, 10, 11, 12, 13, 13, 14, 15, 16, 10, 11, 12, 13, 13, 14, 15, 16, 14, 15, 16, 17, 17, 18, 19, 20
Offset: 0

Views

Author

Leroy Quet, Mar 16 2006

Keywords

Comments

Consider the following bijection between the natural numbers and hereditarily finite sets. For each n, write out n in binary. Assign to each set already given a natural number m the (m+1)-th digit of the binary number (reading from right to left). Let the set assigned to n contain all and only those sets which have a 1 for their digit. Then a(n) gives the number of pairs of braces appearing in the n-th set written out in full, e.g., for 3, we have {{{}}{}}, with 4 pairs of braces. - Thomas Anton, Mar 16 2019

Examples

			From _Gus Wiseman_, Jul 22 2019: (Start)
A finitary (or hereditarily finite) set is equivalent to a rooted identity tree. The following list shows the first few rooted identity trees together with their corresponding index in the sequence (o = leaf).
   0: o
   1: (o)
   2: ((o))
   3: (o(o))
   4: (((o)))
   5: (o((o)))
   6: ((o)((o)))
   7: (o(o)((o)))
   8: ((o(o)))
   9: (o(o(o)))
  10: ((o)(o(o)))
  11: (o(o)(o(o)))
  12: (((o))(o(o)))
  13: (o((o))(o(o)))
  14: ((o)((o))(o(o)))
  15: (o(o)((o))(o(o)))
  16: ((((o))))
  17: (o(((o))))
  18: ((o)(((o))))
  10: (o(o)(((o))))
(End)
		

Crossrefs

Programs

  • Haskell
    import Data.Function (on); import Data.List (genericIndex)
    a116549 = genericIndex a116549_list
    a116549_list = 1 : zipWith ((+) `on` a116549) a000523_list a053645_list
    -- Reinhard Zumkeller, Aug 27 2014
  • Mathematica
    Nest[Append[#1, #1[[#3 + 1]] + #1[[#2 - 2^#3 + 1]] & @@ {#1, #2, Floor@ Log2@ #2}] & @@ {#, Length@ #} &, {1}, 63] (* Michael De Vlieger, Apr 21 2019 *)
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    dab[n_]:=1+Total[dab/@(bpe[n]-1)];
    Array[dab,30,0] (* Gus Wiseman, Jul 22 2019 *)

Formula

For n > 0: a(n) = a(A000523(n)) + a(A053645(n)). - Reinhard Zumkeller, Aug 27 2014

A329625 Smallest BII-number of a connected set-system with n edges.

Original entry on oeis.org

0, 1, 5, 7, 23, 31, 63, 127, 383, 511, 1023, 2047, 4095, 8191
Offset: 0

Views

Author

Gus Wiseman, Nov 28 2019

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. Every set-system (finite set of finite nonempty sets of positive integers) has a different BII-number. For example, 18 has reversed binary expansion (0,1,0,0,1), and since the binary indices of 2 and 5 are {2} and {1,3} respectively, the BII-number of {{2},{1,3}} is 18. Elements of a set-system are sometimes called edges.

Examples

			The sequence of terms together with their corresponding set-systems begins:
     0: {}
     1: {{1}}
     5: {{1},{1,2}}
     7: {{1},{2},{1,2}}
    23: {{1},{2},{1,2},{1,3}}
    31: {{1},{2},{1,2},{3},{1,3}}
    63: {{1},{2},{1,2},{3},{1,3},{2,3}}
   127: {{1},{2},{1,2},{3},{1,3},{2,3},{1,2,3}}
   383: {{1},{2},{1,2},{3},{1,3},{2,3},{1,2,3},{1,4}}
   511: {{1},{2},{1,2},{3},{1,3},{2,3},{1,2,3},{4},{1,4}}
		

Crossrefs

The smallest BII-number of a set-system with n edges is A000225(n).
The smallest BII-number of a set-system with n vertices is A072639(n).
BII-numbers of connected set-systems are A326749.
MM-numbers of connected set-systems are A328514.
The case of clutters is A329627.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],Length[Intersection@@s[[#]]]>0&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    First/@GatherBy[Select[Range[0,1000],Length[csm[bpe/@bpe[#]]]<=1&],Length[bpe[#]]&]

A329628 Smallest BII-number of an intersecting antichain with n edges.

Original entry on oeis.org

0, 1, 20, 52, 2880, 275520
Offset: 0

Views

Author

Gus Wiseman, Nov 28 2019

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. Every set-system (finite set of finite nonempty sets of positive integers) has a different BII-number. For example, 18 has reversed binary expansion (0,1,0,0,1), and since the binary indices of 2 and 5 are {2} and {1,3} respectively, the BII-number of {{2},{1,3}} is 18. Elements of a set-system are sometimes called edges. Elements of a set-system are sometimes called edges.
A set-system is intersecting if no two edges are disjoint. It is an antichain if no edge is a proper subset of any other.

Examples

			The sequence of terms together with their corresponding set-systems begins:
       0: {}
       1: {{1}}
      20: {{1,2},{1,3}}
      52: {{1,2},{1,3},{2,3}}
    2880: {{1,2,3},{1,4},{2,4},{3,4}}
  275520: {{1,2,3},{1,2,4},{1,3,4},{2,3,4},{1,2,5}}
		

Crossrefs

The not necessarily intersecting version is A329626.
MM-numbers of intersecting antichains are A329366.
BII-numbers of antichains are A326704.
BII-numbers of intersecting set-systems are A326910.
BII-numbers of intersecting antichains are A329561.
Covering intersecting antichains of sets are A305844.
Non-isomorphic intersecting antichains of multisets are A306007.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    First/@GatherBy[Select[Range[0,10000],stableQ[bpe/@bpe[#],SubsetQ[#1,#2]||Intersection[#1,#2]=={}&]&],Length[bpe[#]]&]

A353856 Triangle read by rows where T(n,k) is the number of integer compositions of n with run-sum trajectory (condensation) ending in a composition of length k.

Original entry on oeis.org

1, 0, 1, 0, 2, 0, 0, 2, 2, 0, 0, 5, 2, 1, 0, 0, 2, 12, 2, 0, 0, 0, 8, 10, 12, 2, 0, 0, 0, 2, 32, 23, 6, 1, 0, 0, 0, 20, 26, 51, 28, 3, 0, 0, 0, 0, 5, 66, 109, 52, 22, 2, 0, 0, 0, 0, 8, 108, 144, 188, 53, 10, 1, 0, 0, 0, 0, 2, 134, 358, 282, 196, 48, 4, 0, 0, 0, 0
Offset: 0

Views

Author

Gus Wiseman, Jun 01 2022

Keywords

Comments

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4). The run-sum trajectory is obtained by repeatedly taking the run-sums transformation (or condensation, represented by A353847) until an anti-run is reached. For example, the trajectory (2,1,1,3,1,1,2,1,1,2,1) -> (2,2,3,2,2,2,2,1) -> (4,3,8,1) is counted under T(15,4).

Examples

			Triangle begins:
   1
   0   1
   0   2   0
   0   2   2   0
   0   5   2   1   0
   0   2  12   2   0   0
   0   8  10  12   2   0   0
   0   2  32  23   6   1   0   0
   0  20  26  51  28   3   0   0   0
   0   5  66 109  52  22   2   0   0   0
   0   8 108 144 188  53  10   1   0   0   0
   0   2 134 358 282 196  48   4   0   0   0   0
For example, row n = 6 counts the following compositions:
  .  (6)       (15)     (123)    (1212)  .  .
     (33)      (24)     (132)    (2121)
     (222)     (42)     (141)
     (1113)    (51)     (213)
     (2112)    (114)    (231)
     (3111)    (411)    (312)
     (11211)   (1122)   (321)
     (111111)  (2211)   (1131)
               (11112)  (1221)
               (21111)  (1311)
                        (11121)
                        (12111)
		

Crossrefs

Row sums are A011782.
Row-lengths without zeros appear to be A131737.
The version for partitions is A353843.
The length of the trajectory is A353854, firsts A072639, partitions A353841.
The last part of the same trajectory is A353855.
Column k = 1 is A353858.
A066099 lists compositions in standard order.
A318928 gives runs-resistance of binary expansion.
A325268 counts partitions by omicron, rank statistic A304465.
A333489 ranks anti-runs, counted by A003242 (complement A261983).
A333627 ranks the run-lengths of standard compositions.
A353840-A353846 pertain to partition run-sum trajectory.
A353847 represents the run-sums of a composition, partitions A353832.
A353853-A353859 pertain to composition run-sum trajectory.
A353932 lists run-sums of standard compositions.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@ IntegerPartitions[n],Length[FixedPoint[Total/@Split[#]&,#]]==k&]],{n,0,15},{k,0,n}]

A329627 Smallest BII-number of a clutter (connected antichain) with n edges.

Original entry on oeis.org

0, 1, 20, 52, 308, 820, 2868, 68404, 199476, 723764
Offset: 0

Views

Author

Gus Wiseman, Nov 28 2019

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. Every set-system (finite set of finite nonempty sets of positive integers) has a different BII-number. For example, 18 has reversed binary expansion (0,1,0,0,1), and since the binary indices of 2 and 5 are {2} and {1,3} respectively, the BII-number of {{2},{1,3}} is 18. Elements of a set-system are sometimes called edges.
A set-system is an antichain if no edge is a proper subset of any other.
For n > 1, a(n) appears to be the number whose binary indices are the first n terms of A018900.

Examples

			The sequence of terms together with their corresponding set-systems begins:
       0: {}
       1: {{1}}
      20: {{1,2},{1,3}}
      52: {{1,2},{1,3},{2,3}}
     308: {{1,2},{1,3},{2,3},{1,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}}
   68404: {{1,2},{1,3},{2,3},{1,4},{2,4},{3,4},{1,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}}
		

Crossrefs

The version for MM-numbers is A329555.
BII-numbers of clutters are A326750.
Clutters of sets are counted by A048143.
Minimum BII-numbers of connected set-systems are A329625.
Minimum BII-numbers of antichains are A329626.
MM-numbers of connected weak antichains of multisets are A329559.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],Length[Intersection@@s[[#]]]>0&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    First/@GatherBy[Select[Range[0,10000],stableQ[bpe/@bpe[#]]&&Length[csm[bpe/@bpe[#]]]<=1&],Length[bpe[#]]&]

A353857 Numbers k such that the k-th composition in standard order has run-sum trajectory ending in a singleton.

Original entry on oeis.org

1, 2, 3, 4, 7, 8, 10, 11, 14, 15, 16, 31, 32, 36, 39, 42, 46, 59, 60, 63, 64, 127, 128, 136, 138, 139, 142, 143, 168, 170, 174, 175, 184, 186, 187, 232, 238, 239, 248, 250, 251, 255, 256, 292, 316, 487, 511, 512, 528, 543, 682, 750, 955, 1008, 1023, 1024, 2047
Offset: 1

Views

Author

Gus Wiseman, Jun 01 2022

Keywords

Comments

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4). The run-sum trajectory is obtained by repeatedly taking the run-sum transformation (A353847) until the rank of an anti-run is reached. For example, the trajectory 11 -> 10 -> 8 corresponds to the trajectory (2,1,1) -> (2,2) -> (4).
The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			The terms together with their binary expansions and corresponding compositions begin:
   1:        1  (1)
   2:       10  (2)
   3:       11  (1,1)
   4:      100  (3)
   7:      111  (1,1,1)
   8:     1000  (4)
  10:     1010  (2,2)
  11:     1011  (2,1,1)
  14:     1110  (1,1,2)
  15:     1111  (1,1,1,1)
  16:    10000  (5)
  31:    11111  (1,1,1,1,1)
  32:   100000  (6)
  36:   100100  (3,3)
  39:   100111  (3,1,1,1)
  42:   101010  (2,2,2)
  46:   101110  (2,1,1,2)
  59:   111011  (1,1,2,1,1)
  60:   111100  (1,1,1,3)
  63:   111111  (1,1,1,1,1,1)
		

Crossrefs

The version for partitions is A353844.
The trajectory length is A353854, firsts A072639, for partitions A353841.
The last part of the trajectory is A353855, for partitions A353842.
These compositions are counted by A353858.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order.
A318928 gives runs-resistance of binary expansion.
A325268 counts partitions by omicron, rank statistic A304465.
A333627 ranks the run-lengths of standard compositions.
A351014 counts distinct runs in standard compositions, firsts A351015.
A353840-A353846 pertain to partition run-sum trajectory.
A353847 represents composition run-sum transformation, partitions A353832.
A353853-A353859 pertain to composition run-sum trajectory.
A353932 lists run-sums of standard compositions.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[100],Length[FixedPoint[Total/@Split[#]&,stc[#]]]==1&]

A354908 Numbers k such that the k-th composition in standard order (graded reverse-lexicographic, A066099) is collapsible.

Original entry on oeis.org

1, 2, 3, 4, 7, 8, 10, 11, 14, 15, 16, 31, 32, 36, 39, 42, 43, 46, 47, 58, 59, 60, 62, 63, 64, 127, 128, 136, 138, 139, 142, 143, 168, 170, 171, 174, 175, 184, 186, 187, 190, 191, 232, 234, 235, 238, 239, 248, 250, 251, 254, 255, 256, 292, 295, 316, 319, 484
Offset: 1

Views

Author

Gus Wiseman, Jun 23 2022

Keywords

Comments

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.
If a collapse is an adding together of some partial run of an integer composition c, we say c is collapsible iff by some sequence of collapses it can be reduced to a single part. An example of such a sequence of collapses is (11132112) -> (332112) -> (33222) -> (6222) -> (66) -> (n), which shows that (11132112) is a collapsible composition of 12.

Examples

			The terms together with their corresponding compositions begin:
  1:(1)  2:(2)   4:(3)     8:(4)     16:(5)      32:(6)
         3:(11)  7:(111)  10:(22)    31:(11111)  36:(33)
                          11:(211)               39:(3111)
                          14:(112)               42:(222)
                          15:(1111)              43:(2211)
                                                 46:(2112)
                                                 47:(21111)
                                                 58:(1122)
                                                 59:(11211)
                                                 60:(1113)
                                                 62:(11112)
                                                 63:(111111)
		

Crossrefs

The standard compositions used here are A066099, run-sums A353847/A353932.
The version for Heinz numbers of partitions is A300273, counted by A275870.
These compositions are counted by A353860.
A003242 counts anti-run compositions, ranked by A333489, complement A261983.
A011782 counts compositions.
A124767 counts runs in standard compositions.
A238279 and A333755 count compositions by number of runs.
A334968 counts distinct sums of subsequences of standard compositions.
A351014 counts distinct runs of standard compositions, firsts A351015.
A353853-A353859 pertain to composition run-sum trajectory.
A354582 counts distinct partial runs of standard compositions, sums A354907.

Programs

  • Mathematica
    repcams[q_List]:=repcams[q]=Union[{q},If[UnsameQ@@q,{},Union@@repcams/@Union[Insert[Drop[q,#],Plus@@Take[q,#],First[#]]&/@Select[Tuples[Range[Length[q]],2],And[Less@@#,SameQ@@Take[q,#]]&]]]];
    stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],MemberQ[repcams[stc[#]],{_}]&]

A368531 Numbers whose binary indices are all powers of 3, where a binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion.

Original entry on oeis.org

0, 1, 4, 5, 256, 257, 260, 261, 67108864, 67108865, 67108868, 67108869, 67109120, 67109121, 67109124, 67109125, 1208925819614629174706176, 1208925819614629174706177, 1208925819614629174706180, 1208925819614629174706181, 1208925819614629174706432
Offset: 1

Views

Author

Gus Wiseman, Dec 29 2023

Keywords

Comments

For powers of 2 instead of 3 we have A253317.

Examples

			The terms together with their binary expansions and binary indices begin:
         0:                           0 ~ {}
         1:                           1 ~ {1}
         4:                         100 ~ {3}
         5:                         101 ~ {1,3}
       256:                   100000000 ~ {9}
       257:                   100000001 ~ {1,9}
       260:                   100000100 ~ {3,9}
       261:                   100000101 ~ {1,3,9}
  67108864: 100000000000000000000000000 ~ {27}
  67108865: 100000000000000000000000001 ~ {1,27}
  67108868: 100000000000000000000000100 ~ {3,27}
  67108869: 100000000000000000000000101 ~ {1,3,27}
  67109120: 100000000000000000100000000 ~ {9,27}
  67109121: 100000000000000000100000001 ~ {1,9,27}
  67109124: 100000000000000000100000100 ~ {3,9,27}
  67109125: 100000000000000000100000101 ~ {1,3,9,27}
		

Crossrefs

A000244 lists powers of 3.
A048793 lists binary indices, length A000120, sum A029931.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    Select[Range[0,10000],IntegerQ[Log[3,Times@@Join@@Position[Reverse[IntegerDigits[#,2]],1]]]&]
    (* Second program *)
    {0}~Join~Array[FromDigits[Reverse@ ReplacePart[ConstantArray[0, Max[#]], Map[# -> 1 &, #]], 2] &[3^(Position[Reverse@ IntegerDigits[#, 2], 1][[;; , 1]] - 1)] &, 255] (* Michael De Vlieger, Dec 29 2023 *)

Formula

a(3^n) = 2^(3^n - 1).

A296689 Let phi be the one-to-one mapping between binary trees and natural numbers described in the Tychonievich link. Let a(n) = min({phi^{-1}(t)| size(t)=n}); i.e., a(n) is the rank -- starting from 0 -- of the first tree the size of which is n.

Original entry on oeis.org

0, 1, 2, 4, 7, 13, 24, 30, 54, 64, 124, 244, 383, 503, 981, 1021, 1981, 3901, 6137, 8057, 13649, 16369, 32689, 65329, 98230, 130870, 229312, 261952, 491516, 524156, 1046388, 1048564, 2093044, 4182004, 8359924, 16715764, 25141220, 33497060, 58703812, 67059652, 125828996, 134184836, 259487492, 268435204, 536866564, 1073729284
Offset: 0

Views

Author

Philippe Esperet, Dec 18 2017

Keywords

Comments

Let v(n) = max({phi^{-1}(t)| size(t)=n}); v(n) is already known as A072639.
The interleaving process used by Tychonievich is not specific to base 2, each base b>=3 giving birth to a new a(n)-like sequence and a new v(n)-like sequence.
a(n) is the position of the first occurrence of n in A072644. - Andrey Zabolotskiy, Dec 20 2017
The tree-enumeration scheme of Tychonievich is similar, but not the same as "Recursive binary interleaving of binary trees" mentioned at my OEIS Wiki notes about Alternative Catalan Orderings. On the other hand, it seems to be the same (possibly up to the reflection of binary trees) as the ranking/unranking scheme mentioned in the section "Binary tree encoding with bijection" and in sequences A072634 - A072637 that are permutations of nonnegative integers induced by cross-ranking binary trees between such a "dense" binary interleaving ranking system and the standard lexicographic ordering of them (A014486). - Antti Karttunen, Dec 20 2017

Crossrefs

Programs

  • OCaml
    let rec evenOdd=function(*Luther Tychonievich decomposition*)
    | n when n<=1 -> n,0
    | n -> let ev,od=evenOdd(n/2) in
            2*od+n mod 2,ev
    let rec cardImage=function
    | n when n<=1 -> n
    | n -> let ev,od=evenOdd(n-1) in 1+cardImage(ev)+cardImage(od)
    let checkCatalanBis n=(*why 2*n+1 ? empirical...*)
      let (first,last)=(Array.make (2*n+1) 0,Array.make (2*n+1) 0) in
        for i=0 to 1 lsl n do
        let cai=cardImage i in
          last.(cai)<-1+last.(cai);
          if first.(cai)=0 then first.(cai)<-i done;
      (first,last)
    
  • Python
    def dei(n):
        n1 = n2 = 0
        bit = 1
        while n:
            if n&1:
                n1 += bit
            n >>= 1
            if n&1:
                n2 += bit
            n >>= 1
            bit <<= 1
        return (n1, n2)
    r = [0]
    for n in range(1, 100):
        r.append(1 + sum(r[x] for x in dei(n-1)))
    print([r.index(x) for x in range(max(r)+1)])
    # Andrey Zabolotskiy, Dec 20 2017

A330296 BII-numbers of set partitions with at least two blocks.

Original entry on oeis.org

3, 9, 10, 11, 12, 18, 33, 129, 130, 131, 132, 136, 137, 138, 139, 140, 144, 146, 160, 161, 192, 258, 264, 266, 288, 513, 520, 521, 528, 1032, 2049, 2050, 2051, 2052, 4098, 8193, 32769, 32770, 32771, 32772, 32776, 32777, 32778, 32779, 32780, 32784, 32786, 32800
Offset: 1

Views

Author

Gus Wiseman, Dec 10 2019

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. Every set-system (finite set of finite nonempty sets of positive integers) has a different BII-number. For example, 18 has reversed binary expansion (0,1,0,0,1), and since the binary indices of 2 and 5 are {2} and {1,3} respectively, the BII-number of {{2},{1,3}} is 18. Elements of a set-system are sometimes called edges.

Examples

			The sequence of all set partitions with at least two parts together with their BII-numbers begins:
    3: {1}{2}          140: {3}{4}{12}     2049: {1}{34}
    9: {1}{3}          144: {4}{13}        2050: {2}{34}
   10: {2}{3}          146: {2}{4}{13}     2051: {1}{2}{34}
   11: {1}{2}{3}       160: {4}{23}        2052: {12}{34}
   12: {3}{12}         161: {1}{4}{23}     4098: {2}{134}
   18: {2}{13}         192: {4}{123}       8193: {1}{234}
   33: {1}{23}         258: {2}{14}       32769: {1}{5}
  129: {1}{4}          264: {3}{14}       32770: {2}{5}
  130: {2}{4}          266: {2}{3}{14}    32771: {1}{2}{5}
  131: {1}{2}{4}       288: {14}{23}      32772: {5}{12}
  132: {4}{12}         513: {1}{24}       32776: {3}{5}
  136: {3}{4}          520: {3}{24}       32777: {1}{3}{5}
  137: {1}{3}{4}       521: {1}{3}{24}    32778: {2}{3}{5}
  138: {2}{3}{4}       528: {13}{24}      32779: {1}{2}{3}{5}
  139: {1}{2}{3}{4}   1032: {3}{124}      32780: {3}{5}{12}
		

Crossrefs

BII-numbers of set partitions are A326701.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    Select[Range[1000],Length[bpe[#]]>=2&&Length[Join@@bpe/@bpe[#]]==Length[Union@@bpe/@bpe[#]]&]

Formula

Equal the complement of A000079 in A326701.
Previous Showing 41-50 of 50 results.