cp's OEIS Frontend

A331579 Position of first appearance of n in A124758 (products of compositions in standard order).

%I A331579 #5 Mar 21 2020 16:35:22
%S A331579 1,2,4,8,16,18,64,34,36,66,1024,68,4096,258,132,136,65536,146,262144,
%T A331579 264,516,4098
%N A331579 Position of first appearance of n in A124758 (products of compositions in standard order).
%C A331579 A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (row k of 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.
%e A331579 The list of terms together with the corresponding compositions begins:
%e A331579        1: (1)
%e A331579        2: (2)
%e A331579        4: (3)
%e A331579        8: (4)
%e A331579       16: (5)
%e A331579       18: (3,2)
%e A331579       64: (7)
%e A331579       34: (4,2)
%e A331579       36: (3,3)
%e A331579       66: (5,2)
%e A331579     1024: (11)
%e A331579       68: (4,3)
%e A331579     4096: (13)
%e A331579      258: (7,2)
%e A331579      132: (5,3)
%e A331579      136: (4,4)
%e A331579    65536: (17)
%e A331579      146: (3,3,2)
%e A331579   262144: (19)
%e A331579      264: (5,4)
%t A331579 stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
%t A331579 q=Table[Times@@stc[n],{n,1000}];
%t A331579 Table[Position[q,i][[1,1]],{i,First[Split[Union[q],#1+1==#2&]]}]
%Y A331579 The product of prime indices is A003963.
%Y A331579 The sum of binary indices is A029931.
%Y A331579 The sum of prime indices is A056239.
%Y A331579 Sums of compositions in standard order are A070939.
%Y A331579 The product of binary indices is A096111.
%Y A331579 All terms belong to A114994.
%Y A331579 Products of compositions in standard order are A124758.
%Y A331579 Cf. A000120, A048793, A066099, A164894, A233249, A233564, A272919, A326674, A333217, A333219, A333220, A333223.
%K A331579 nonn,more
%O A331579 1,2
%A A331579 _Gus Wiseman_, Mar 20 2020