|
|
A357185
|
|
Numbers k such that the k-th composition in standard order has the same length as the absolute value of its alternating sum.
|
|
10
|
|
|
0, 1, 9, 12, 19, 22, 28, 34, 40, 69, 74, 84, 97, 104, 132, 135, 141, 144, 153, 177, 195, 198, 204, 216, 225, 240, 265, 271, 274, 283, 286, 292, 307, 310, 316, 321, 328, 355, 358, 364, 376, 386, 400, 451, 454, 460, 472, 496, 520, 523, 526, 533, 538, 544, 553
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.
The alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.
|
|
LINKS
|
|
|
EXAMPLE
|
The sequence together with the corresponding compositions begins:
0: ()
1: (1)
9: (3,1)
12: (1,3)
19: (3,1,1)
22: (2,1,2)
28: (1,1,3)
34: (4,2)
40: (2,4)
69: (4,2,1)
74: (3,2,2)
84: (2,2,3)
97: (1,5,1)
104: (1,2,4)
132: (5,3)
135: (5,1,1,1)
141: (4,1,2,1)
|
|
MATHEMATICA
|
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n, 2]], 1], 0]]//Reverse;
ats[y_]:=Sum[(-1)^(i-1)*y[[i]], {i, Length[y]}];
Select[Range[0, 100], Length[stc[#]]==Abs[ats[stc[#]]]&]
|
|
CROSSREFS
|
See link for sequences related to standard compositions.
For sum equal to twice alternating sum we have A348614, counted by A262977.
These compositions are counted by A357183.
A124754 gives alternating sums of standard compositions.
A238279 counts compositions by sum and number of maximal runs.
A357136 counts compositions by alternating sum.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|