|
|
A370638
|
|
Number of subsets of {1..n} such that a unique set can be obtained by choosing a different binary index of each element.
|
|
15
|
|
|
1, 2, 4, 6, 12, 19, 30, 45, 90, 147, 230, 343, 504, 716, 994, 1352, 2704, 4349, 6469
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
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.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
The set {3,4} has binary indices {{1,2},{3}}, with two choices {1,3}, {2,3}, so is not counted under a(4).
The a(0) = 1 through a(5) = 19 subsets:
{} {} {} {} {} {}
{1} {1} {1} {1} {1}
{2} {2} {2} {2}
{1,2} {1,2} {4} {4}
{1,3} {1,2} {1,2}
{2,3} {1,3} {1,3}
{1,4} {1,4}
{2,3} {1,5}
{2,4} {2,3}
{1,2,4} {2,4}
{1,3,4} {4,5}
{2,3,4} {1,2,4}
{1,2,5}
{1,3,4}
{1,3,5}
{2,3,4}
{2,3,5}
{2,4,5}
{3,4,5}
|
|
MATHEMATICA
|
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]], 1];
Table[Length[Select[Subsets[Range[n]], Length[Union[Sort /@ Select[Tuples[bpe/@#], UnsameQ@@#&]]]==1&]], {n, 0, 10}]
|
|
CROSSREFS
|
A version for MM-numbers of multisets is A368101.
Factorizations of this type are counted by A370645.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|