A374254 Numbers k such that the k-th composition in standard order is an anti-run and matches the patterns (1,2,1) or (2,1,2).
13, 22, 25, 45, 49, 54, 76, 77, 82, 89, 97, 101, 102, 105, 108, 109, 141, 148, 150, 153, 162, 165, 166, 177, 178, 180, 182, 193, 197, 198, 204, 205, 209, 210, 216, 217, 269, 278, 280, 281, 297, 300, 301, 305, 306, 308, 310, 322, 325, 326, 332, 333, 353, 354
Offset: 1
Keywords
Examples
The terms together with their standard compositions begin: 13: (1,2,1) 22: (2,1,2) 25: (1,3,1) 45: (2,1,2,1) 49: (1,4,1) 54: (1,2,1,2) 76: (3,1,3) 77: (3,1,2,1) 82: (2,3,2) 89: (2,1,3,1) 97: (1,5,1) 101: (1,3,2,1) 102: (1,3,1,2) 105: (1,2,3,1) 108: (1,2,1,3) 109: (1,2,1,2,1) 141: (4,1,2,1) 148: (3,2,3) 150: (3,2,1,2) 153: (3,1,3,1)
Links
Crossrefs
Compositions of this type are counted by A285981.
Permutations of prime indices of this type are counted by A335460.
A011782 counts compositions.
A066099 lists compositions in standard order.
A333755 counts compositions by number of runs.
A335454 counts patterns matched by standard compositions.
A335456 counts patterns matched by compositions.
A335462 counts (1,2,1)- and (2,1,2)-matching permutations of prime indices.
A335465 counts minimal patterns avoided by a standard composition.
A373948 encodes run-compression using compositions in standard order.
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Select[Range[0,100],Length[Split[stc[#]]] == Length[stc[#]]&&!UnsameQ@@First/@Split[stc[#]]&]
Comments