|
%I #5 Aug 22 2019 20:40:33
%S 0,1,2,3,3,3,3,3,4,5,6,7,7,7,7,7,5,5,7,7,7,7,7,7,5,5,7,7,7,7,7,7,6,7,
%T 6,7,7,7,7,7,6,7,6,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
%U 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
%N a(n) is the number whose binary indices are the union of the set-system with BII-number n.
%C 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 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.
%e 22 is the BII-number of {{2},{1,2},{1,3}}, and 7 has binary indices {1,2,3}, so a(22) = 7.
%t bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
%t Table[Total[2^Union@@bpe/@bpe[n]]/2,{n,0,100}]
%Y Indices of records are A253317.
%Y Cf. A000120, A001511, A029931, A035327, A048793, A070939, A072639, A326031, A326702, A326947.
%K nonn
%O 0,3
%A _Gus Wiseman_, Aug 19 2019
|
