A345918 Numbers k such that the k-th composition in standard order (row k of A066099) has reverse-alternating sum > 0.
1, 2, 4, 6, 7, 8, 11, 12, 14, 16, 19, 20, 21, 22, 24, 26, 27, 28, 30, 31, 32, 35, 37, 38, 40, 42, 44, 47, 48, 51, 52, 54, 56, 59, 60, 62, 64, 67, 69, 70, 72, 73, 74, 76, 79, 80, 82, 83, 84, 86, 87, 88, 91, 92, 93, 94, 96, 99, 100, 101, 102, 104, 106, 107, 108
Offset: 1
Keywords
Examples
The initial terms and the corresponding compositions: 1: (1) 26: (1,2,2) 52: (1,2,3) 2: (2) 27: (1,2,1,1) 54: (1,2,1,2) 4: (3) 28: (1,1,3) 56: (1,1,4) 6: (1,2) 30: (1,1,1,2) 59: (1,1,2,1,1) 7: (1,1,1) 31: (1,1,1,1,1) 60: (1,1,1,3) 8: (4) 32: (6) 62: (1,1,1,1,2) 11: (2,1,1) 35: (4,1,1) 64: (7) 12: (1,3) 37: (3,2,1) 67: (5,1,1) 14: (1,1,2) 38: (3,1,2) 69: (4,2,1) 16: (5) 40: (2,4) 70: (4,1,2) 19: (3,1,1) 42: (2,2,2) 72: (3,4) 20: (2,3) 44: (2,1,3) 73: (3,3,1) 21: (2,2,1) 47: (2,1,1,1,1) 74: (3,2,2) 22: (2,1,2) 48: (1,5) 76: (3,1,3) 24: (1,4) 51: (1,3,1,1) 79: (3,1,1,1,1)
Crossrefs
The version for prime indices is A000037.
These compositions are counted by A027306.
These are the positions of terms > 0 in A344618.
The weak (k >= 0) version is A345914.
The version for unreversed alternating sum is A345917.
The opposite (k < 0) version is A345920.
A011782 counts compositions.
A097805 counts compositions by alternating (or reverse-alternating) sum.
A236913 counts partitions of 2n with reverse-alternating sum <= 0.
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[#]]>0&]
Comments