A374767 Numbers k such that the leaders of strictly decreasing runs in the k-th composition in standard order are distinct.
0, 1, 2, 4, 5, 6, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 24, 25, 32, 33, 34, 35, 37, 38, 40, 41, 44, 48, 49, 50, 52, 64, 65, 66, 67, 68, 69, 70, 72, 74, 75, 77, 78, 80, 81, 82, 83, 88, 89, 92, 96, 97, 98, 101, 102, 104, 105, 108, 128, 129, 130, 131, 132, 133
Offset: 1
Keywords
Examples
The 10000000th composition in standard order is (3,1,4,3,2,1,2,8), with strictly decreasing runs ((3,1),(4,3,2,1),(2),(8)), with leaders (3,4,2,1) so 10000000 is in the sequence. The terms together with the corresponding compositions begin: 0: () 1: (1) 2: (2) 4: (3) 5: (2,1) 6: (1,2) 8: (4) 9: (3,1) 11: (2,1,1) 12: (1,3) 13: (1,2,1) 16: (5) 17: (4,1) 18: (3,2) 19: (3,1,1) 20: (2,3) 24: (1,4) 25: (1,3,1)
Links
Crossrefs
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Select[Range[0,100],UnsameQ@@First/@Split[stc[#],Greater]&]
Comments