A357182 -id:A357182 - cp's OEIS frontend

A357136 Triangle read by rows where T(n,k) is the number of integer compositions of n with alternating sum k = 0..n. Part of the full triangle A097805.

1, 0, 1, 1, 0, 1, 0, 2, 0, 1, 3, 0, 3, 0, 1, 0, 6, 0, 4, 0, 1, 10, 0, 10, 0, 5, 0, 1, 0, 20, 0, 15, 0, 6, 0, 1, 35, 0, 35, 0, 21, 0, 7, 0, 1, 0, 70, 0, 56, 0, 28, 0, 8, 0, 1, 126, 0, 126, 0, 84, 0, 36, 0, 9, 0, 1, 0, 252, 0, 210, 0, 120, 0, 45, 0, 10, 0, 1

Offset: 0

Gus Wiseman, Sep 30 2022

A composition of n is a finite sequence of positive integers summing to n.

The alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.

			Triangle begins:
    1
    0   1
    1   0   1
    0   2   0   1
    3   0   3   0   1
    0   6   0   4   0   1
   10   0  10   0   5   0   1
    0  20   0  15   0   6   0   1
   35   0  35   0  21   0   7   0   1
    0  70   0  56   0  28   0   8   0   1
  126   0 126   0  84   0  36   0   9   0   1
    0 252   0 210   0 120   0  45   0  10   0   1
  462   0 462   0 330   0 165   0  55   0  11   0   1
    0 924   0 792   0 495   0 220   0  66   0  12   0   1
For example, row n = 5 counts the following compositions:
  .  (32)     .  (41)   .  (5)
     (122)       (113)
     (221)       (212)
     (1121)      (311)
     (2111)
     (11111)

The full triangle counting compositions by alternating sum is A097805.
The version for partitions is A103919, full triangle A344651.
This is the right-half of even-indexed rows of A260492.
The triangle without top row and left column is A108044.
Ranking and counting compositions:
- product = sum: A335404, counted by A335405.
- sum = twice alternating sum: A348614, counted by A262977.
- length = alternating sum: A357184, counted by A357182.
- length = absolute value of alternating sum: A357185, counted by A357183.
A003242 counts anti-run compositions, ranked by A333489.
A011782 counts compositions.
A025047 counts alternating compositions, ranked by A345167.
A032020 counts strict compositions, ranked by A233564.
A124754 gives alternating sums of standard compositions.
A238279 counts compositions by sum and number of maximal runs.
Cf. A000120, A051159, A070939, A114220, A114901, A242882, A262046.

