A006330 -id:A006330 - cp's OEIS frontend

A344741 Number of integer partitions of 2n with reverse-alternating sum -2.

0, 0, 1, 2, 4, 8, 14, 24, 39, 62, 95, 144, 212, 309, 442, 626, 873, 1209, 1653, 2245, 3019, 4035, 5348, 7051, 9229, 12022, 15565, 20063, 25722, 32847, 41746, 52862, 66657, 83768, 104873, 130889, 162797, 201902, 249620, 307789, 378428, 464122, 567721, 692828, 843448

Offset: 0

Gus Wiseman, Jun 08 2021

nonn

The reverse-alternating sum of a partition (y_1,...,y_k) is Sum_i (-1)^(k-i) y_i. This is equal to (-1)^(r-1) times the number of odd parts, where r is the greatest part, so a(n) is the number of integer partitions of 2n with exactly two odd parts, neither of which is the greatest.

Also the number of reversed integer partitions of 2n with alternating sum -2.

			The a(2) = 1 through a(6) = 14 partitions:
  (31)  (42)    (53)      (64)        (75)
        (3111)  (3221)    (3331)      (4332)
                (4211)    (4222)      (4431)
                (311111)  (4321)      (5322)
                          (5311)      (5421)
                          (322111)    (6411)
                          (421111)    (322221)
                          (31111111)  (333111)
                                      (422211)
                                      (432111)
                                      (531111)
                                      (32211111)
                                      (42111111)
                                      (3111111111)

The version for -1 instead of -2 is A000070.
The non-reversed negative version is A000097.
The ordered version appears to be A001700.
The version for 1 instead of -2 is A035363.
The whole set of partitions of 2n is counted by A058696.
The strict case appears to be A065033.
The version for -1 instead of -2 is A306145.
The version for 2 instead of -2 is A344613.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A124754 gives alternating sums of standard compositions (reverse: A344618).
A316524 is the alternating sum of the prime indices of n (reverse: A344616).
A344610 counts partitions by sum and positive reverse-alternating sum.
A344611 counts partitions of 2n with reverse-alternating sum >= 0.
Cf. A001250, A003242, A006330, A027187, A028260, A344604, A344607, A344608, A344650, A344651, A344654, A344739.

