A345911 Numbers k such that the k-th composition in standard order (row k of A066099) has reverse-alternating sum 1.
1, 6, 7, 20, 21, 26, 27, 30, 31, 72, 73, 82, 83, 86, 87, 92, 93, 100, 101, 106, 107, 110, 111, 116, 117, 122, 123, 126, 127, 272, 273, 290, 291, 294, 295, 300, 301, 312, 313, 324, 325, 330, 331, 334, 335, 340, 341, 346, 347, 350, 351, 360, 361, 370, 371, 374
Offset: 1
Keywords
Examples
The sequence of terms together with the corresponding compositions begins: 1: (1) 6: (1,2) 7: (1,1,1) 20: (2,3) 21: (2,2,1) 26: (1,2,2) 27: (1,2,1,1) 30: (1,1,1,2) 31: (1,1,1,1,1) 72: (3,4) 73: (3,3,1) 82: (2,3,2) 83: (2,3,1,1) 86: (2,2,1,2) 87: (2,2,1,1,1)
Crossrefs
The version for Heinz numbers of partitions is A001105.
A version using runs of binary digits is A066879.
These are positions of 1's in A344618.
The non-reverse version is A345909.
The opposite (negative 1) version is A345912.
The version for prime indices is A345958.
A011782 counts compositions.
A097805 counts compositions by alternating or reverse-alternating sum.
A344610 counts partitions by sum and positive reverse-alternating sum.
A344611 counts partitions of 2n with reverse-alternating sum >= 0.
A345197 counts compositions by sum, length, and alternating sum.
Compositions of n, 2n, or 2n+1 with alternating/reverse-alternating sum k:
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; sats[y_]:=Sum[(-1)^(i-Length[y])*y[[i]],{i,Length[y]}]; Select[Range[0,100],sats[stc[#]]==1&]
Comments