Prepend[Table[If[EvenQ[nn],Prepend[#,0],#]&[Riffle[Table[Binomial[nn,k],{k,Floor[nn/2],nn}],0]],{nn,0,10}],{1}]

A357641 Number of integer compositions of 2n whose half-alternating sum is 0.

Original entry on oeis.org

1, 0, 2, 8, 28, 104, 396, 1504, 5720, 21872, 83980, 323344, 1248072, 4828784, 18721080, 72711552, 282861360, 1101980000, 4298748300, 16789002736, 65641204200, 256895795312, 1006308200040, 3945185586368, 15478849767888, 60774329914144, 238775589937976

Offset: 0

Gus Wiseman, Oct 12 2022

nonn

We define the half-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A + B - C - D + E + F - G - ...

			The a(0) = 1 through a(3) = 8 compositions:
  ()  .  (112)   (123)
         (1111)  (213)
                 (1212)
                 (1221)
                 (2112)
                 (2121)
                 (11121)
                 (11211)

Alois P. Heinz, Table of n, a(n) for n = 0..1664

The skew-alternating version appears to be A001700.
The version for partitions is A035363.
The skew-alternating form is A088218 (also for full alternating sum).
These compositions are ranked by A357625, reverse A357626.
For reversed partitions we have A357639, ranked by A357631.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357621 = half-alternating sum of standard compositions, reverse A357622.
A357637 counts partitions by half-alternating sum, skew A357638.
Cf. A000583, A001511, A053251, A344619, A357136, A357182, A357627, A357628, A357629, A357633, A357642.

a:= proc(n) option remember; `if`(n<3, [1, 0, 2][n+1],
      (8*(n-3)*(5*n-7)*(2*n-5)*a(n-3) -4*(5*n-12)*(n-2)^2*a(n-2)
       +2*(2*n-5)*(5*n-7)*n*a(n-1))/((5*n-12)*(n+1)*(n-2)))
    end:
seq(a(n), n=0..40);  # Alois P. Heinz, Oct 19 2022

halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[2n],halfats[#]==0&]],{n,0,7}]

a(11)-a(26) from Alois P. Heinz, Oct 19 2022

A357621 Half-alternating sum of the n-th composition in standard order.

Original entry on oeis.org

0, 1, 2, 2, 3, 3, 3, 1, 4, 4, 4, 2, 4, 2, 0, 0, 5, 5, 5, 3, 5, 3, 1, 1, 5, 3, 1, 1, -1, -1, -1, 1, 6, 6, 6, 4, 6, 4, 2, 2, 6, 4, 2, 2, 0, 0, 0, 2, 6, 4, 2, 2, 0, 0, 0, 2, -2, -2, -2, 0, -2, 0, 2, 2, 7, 7, 7, 5, 7, 5, 3, 3, 7, 5, 3, 3, 1, 1, 1, 3, 7, 5, 3, 3, 1

Offset: 0

Gus Wiseman, Oct 07 2022

sign

We define the half-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A + B - C - D + E + F - G - ...

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 358-th composition is (2,1,3,1,2) so a(358) = 2 + 1 - 3 - 1 + 2 = 1.

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
The reverse version is A357622.
The skew-alternating form is A357623, reverse A357624.
Positions of zeros are A357625, reverse A357626.
The version for prime indices is A357629.
The version for Heinz numbers of partitions is A357633.
A357637 counts partitions by half-alternating sum, skew A357638.
A357641 counts comps w/ half-alt sum 0, partitions A357639, even A357642.
Cf. A001511, A053251, A357136, A357182, A357183, A357184, A357185.
Cf. A357627, A357628, A357630, A357631, A357634, A357635, A357640.

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
Table[halfats[stc[n]],{n,0,100}]

Positions of first appearances are powers of 2 and even powers of 2 times 7, or A029746 without 7.

A357189 Number of integer partitions of n with the same length as alternating sum.

Original entry on oeis.org

1, 1, 0, 0, 1, 1, 1, 2, 2, 4, 3, 5, 6, 9, 9, 13, 16, 23, 23, 34, 37, 54, 54, 78, 84, 120, 121, 170, 182, 252, 260, 358, 379, 517, 535, 725, 764, 1030, 1064, 1427, 1494, 1992, 2059, 2733, 2848, 3759, 3887, 5106, 5311, 6946, 7177, 9345, 9701, 12577, 12996, 16788

Offset: 0

Gus Wiseman, Sep 30 2022

nonn

A partition of n is a weakly decreasing sequence of positive integers summing to n.

The alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.

			The a(4) = 1 through a(13) = 9 partitions:
  31   311   42   322   53     333     64     443     75       553
                  421   5111   432     5221   542     5331     652
                               531     6211   641     6222     751
                               51111          52211   6321     52222
                                              62111   7311     53311
                                                      711111   62221
                                                               63211
                                                               73111
                                                               7111111

For product equal to sum we have A001055, compositions A335405.
For product instead of length we have A004526, compositions A114220.
The version for compositions is A357182, ranked by A357184.
For sum equal to twice alternating sum we have A357189 (this sequence).
These partitions are ranked by A357486.
The reverse version is A357487, ranked by A357485.
A000041 counts partitions, strict A000009.
A025047 counts alternating compositions.
A103919 counts partitions by alternating sum, full triangle A344651.
A357136 counts compositions by alternating sum, full triangle A097805.
Cf. A051159, A070939, A131044, A262046, A262977, A301987, A357183.

ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Table[Length[Select[IntegerPartitions[n],Length[#]==ats[#]&]],{n,0,30}]

A357623 Skew-alternating sum of the n-th composition in standard order.

Original entry on oeis.org

0, 1, 2, 0, 3, 1, -1, -1, 4, 2, 0, 0, -2, -2, -2, 0, 5, 3, 1, 1, -1, -1, -1, 1, -3, -3, -3, -1, -3, -1, 1, 1, 6, 4, 2, 2, 0, 0, 0, 2, -2, -2, -2, 0, -2, 0, 2, 2, -4, -4, -4, -2, -4, -2, 0, 0, -4, -2, 0, 0, 2, 2, 2, 0, 7, 5, 3, 3, 1, 1, 1, 3, -1, -1, -1, 1, -1

Offset: 0

Gus Wiseman, Oct 08 2022

sign

We define the skew-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A - B - C + D + E - F - G + ....

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 358-th composition is (2,1,3,1,2) so a(358) = 2 - 1 - 3 + 1 + 2 = 1.

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
Positions of positive firsts appear to be A029744.
The half-alternating form is A357621, reverse A357622.
The reverse version is A357624.
Positions of zeros are A357627, reverse A357628.
The version for prime indices is A357630.
The version for Heinz numbers of partitions is A357634.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357637 counts partitions by half-alternating sum, skew A357638.
A357641 counts comps w/ half-alt sum 0, partitions A357639, even A357642.
Cf. A001700, A001511, A053251, A344619, A357136, A357182, A357183, A357184, A357185, A357625, A357626.

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
Table[skats[stc[n]],{n,0,100}]

A357625 Numbers k such that the k-th composition in standard order has half-alternating sum 0.

Original entry on oeis.org

0, 14, 15, 44, 45, 46, 52, 53, 54, 59, 61, 152, 153, 154, 156, 168, 169, 170, 172, 179, 181, 185, 200, 201, 202, 204, 211, 213, 217, 230, 231, 234, 235, 239, 242, 243, 247, 254, 255, 560, 561, 562, 564, 568, 592, 593, 594, 596, 600, 611, 613, 617, 625, 656

Offset: 1

Gus Wiseman, Oct 08 2022

nonn

We define the half-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A + B - C - D + E + F - G - ...

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 sequence together with the corresponding compositions begins:
    0: ()
   14: (1,1,2)
   15: (1,1,1,1)
   44: (2,1,3)
   45: (2,1,2,1)
   46: (2,1,1,2)
   52: (1,2,3)
   53: (1,2,2,1)
   54: (1,2,1,2)
   59: (1,1,2,1,1)
   61: (1,1,1,2,1)

John Tyler Rascoe, Table of n, a(n) for n = 1..7762
Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
The version for full alternating sum is A344619.
Positions of zeros in A357621.
The reverse version is A357626.
The skew-alternating form is A357627, reverse A357628.
The version for prime indices is A357631.
The version for Heinz numbers of partitions is A357635.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357637 counts partitions by half-alternating sum, skew A357638.
A357641 counts comps w/ half-alt sum 0, partitions A357639, even A357642.
Cf. A001511, A053251, A357136, A357182, A357183, A357184, A357185, A357622, A357623, A357629, A357633.

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
Select[Range[0,100],halfats[stc[#]]==0&]

from itertools import count, islice
def comp(n): #row n of A066099 after Franklin T. Adams-Watters
    v,k = [],0
    while n > 0:
        k += 1
        if n%2 == 1:
            v.append(k)
            k = 0
        n = n//2
    return(v[::-1])
def a_gen():
    for n in count(0):
        c = comp(n)
        x = sum(c[i]*(-1)**(i//2) for i in range(len(c)))
        if x == 0:
            yield(n)
A357625_list = list(islice(a_gen(), 60)) # John Tyler Rascoe, Jun 01 2024

A357642 Number of even-length integer compositions of 2n whose half-alternating sum is 0.

Original entry on oeis.org

1, 0, 1, 4, 13, 48, 186, 712, 2717, 10432, 40222, 155384, 601426, 2332640, 9063380, 35269392, 137438685, 536257280, 2094786870, 8191506136, 32063203590, 125613386912, 492516592620, 1932569186288, 7588478653938, 29816630378368, 117226929901676, 461151757861552

Offset: 0

Gus Wiseman, Oct 12 2022

nonn

We define the half-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A + B - C - D + E + F - G - ...

			The a(0) = 1 through a(4) = 13 compositions:
  ()  .  (1111)  (1212)  (1313)
                 (1221)  (1322)
                 (2112)  (1331)
                 (2121)  (2213)
                         (2222)
                         (2231)
                         (3113)
                         (3122)
                         (3131)
                         (111311)
                         (112211)
                         (113111)
                         (11111111)

David A. Corneth, Table of n, a(n) for n = 0..1665

The skew-alternating version appears to be A000984.
For original alternating sum we have A001700/A088218.
The version for partitions of any length is A357639, ranked by A357631.
For length multiple of 4 we have A110145.
These compositions of any length are ranked by A357625, reverse A357626.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357621 = half-alternating sum of standard compositions, reverse A357622.
A357637 counts partitions by half-alternating sum, skew A357638.
Cf. A000583, A001511, A035363, A053251, A344619, A357136, A357182, A357627, A357628, A357629, A357633.

Table[Length[Select[Join @@ Permutations/@IntegerPartitions[2n],EvenQ[Length[#]]&&halfats[#]==0&]],{n,0,9}]

a(n) = {my(v, res); if(n < 3, return(1 - bitand(n,1))); res = 0; v = vector(2*n, i, binomial(n-1,i-1)); forstep(i = 4, 2*n, 2, lp = i\4 * 2; rp = i - lp; res += v[lp] * v[rp]; ); res } \\ David A. Corneth, Oct 13 2022

More terms from Alois P. Heinz, Oct 12 2022

A357626 Numbers k such that the reversed k-th composition in standard order has half-alternating sum 0.

Original entry on oeis.org

0, 11, 15, 37, 38, 45, 46, 53, 54, 55, 59, 137, 138, 140, 153, 154, 156, 167, 169, 170, 171, 172, 179, 191, 201, 202, 204, 205, 206, 213, 214, 229, 230, 231, 235, 243, 247, 251, 255, 529, 530, 532, 536, 561, 562, 564, 568, 583, 587, 593, 594, 595, 596, 600

Offset: 1

Gus Wiseman, Oct 08 2022

nonn

We define the half-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A + B - C - D + E + F - G - ...

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 sequence together with the corresponding compositions begins:
    0: ()
   11: (2,1,1)
   15: (1,1,1,1)
   37: (3,2,1)
   38: (3,1,2)
   45: (2,1,2,1)
   46: (2,1,1,2)
   53: (1,2,2,1)
   54: (1,2,1,2)
   55: (1,2,1,1,1)
   59: (1,1,2,1,1)

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
The alternating form is A344619.
Positions of zeros in A357622.
The non-reverse version is A357625.
The skew-alternating form is A357628, reverse A357627.
The version for prime indices is A357631.
The version for Heinz numbers of partitions is A357635.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357637 counts partitions by half-alternating sum, skew A357638.
A357641 counts comps w/ half-alt sum 0, partitions A357639, even A357642.
Cf. A001511, A053251, A357136, A357182, A357183, A357184, A357185, A357621, A357623, A357629, A357633.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
Select[Range[0,100],halfats[Reverse[stc[#]]]==0&]

A357184 Numbers k such that the k-th composition in standard order has the same length as its alternating sum.

Original entry on oeis.org

0, 1, 9, 19, 22, 28, 34, 69, 74, 84, 104, 132, 135, 141, 153, 177, 225, 265, 271, 274, 283, 286, 292, 307, 310, 316, 328, 355, 358, 364, 376, 400, 451, 454, 460, 472, 496, 520, 523, 526, 533, 538, 553, 562, 593, 610, 673, 706, 833, 898, 1041, 1047, 1053, 1058

Offset: 1

Gus Wiseman, Sep 28 2022

nonn

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.

			The sequence together with the corresponding compositions begins:
    0: ()
    1: (1)
    9: (3,1)
   19: (3,1,1)
   22: (2,1,2)
   28: (1,1,3)
   34: (4,2)
   69: (4,2,1)
   74: (3,2,2)
   84: (2,2,3)
  104: (1,2,4)
  132: (5,3)
  135: (5,1,1,1)
  141: (4,1,2,1)
  153: (3,1,3,1)
  177: (2,1,4,1)
  225: (1,1,5,1)

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
For product equal to sum we have A335404, counted by A335405.
For sum equal to twice alternating sum we have A348614, counted by A262977.
These compositions are counted by A357182.
For absolute value we have A357184, counted by A357183.
The case of partitions is counted by A357189.
A003242 counts anti-run compositions, ranked by A333489.
A011782 counts compositions.
A025047 counts alternating compositions, ranked by A345167.
A032020 counts strict compositions, ranked by A233564.
A124754 gives alternating sums of standard compositions.
A238279 counts compositions by sum and number of maximal runs.
A357136 counts compositions by alternating sum.
Cf. A000120, A070939, A114220, A114901, A178470, A242882, A262046, A301987.

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[#]]==ats[stc[#]]&]

A357488 Number of integer partitions of 2n - 1 with the same length as alternating sum.

Original entry on oeis.org

1, 0, 1, 2, 4, 5, 9, 13, 23, 34, 54, 78, 120, 170, 252, 358, 517, 725, 1030, 1427, 1992, 2733, 3759, 5106, 6946, 9345, 12577, 16788, 22384, 29641, 39199, 51529, 67626, 88307, 115083, 149332, 193383, 249456, 321134, 411998, 527472, 673233, 857539, 1089223, 1380772

Offset: 1

Gus Wiseman, Oct 02 2022

nonn

A partition of n is a weakly decreasing sequence of positive integers summing to n.

The alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.

			The a(1) = 1 through a(7) = 9 partitions:
  (1)  .  (311)  (322)  (333)    (443)    (553)
                 (421)  (432)    (542)    (652)
                        (531)    (641)    (751)
                        (51111)  (52211)  (52222)
                                 (62111)  (53311)
                                          (62221)
                                          (63211)
                                          (73111)
                                          (7111111)

For product equal to sum we have A001055, compositions A335405.
The version for compositions appears to be A222763, odd version of A357182.
These are the odd-indexed terms of A357189, ranked by A357486.
These partitions are ranked by the odd-sum portion of A357485.
Except at the start, alternately adding zeros gives A357487.
A000041 counts partitions, strict A000009.
A025047 counts alternating compositions.
A103919 counts partitions by alternating sum, full triangle A344651.
A357136 counts compositions by alternating sum, full triangle A097805.
Cf. A004526, A051159, A114220, A131044, A262046, A262977, A357183, A357184.

ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Table[Length[Select[IntegerPartitions[n],Length[#]==ats[#]&]],{n,1,30,2}]

a(n) = A357189(2n - 1).

More terms from Alois P. Heinz, Oct 04 2022

cp's OEIS Frontend

A357136 Triangle read by rows where T(n,k) is the number of integer compositions of n with alternating sum k = 0..n. Part of the full triangle A097805.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357641 Number of integer compositions of 2n whose half-alternating sum is 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A357621 Half-alternating sum of the n-th composition in standard order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A357189 Number of integer partitions of n with the same length as alternating sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357623 Skew-alternating sum of the n-th composition in standard order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A357625 Numbers k such that the k-th composition in standard order has half-alternating sum 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Python

A357642 Number of even-length integer compositions of 2n whose half-alternating sum is 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A357626 Numbers k such that the reversed k-th composition in standard order has half-alternating sum 0.

Views

Author

Keywords

Comments