sats[y_]:=Sum[(-1)^(i-Length[y])*y[[i]],{i,Length[y]}];
Table[Length[Select[IntegerPartitions[n],sats[#]==-2&]],{n,0,30,2}]
- or -
Table[Length[Select[IntegerPartitions[n],EvenQ[Max[#]]&&Count[#,_?OddQ]==2&]],{n,0,30,2}]

More terms from Bert Dobbelaere, Jun 12 2021

A114921 Number of unimodal compositions of n+2 where the maximal part appears exactly twice.

Original entry on oeis.org

1, 0, 1, 2, 4, 6, 11, 16, 27, 40, 63, 92, 141, 202, 299, 426, 614, 862, 1222, 1694, 2362, 3242, 4456, 6054, 8229, 11072, 14891, 19872, 26477, 35050, 46320, 60866, 79827, 104194, 135703, 176008, 227791, 293702, 377874, 484554, 620011, 790952, 1006924

Offset: 0

Michael Somos, Jan 07 2006

nonn

Old name was: Expansion of a q-series.
a(n) is also the number of 2-colored partitions of n with the same number of parts in each color. - Shishuo Fu, May 30 2017
From Gus Wiseman, Mar 25 2021: (Start)
Also the number of even-length compositions of n with alternating parts weakly decreasing. Allowing odd lengths also gives A342528. The version with alternating parts strictly decreasing appears to be A064428. The a(2) = 1 through a(7) = 16 compositions are:
  (1,1)  (1,2)  (1,3)      (1,4)      (1,5)          (1,6)
         (2,1)  (2,2)      (2,3)      (2,4)          (2,5)
                (3,1)      (3,2)      (3,3)          (3,4)
                (1,1,1,1)  (4,1)      (4,2)          (4,3)
                           (1,2,1,1)  (5,1)          (5,2)
                           (2,1,1,1)  (1,2,1,2)      (6,1)
                                      (1,3,1,1)      (1,3,1,2)
                                      (2,1,2,1)      (1,4,1,1)
                                      (2,2,1,1)      (2,2,1,2)
                                      (3,1,1,1)      (2,2,2,1)
                                      (1,1,1,1,1,1)  (2,3,1,1)
                                                     (3,1,2,1)
                                                     (3,2,1,1)
                                                     (4,1,1,1)
                                                     (1,2,1,1,1,1)
                                                     (2,1,1,1,1,1)
(End)

			From _Joerg Arndt_, Jun 10 2013: (Start)
There are a(7)=16 such compositions of 7+2=9 where the maximal part appears twice:
  01:  [ 1 1 1 1 1 2 2 ]
  02:  [ 1 1 1 1 2 2 1 ]
  03:  [ 1 1 1 2 2 1 1 ]
  04:  [ 1 1 1 3 3 ]
  05:  [ 1 1 2 2 1 1 1 ]
  06:  [ 1 1 3 3 1 ]
  07:  [ 1 2 2 1 1 1 1 ]
  08:  [ 1 2 3 3 ]
  09:  [ 1 3 3 1 1 ]
  10:  [ 1 3 3 2 ]
  11:  [ 1 4 4 ]
  12:  [ 2 2 1 1 1 1 1 ]
  13:  [ 2 3 3 1 ]
  14:  [ 3 3 1 1 1 ]
  15:  [ 3 3 2 1 ]
  16:  [ 4 4 1 ]
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..10000
S. Fu and D. Tang, On a generalized crank for k-colored partitions, arXiv:1705.10067 [math.CO], 2017.
B. Kim and J. Lovejoy, Ramanujan-type partial theta identities and rank differences for special unimodal sequences, Annals of Combinatorics, 19 (2015), 705-733.

Cf. A226541 (max part appears three times), A188674 (max part m appears m times), A001523 (max part appears any number of times).
Column k=2 of A247255.
A000041 counts weakly increasing (or weakly decreasing) compositions.
A000203 adds up divisors.
A002843 counts compositions with all adjacent parts x <= 2y.
A003242 counts anti-run compositions.
A034008 counts even-length compositions.
A065608 counts even-length compositions with alternating parts equal.
A342528 counts compositions with alternating parts weakly decreasing.
A342532 counts even-length compositions with alternating parts unequal.
Cf. A000726, A001522, A008965, A062968, A064410, A064428, A069916, A070211, A175342, A224958, A342495, A342527.

max = 50; s = (1+Sum[2*(-1)^k*q^(k(k+1)/2), {k, 1, max}])/QPochhammer[q]^2+ O[q]^max; CoefficientList[s, q] (* Jean-François Alcover, Nov 30 2015, from 1st g.f. *)
wdw[q_]:=And@@Table[q[[i]]>=q[[i+2]],{i,Length[q]-2}];
Table[Length[Select[Join@@Permutations/@Select[IntegerPartitions[n],EvenQ[Length[#]]&],wdw]],{n,0,15}] (* Gus Wiseman, Mar 25 2021 *)

{a(n) = if( n<0, 0, polcoeff( sum(k=0, n\2, x^(2*k) / prod(i=1, k, 1 - x^i, 1 + x * O(x^n))^2), n))};

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( sum(k=1, sqrtint(8*n + 1)\2, 2*(-1)^k * x^((k^2+k)/2), 1 + A) / eta(x + A)^2, n))};

G.f.: 1 + Sum_{k>0} (x^k / ((1-x)(1-x^2)...(1-x^k)))^2 = (1 + Sum_{k>0} 2 (-1)^k x^((k^2+k)/2) ) / (Product_{k>0} (1 - x^k))^2.
G.f.: 1 + x*(1 - G(0))/(1-x) where G(k) = 1 - x/(1-x^(k+1))^2/(1-x/(x-1/G(k+1) )); (continued fraction). - Sergei N. Gladkovskii, Jan 23 2013
a(n) = A006330(n) - A001523(n). - Vaclav Kotesovec, Jun 22 2015
a(n) ~ Pi * exp(2*Pi*sqrt(n/3)) / (16 * 3^(5/4) * n^(7/4)). - Vaclav Kotesovec, Oct 24 2018

New name from Joerg Arndt, Jun 10 2013

A152146 Triangle read by rows: T(n,k) (n >= 0, 0 <= k <= n) = number of partitions of 2n into 2k odd parts.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 2, 1, 1, 0, 2, 2, 1, 1, 0, 3, 3, 2, 1, 1, 0, 3, 5, 3, 2, 1, 1, 0, 4, 6, 5, 3, 2, 1, 1, 0, 4, 9, 7, 5, 3, 2, 1, 1, 0, 5, 11, 11, 7, 5, 3, 2, 1, 1, 0, 5, 15, 14, 11, 7, 5, 3, 2, 1, 1, 0, 6, 18, 20, 15, 11, 7, 5, 3, 2, 1, 1, 0, 6, 23, 26, 22, 15, 11, 7, 5, 3, 2, 1, 1

Offset: 0

R. J. Mathar, Sep 25 2009, indices corrected Jul 09 2012

In both this and A152157, reading columns downwards "converges" to A000041.

Also the number of strict integer partitions of 2n with alternating sum 2k. Also the number of normal integer partitions of 2n of which 2k parts are odd, where a partition is normal if it covers an initial interval of positive integers. - Gus Wiseman, Jun 20 2021

			Triangle begins:
  1
  0  1
  0  1  1
  0  2  1   1
  0  2  2   1   1
  0  3  3   2   1   1
  0  3  5   3   2   1   1
  0  4  6   5   3   2   1  1
  0  4  9   7   5   3   2  1  1
  0  5 11  11   7   5   3  2  1  1
  0  5 15  14  11   7   5  3  2  1  1
  0  6 18  20  15  11   7  5  3  2  1  1
  0  6 23  26  22  15  11  7  5  3  2  1  1
  0  7 27  35  29  22  15 11  7  5  3  2  1  1
  0  7 34  44  40  30  22 15 11  7  5  3  2  1 1
  0  8 39  58  52  42  30 22 15 11  7  5  3  2 1 1
  0  8 47  71  70  55  42 30 22 15 11  7  5  3 2 1 1
  0  9 54  90  89  75  56 42 30 22 15 11  7  5 3 2 1 1
  0  9 64 110 116  97  77 56 42 30 22 15 11  7 5 3 2 1 1
  0 10 72 136 146 128 100 77 56 42 30 22 15 11 7 5 3 2 1 1
From _Gus Wiseman_, Jun 20 2021: (Start)
For example, row n = 6 counts the following partitions (B = 11):
  (75)  (3333)  (333111)  (33111111)  (3111111111)  (111111111111)
  (93)  (5331)  (531111)  (51111111)
  (B1)  (5511)  (711111)
        (7311)
        (9111)
The corresponding strict partitions are:
  (7,5)      (8,4)      (9,3)    (10,2)   (11,1)  (12)
  (6,5,1)    (5,4,3)    (7,3,2)  (9,2,1)
  (5,4,2,1)  (6,4,2)    (8,3,1)
             (7,4,1)
             (6,3,2,1)
The corresponding normal partitions are:
  43221    33321     3321111    321111111   21111111111  111111111111
  322221   332211    32211111   2211111111
  2222211  432111    222111111
           3222111
           22221111
(End)

Alois P. Heinz, Rows n = 0..200, flattened

Cf. A035294 (row sums), A107379, A152140, A152157.
Column k = 1 is A004526.
Column k = 2-8 is A026810 - A026816.
The non-strict version is A239830.
The reverse non-strict version is A344610.
The reverse version is A344649
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A067659 counts strict partitions of odd length.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A124754 gives alternating sum of standard compositions (reverse: A344618).
A316524 is the alternating sum of the prime indices of n (reverse: A344616).
A344611 counts partitions of 2n with reverse-alternating sum >= 0.
Cf. A006330, A027187, A116406, A120452, A239829, A343941, A344607, A344608, A344609, A344650, A344651, A344739, A344741.

b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      b(n, i-2)+`if`(i>n, 0, expand(sqrt(x)*b(n-i, i)))))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..n))(b(2*n, 2*n-1)):
seq(T(n), n=0..12);  # Alois P. Heinz, Jun 21 2021

ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&ats[#]==k&]],{n,0,30,2},{k,0,n,2}] (* Gus Wiseman, Jun 20 2021 *)

T(n,k) = A152140(2n,2k).

A357485 Heinz numbers of integer partitions with the same length as reverse-alternating sum.

Original entry on oeis.org

1, 2, 20, 42, 45, 105, 110, 125, 176, 182, 231, 245, 312, 374, 396, 429, 494, 605, 663, 680, 702, 780, 782, 845, 891, 969, 1064, 1088, 1100, 1102, 1311, 1426, 1428, 1445, 1530, 1755, 1805, 1820, 1824, 1950, 2001, 2024, 2146, 2156, 2394, 2448, 2475, 2508, 2542

Offset: 1

Gus Wiseman, Oct 01 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

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

			The terms together with their prime indices begin:
     1: {}
     2: {1}
    20: {1,1,3}
    42: {1,2,4}
    45: {2,2,3}
   105: {2,3,4}
   110: {1,3,5}
   125: {3,3,3}
   176: {1,1,1,1,5}
   182: {1,4,6}
   231: {2,4,5}
   245: {3,4,4}
   312: {1,1,1,2,6}
   374: {1,5,7}
   396: {1,1,2,2,5}

The version for compositions is A357184, counted by A357182.
These partitions are counted by A357189.
For absolute value we have A357486, counted by A357487.
A000041 counts partitions, strict A000009.
A000712 up to 0's counts partitions w sum = twice alt sum, ranked A349159.
A001055 counts partitions with product equal to sum, ranked by A301987.
A006330 up to 0's counts partitions w sum = twice rev-alt sum, rank A349160.
Cf. A004526, A025047, A051159, A131044, A262046, A357136.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Select[Range[100],PrimeOmega[#]==ats[primeMS[#]]&]

A247255 Triangular array read by rows: T(n,k) is the number of weakly unimodal partitions of n in which the greatest part occurs exactly k times, n>=1, 1<=k<=n.

Original entry on oeis.org

1, 1, 1, 3, 0, 1, 6, 1, 0, 1, 12, 2, 0, 0, 1, 21, 4, 1, 0, 0, 1, 38, 6, 2, 0, 0, 0, 1, 63, 11, 3, 1, 0, 0, 0, 1, 106, 16, 5, 2, 0, 0, 0, 0, 1, 170, 27, 7, 3, 1, 0, 0, 0, 0, 1, 272, 40, 11, 4, 2, 0, 0, 0, 0, 0, 1, 422, 63, 16, 6, 3, 1, 0, 0, 0, 0, 0, 1, 653, 92, 24, 8, 4, 2, 0, 0, 0, 0, 0, 0, 1, 986, 141, 34, 12, 5, 3, 1, 0, 0, 0, 0, 0, 0, 1

Offset: 1

Geoffrey Critzer, Nov 29 2014

These are called stack polyominoes in the Flajolet and Sedgewick reference.

			    1;
    1,  1;
    3,  0, 1;
    6,  1, 0, 1;
   12,  2, 0, 0, 1;
   21,  4, 1, 0, 0, 1;
   38,  6, 2, 0, 0, 0, 1;
   63, 11, 3, 1, 0, 0, 0, 1;
  106, 16, 5, 2, 0, 0, 0, 0, 1;
  170, 27, 7, 3, 1, 0, 0, 0, 0, 1;

P. Flajolet and R Sedgewick, Analytic Combinatorics, Cambridge Univ. Press, 2009, page 46.

Alois P. Heinz, Rows n = 1..141, flattened

Columns k=1-10 give: A006330, A114921, A226541, A320315, A320316, A320317, A320318, A320319, A320320, A320321.
Row sums give A001523.
Main diagonal gives A000012.

b:= proc(n, i) option remember; local r; expand(
      `if`(i>n, 0, `if`(irem(n, i, 'r')=0, x^r, 0)+
      add(b(n-i*j, i+1)*(j+1), j=0..n/i)))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=1..n))(b(n, 1)):
seq(T(n), n=1..14);  # Alois P. Heinz, Nov 29 2014

nn = 14; Table[
  Take[Drop[
     CoefficientList[
      Series[ Sum[
        u z^k/(1 - u z^k) Product[1/(1 - z^i), {i, 1, k - 1}]^2, {k,
         1, nn}], {z, 0, nn}], {z, u}], 1], n, {2, n + 1}][[n]], {n,
   1, nn}] // Grid

G.f.: Sum_{k>=1} y*x^k/(1 - y*x^k)/(Product_{i=1..k-1} (1 - x^i))^2.

For fixed k>=1, T(n,k) ~ Pi^(k-1) * (k-1)! * exp(2*Pi*sqrt(n/3)) / (2^(k+2) * 3^(k/2 + 1/4) * n^(k/2 + 3/4)). - Vaclav Kotesovec, Oct 24 2018

A344649 Triangle read by rows where T(n,k) is the number of strict integer partitions of 2n with reverse-alternating sum 2k.

Original entry on oeis.org

1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 3, 2, 1, 0, 1, 0, 1, 3, 3, 2, 1, 0, 1, 0, 1, 4, 4, 3, 2, 1, 0, 1, 0, 1, 5, 6, 4, 3, 2, 1, 0, 1, 0, 1, 7, 7, 6, 4, 3, 2, 1, 0, 1, 0, 1, 8, 10, 8, 6, 4, 3, 2, 1, 0, 1

Offset: 0

Gus Wiseman, Jun 05 2021

The reverse-alternating sum of a partition (y_1,...,y_k) is Sum_i (-1)^(k-i) y_i. This is equal to (-1)^(m-1) times the number of odd parts in the conjugate partition, where m is the number of parts. So T(n,k) is the number of strict integer partitions of 2n into an odd number of parts whose conjugate has exactly 2k odd parts.

Also the number of reversed strict integer partitions of 2n with alternating sum 2k.

			Triangle begins:
   1
   0   1
   0   0   1
   0   1   0   1
   0   1   1   0   1
   0   1   2   1   0   1
   0   1   3   2   1   0   1
   0   1   3   3   2   1   0   1
   0   1   4   4   3   2   1   0   1
   0   1   5   6   4   3   2   1   0   1
   0   1   7   7   6   4   3   2   1   0   1
   0   1   8  10   8   6   4   3   2   1   0   1
   0   1  10  13  12   8   6   4   3   2   1   0   1
   0   1  11  18  15  12   8   6   4   3   2   1   0   1
   0   1  14  22  21  16  12   8   6   4   3   2   1   0   1
   0   1  15  29  27  23  16  12   8   6   4   3   2   1   0   1
Row n = 8 counts the following partitions (empty columns indicated by dots):
  .  (8,7,1)  (7,6,3)      (7,5,4)   (9,4,3)   (11,3,2)  (13,2,1)  .  (16)
              (8,6,2)      (8,5,3)   (10,4,2)  (12,3,1)
              (9,6,1)      (9,5,2)   (11,4,1)
              (6,4,3,2,1)  (10,5,1)
Row n = 9 counts the following partitions (empty columns indicated by dots, A..I = 10..18):
  .  981   873     765     954   B43   D32   F21   .  I
           972     864     A53   C42   E31
           A71     963     B52   D41
           65421   A62     C51
           75321   B61
                   84321

The non-reversed version is A152146.
The non-reversed non-strict version is A239830.
Column k = 2 is A343941.
The non-strict version is A344610.
Row sums are A344650.
Right half of even-indexed rows of A344739.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A067659 counts strict partitions of odd length.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A120452 counts partitions of 2n with reverse-alternating sum 2.
A124754 gives alternating sum of standard compositions (reverse: A344618).
A316524 is the alternating sum of the prime indices of n (reverse: A344616).
A325534/A325535 count separable/inseparable partitions.
A344604 counts wiggly compositions with twins.
A344611 counts partitions of 2n with reverse-alternating sum >= 0.
A344741 counts partitions of 2n with reverse-alternating sum -2.
Cf. A000070, A000097, A003242, A006330, A027187, A114121, A116406, A239829, A344607, A344608, A344651, A344654.

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

A345196 Number of integer partitions of n with reverse-alternating sum equal to the reverse-alternating sum of their conjugate.

Original entry on oeis.org

1, 1, 0, 1, 1, 1, 1, 3, 4, 4, 4, 8, 11, 11, 11, 20, 27, 29, 31, 48, 65, 70, 74, 109, 145, 160, 172, 238, 314, 345, 372, 500, 649, 721, 782, 1019, 1307, 1451, 1577, 2015, 2552, 2841, 3098, 3885, 4867, 5418, 5914, 7318, 9071, 10109, 11050

Offset: 0

Gus Wiseman, Jun 26 2021

nonn

The reverse-alternating sum of a partition (y_1,...,y_k) is Sum_i (-1)^(k-i) y_i. This is equal to (-1)^(m-1) times the number of odd parts in the conjugate partition, where m is the number of parts. By conjugation, this is also (-1)^(r-1) times the number of odd parts, where r is the greatest part. So a(n) is the number of integer partitions of n of even rank with the same number of odd parts as their conjugate.

			The a(5) = 1 through a(12) = 11 partitions:
  (311)  (321)  (43)    (44)    (333)    (541)    (65)      (66)
                (2221)  (332)   (531)    (4321)   (4322)    (552)
                (4111)  (2222)  (32211)  (32221)  (4331)    (4332)
                        (4211)  (51111)  (52111)  (4421)    (4422)
                                                  (6311)    (4431)
                                                  (222221)  (6411)
                                                  (422111)  (33222)
                                                  (611111)  (53211)
                                                            (222222)
                                                            (422211)
                                                            (621111)

The non-reverse version is A277103.
Comparing even parts to odd conjugate parts gives A277579.
Comparing signs only gives A340601.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A120452 counts partitions of 2n with rev-alt sum 2 (negative: A344741).
A124754 gives alternating sums of standard compositions (reverse: A344618).
A316524 is the alternating sum of the prime indices of n (reverse: A344616).
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A344610 counts partitions by sum and positive reverse-alternating sum.
A344611 counts partitions of 2n with reverse-alternating sum >= 0.
Cf. A000070, A000097, A006330, A027187, A027193, A236559, A239829, A257991, A344607, A344608, A344651, A344654.

sats[y_]:=Sum[(-1)^(i-Length[y])*y[[i]],{i,Length[y]}];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],sats[#]==sats[conj[#]]&]],{n,0,15}]

A348614 Numbers k such that the k-th composition in standard order has sum equal to twice its alternating sum.

Original entry on oeis.org

0, 9, 11, 14, 130, 133, 135, 138, 141, 143, 148, 153, 155, 158, 168, 177, 179, 182, 188, 208, 225, 227, 230, 236, 248, 2052, 2057, 2059, 2062, 2066, 2069, 2071, 2074, 2077, 2079, 2084, 2089, 2091, 2094, 2098, 2101, 2103, 2106, 2109, 2111, 2120, 2129, 2131

Offset: 1

Gus Wiseman, Oct 29 2021

nonn

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 terms together with their binary indices begin:
    0: ()
    9: (3,1)
   11: (2,1,1)
   14: (1,1,2)
  130: (6,2)
  133: (5,2,1)
  135: (5,1,1,1)
  138: (4,2,2)
  141: (4,1,2,1)
  143: (4,1,1,1,1)
  148: (3,2,3)
  153: (3,1,3,1)
  155: (3,1,2,1,1)
  158: (3,1,1,1,2)

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

The unordered case (partitions) is counted by A000712, reverse A006330.
These compositions are counted by A262977.
Except for 0, a subset of A345917 (which is itself a subset of A345913).
A000346 = even-length compositions with alt sum != 0, complement A001700.
A011782 counts compositions.
A025047 counts wiggly compositions, ranked by A345167.
A034871 counts compositions of 2n with alternating sum 2k.
A097805 counts compositions by alternating (or reverse-alternating) sum.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A116406 counts compositions with alternating sum >=0, ranked by A345913.
A138364 counts compositions with alternating sum 0, ranked by A344619.
A345197 counts compositions by length and alternating sum.
Cf. A000984, A002458, A004331, A005810, A224274.
Cf. A008549, A013777, A027306, A058622, A088218, A114121, A120452, A126869, A163493, A294175, A344604.

ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,1000],Total[stc[#]]==2*ats[stc[#]]&]

A344743 Number of integer partitions of 2n with reverse-alternating sum < 0.

Original entry on oeis.org

0, 0, 1, 3, 7, 15, 29, 54, 96, 165, 275, 449, 716, 1123, 1732, 2635, 3955, 5871, 8620, 12536, 18065, 25821, 36617, 51560, 72105, 100204, 138417, 190134, 259772, 353134, 477734, 643354, 862604, 1151773, 1531738, 2029305, 2678650, 3523378, 4618835, 6035240, 7861292

Offset: 0

Gus Wiseman, Jun 09 2021

nonn

Conjecture: a(n) >= A236914.
The reverse-alternating sum of a partition (y_1,...,y_k) is Sum_i (-1)^(k-i) y_i. This is equal to (-1)^(m-1) times the number of odd parts in the conjugate partition, where m is the number of parts. So a(n) is the number of even-length partitions of 2n with at least one odd conjugate part. By conjugation, this is also the number of partitions of 2n with greatest part even and at least one odd part.
The alternating sum of a partition is never < 0, so the non-reverse version is A000004.

			The a(2) = 1 through a(5) = 15 partitions:
  (31)  (42)    (53)      (64)
        (51)    (62)      (73)
        (3111)  (71)      (82)
                (3221)    (91)
                (4211)    (3331)
                (5111)    (4222)
                (311111)  (4321)
                          (5221)
                          (5311)
                          (6211)
                          (7111)
                          (322111)
                          (421111)
                          (511111)
                          (31111111)

The ordered version (compositions not partitions) appears to be A008549.
The Heinz numbers are A119899 /\ A300061.
Even bisection of A344608.
The complementary partitions of 2n are counted by A344611.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A001523 counts unimodal compositions (partial sums: A174439).
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A120452 counts partitions of 2n with rev-alt sum 2 (negative: A344741).
A124754 gives alternating sums of standard compositions (reverse: A344618).
A316524 is the alternating sum of the prime indices of n (reverse: A344616).
A325534/A325535 count separable/inseparable partitions.
A344610 counts partitions by sum and positive reverse-alternating sum.
Cf. A000070, A000097, A006330, A027187, A239830, A343941, A344604, A344607, A344650, A344651, A344654.

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

a(n) = A058696(n) - A344611(n).

a(n) = sum of left half of even-indexed rows of A344612.

More terms from Bert Dobbelaere, Jun 12 2021

A343941 Number of strict integer partitions of 2n with reverse-alternating sum 4.

Original entry on oeis.org

0, 0, 1, 0, 1, 2, 3, 3, 4, 5, 7, 8, 10, 11, 14, 15, 18, 20, 23, 25, 29, 31, 35, 38, 42, 45, 50, 53, 58, 62, 67, 71, 77, 81, 87, 92, 98, 103, 110, 115, 122, 128, 135, 141, 149, 155, 163, 170, 178, 185, 194, 201, 210, 218, 227, 235, 245, 253, 263, 272, 282, 291, 302

Offset: 0

Gus Wiseman, Jun 09 2021

nonn

The reverse-alternating sum of a partition (y_1,...,y_k) is Sum_i (-1)^(k-i) y_i. This is equal to (-1)^(m-1) times the number of odd parts in the conjugate partition, where m is the number of parts, so a(n) is the number of strict odd-length integer partitions of 2n whose conjugate has exactly 4 odd parts (first example). By conjugation, this is also the number partitions of 2n covering an initial interval and containing exactly four odd parts, one of which is the greatest (second example).

			The a(2) = 1 through a(12) = 10 strict partitions (empty column indicated by dot, A..D = 10..13):
  4   .  521   532   543   653   763     873     983     A93     BA3
               631   642   752   862     972     A82     B92     CA2
                     741   851   961     A71     B81     C91     DA1
                                 64321   65421   65432   76432   76542
                                         75321   75431   76531   86541
                                                 76421   86431   87432
                                                 86321   87421   87531
                                                         97321   97431
                                                                 98421
                                                                 A8321
The a(2) = 1 through a(8) = 5 partitions covering an initial interval:
  1111  .  32111   33211    33321     333221     543211      543321
                   322111   332211    3322211    3332221     5432211
                            3222111   32222111   33222211    33322221
                                                 322222111   332222211
                                                             3222222111

The non-reverse non-strict version is A000710.
The non-reverse version is A026810.
The non-strict version is column k = 2 of A344610.
This is column k = 2 of A344649.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A120452 counts partitions of 2n with rev-alt sum 2 (negative: A344741).
A124754 gives alternating sums of standard compositions (reverse: A344618).
A316524 is the alternating sum of the prime indices of n (reverse: A344616).
A344611 counts partitions of 2n with reverse-alternating sum >= 0.
Cf. A000070, A000097, A003242, A006330, A027187, A119899, A152146, A239830, A325535, A344604, A344607, A344608, A344650, A344739.

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

More terms from Bert Dobbelaere, Jun 12 2021

cp's OEIS Frontend

A344741 Number of integer partitions of 2n with reverse-alternating sum -2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A114921 Number of unimodal compositions of n+2 where the maximal part appears exactly twice.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

Extensions

A152146 Triangle read by rows: T(n,k) (n >= 0, 0 <= k <= n) = number of partitions of 2n into 2k odd parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A357485 Heinz numbers of integer partitions with the same length as reverse-alternating sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A247255 Triangular array read by rows: T(n,k) is the number of weakly unimodal partitions of n in which the greatest part occurs exactly k times, n>=1, 1<=k<=n.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A344649 Triangle read by rows where T(n,k) is the number of strict integer partitions of 2n with reverse-alternating sum 2k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A345196 Number of integer partitions of n with reverse-alternating sum equal to the reverse-alternating sum of their conjugate.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A348614 Numbers k such that the k-th composition in standard order has sum equal to twice its alternating sum.

Views

Author