A356841 Numbers k such that the k-th composition in standard order covers an interval of positive integers (gapless).
0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 13, 14, 15, 16, 18, 20, 21, 22, 23, 26, 27, 29, 30, 31, 32, 36, 37, 38, 41, 42, 43, 44, 45, 46, 47, 50, 52, 53, 54, 55, 58, 59, 61, 62, 63, 64, 68, 72, 74, 75, 77, 78, 82, 83, 84, 85, 86, 87, 89, 90, 91, 92, 93, 94, 95, 101
Offset: 1
Keywords
Examples
The terms and their corresponding standard compositions begin: 0: () 1: (1) 2: (2) 3: (1,1) 4: (3) 5: (2,1) 6: (1,2) 7: (1,1,1) 8: (4) 10: (2,2) 11: (2,1,1) 13: (1,2,1) 14: (1,1,2) 15: (1,1,1,1) 16: (5) 18: (3,2) 20: (2,3) 21: (2,2,1)
Links
Crossrefs
Programs
-
Mathematica
nogapQ[m_]:=m=={}||Union[m]==Range[Min[m],Max[m]]; stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Select[Range[0,100],nogapQ[stc[#]]&]
Comments