A353852 Numbers k such that the k-th composition in standard order (row k of A066099) has all distinct run-sums.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 15, 16, 17, 18, 19, 20, 21, 23, 24, 26, 28, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 47, 48, 50, 51, 52, 55, 56, 57, 58, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 79, 80, 81, 84, 85, 86, 87, 88
Offset: 0
Keywords
Examples
The terms together with their binary expansions and corresponding compositions begin: 0: 0 () 1: 1 (1) 2: 10 (2) 3: 11 (1,1) 4: 100 (3) 5: 101 (2,1) 6: 110 (1,2) 7: 111 (1,1,1) 8: 1000 (4) 9: 1001 (3,1) 10: 1010 (2,2) 12: 1100 (1,3) 15: 1111 (1,1,1,1) 16: 10000 (5) 17: 10001 (4,1) 18: 10010 (3,2) 19: 10011 (3,1,1) 20: 10100 (2,3) 21: 10101 (2,2,1) 23: 10111 (2,1,1,1)
Crossrefs
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Select[Range[0,100],UnsameQ@@Total/@Split[stc[#]]&]
Comments