A095684 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.
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, 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, 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
Offset: 1
Examples
1, 11, 12, 111, 112, 122, 123, 1111, 1112, 1122, 1123, 1222, 1223, 1233, ... The 8 strings of length 4 are 1111, 1112, 1122, 1123, 1222, 1223, 1233, 1234. From _Gus Wiseman_, Apr 26 2020: (Start) The triangle read by columns begins: 1:{1} 2:{1,1} 4:{1,1,1} 8:{1,1,1,1} 16:{1,1,1,1,1} 3:{1,2} 5:{1,1,2} 9:{1,1,1,2} 17:{1,1,1,1,2} 6:{1,2,2} 10:{1,1,2,2} 18:{1,1,1,2,2} 7:{1,2,3} 11:{1,1,2,3} 19:{1,1,1,2,3} 12:{1,2,2,2} 20:{1,1,2,2,2} 13:{1,2,2,3} 21:{1,1,2,2,3} 14:{1,2,3,3} 22:{1,1,2,3,3} 15:{1,2,3,4} 23:{1,1,2,3,4} 24:{1,2,2,2,2} 25:{1,2,2,2,3} 26:{1,2,2,3,3} 27:{1,2,2,3,4} 28:{1,2,3,3,3} 29:{1,2,3,3,4} 30:{1,2,3,4,4} 31:{1,2,3,4,5} (End)
Links
- J. C. Kieffer, W. Szpankowski and E.-H. Yang, Problems on sequences: information theory and computer science interface, IEEE Trans. Inform. Theory, 50 (No. 7, 2004), 1385-1392.
Crossrefs
See A096299 for another version.
The number of distinct parts in row n is A000120(n), also the maximum part.
Row sums are A029931.
Heinz numbers of rows are A057335.
Row lengths are A070939.
Row products are A284001.
The version for prime indices is A305936.
There are A333942(n) multiset partitions of row n.
Multisets of compositions are counted by A034691.
Combinatory separations of normal multisets are A269134.
All of the following pertain to compositions in standard order (A066099):
- Necklaces are A065609.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Lyndon words are A275692.
- Dealings are counted by A333939.
- Distinct parts are counted by A334028.
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; ptnToNorm[y_]:=Join@@Table[ConstantArray[i,y[[i]]],{i,Length[y]}]; Table[ptnToNorm[stc[n]],{n,15}] (* Gus Wiseman, Apr 26 2020 *)
Comments