login
Number of ways to choose a binary index of each binary index of n.
35

%I #10 Dec 28 2023 11:31:57

%S 1,1,1,1,2,2,2,2,1,1,1,1,2,2,2,2,2,2,2,2,4,4,4,4,2,2,2,2,4,4,4,4,2,2,

%T 2,2,4,4,4,4,2,2,2,2,4,4,4,4,4,4,4,4,8,8,8,8,4,4,4,4,8,8,8,8,3,3,3,3,

%U 6,6,6,6,3,3,3,3,6,6,6,6,6,6,6,6,12,12,12

%N Number of ways to choose a binary index of each binary index of n.

%C First differs from A367912 at a(52) = 8, A367912(52) = 7.

%C A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

%C Run-lengths are all 4 or 8.

%F a(n) = Product_{k in A048793(n)} A000120(k).

%e The binary indices of binary indices of 20 are {{1,2},{1,3}}, with choices (1,1), (1,3), (2,1), (2,3), so a(20) = 4.

%e The binary indices of binary indices of 52 are {{1,2},{1,3},{2,3}}, with choices (1,1,1), (1,1,3), (1,3,2), (1,3,3), (2,1,2), (2,1,3), (2,3,2), (2,3,3), so a(52) = 8.

%t bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]],1];

%t Table[Length[Tuples[bpe/@bpe[n]]], {n,0,100}]

%Y All entries appear to belong to A003586.

%Y Positions of ones are A253317.

%Y The version for prime indices is A355741, for multisets A355744.

%Y Choosing a multiset (not sequence) gives A367912, firsts A367913.

%Y Positions of first appearances are A368111, sorted A368112.

%Y A048793 lists binary indices, length A000120, sum A029931.

%Y A058891 counts set-systems, covering A003465, connected A323818.

%Y A070939 gives length of binary expansion.

%Y A096111 gives product of binary indices.

%Y Cf. A072639, A309326, A326031, A326702, A326753, A355731, A355739, A367771, A367905, A367906, A367915.

%K nonn

%O 0,5

%A _Gus Wiseman_, Dec 12 2023