|
%I #11 May 01 2020 08:01:22
%S 1,1,1,1,2,1,1,1,1,1,2,1,2,2,1,2,3,1,1,1,1,1,1,1,2,1,1,2,2,1,1,2,3,1,
%T 2,2,2,1,2,2,3,1,2,3,3,1,2,3,4,1,1,1,1,1,1,1,1,1,2,1,1,1,2,2,1,1,1,2,
%U 3,1,1,2,2,2,1,1,2,2,3,1,1,2,3,3,1,1,2,3,4,1,2,2,2,2,1,2,2,2,3,1,2,2,3,3
%N Triangle read by rows. There are 2^(m-1) rows of length m, for m = 1, 2, 3, ... The rows are in lexicographic order. The rows have the property that the first entry is 1, the second distinct entry (reading from left to right) is 2, the third distinct entry is 3, etc.
%C Row k is the unique multiset that covers an initial interval of positive integers and has multiplicities equal to the parts of the k-th composition in standard order (graded reverse-lexicographic, A066099). This composition 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. For example, the 13th composition is (1,2,1), so row 13 is {1,2,2,3}. - _Gus Wiseman_, Apr 26 2020
%H J. C. Kieffer, W. Szpankowski and E.-H. Yang, <a href="https://doi.org/10.1109/TIT.2004.830747">Problems on sequences: information theory and computer science interface</a>, IEEE Trans. Inform. Theory, 50 (No. 7, 2004), 1385-1392.
%e 1, 11, 12, 111, 112, 122, 123, 1111, 1112, 1122, 1123, 1222, 1223, 1233, ...
%e The 8 strings of length 4 are 1111, 1112, 1122, 1123, 1222, 1223, 1233, 1234.
%e From _Gus Wiseman_, Apr 26 2020: (Start)
%e The triangle read by columns begins:
%e 1:{1} 2:{1,1} 4:{1,1,1} 8:{1,1,1,1} 16:{1,1,1,1,1}
%e 3:{1,2} 5:{1,1,2} 9:{1,1,1,2} 17:{1,1,1,1,2}
%e 6:{1,2,2} 10:{1,1,2,2} 18:{1,1,1,2,2}
%e 7:{1,2,3} 11:{1,1,2,3} 19:{1,1,1,2,3}
%e 12:{1,2,2,2} 20:{1,1,2,2,2}
%e 13:{1,2,2,3} 21:{1,1,2,2,3}
%e 14:{1,2,3,3} 22:{1,1,2,3,3}
%e 15:{1,2,3,4} 23:{1,1,2,3,4}
%e 24:{1,2,2,2,2}
%e 25:{1,2,2,2,3}
%e 26:{1,2,2,3,3}
%e 27:{1,2,2,3,4}
%e 28:{1,2,3,3,3}
%e 29:{1,2,3,3,4}
%e 30:{1,2,3,4,4}
%e 31:{1,2,3,4,5}
%e (End)
%t stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
%t ptnToNorm[y_]:=Join@@Table[ConstantArray[i,y[[i]]],{i,Length[y]}];
%t Table[ptnToNorm[stc[n]],{n,15}] (* _Gus Wiseman_, Apr 26 2020 *)
%Y See A096299 for another version.
%Y The number of distinct parts in row n is A000120(n), also the maximum part.
%Y Row sums are A029931.
%Y Heinz numbers of rows are A057335.
%Y Row lengths are A070939.
%Y Row products are A284001.
%Y The version for prime indices is A305936.
%Y There are A333942(n) multiset partitions of row n.
%Y Multisets of compositions are counted by A034691.
%Y Combinatory separations of normal multisets are A269134.
%Y All of the following pertain to compositions in standard order (A066099):
%Y - Necklaces are A065609.
%Y - Strict compositions are A233564.
%Y - Constant compositions are A272919.
%Y - Lyndon words are A275692.
%Y - Dealings are counted by A333939.
%Y - Distinct parts are counted by A334028.
%Y Cf. A318284, A333764, A333940, A334030.
%K nonn,easy,tabf
%O 1,5
%A _N. J. A. Sloane_, Jun 25 2004
|
