A357488 -id:A357488 - cp's OEIS frontend

A357636 Numbers k such that the skew-alternating sum of the partition having Heinz number k is 0.

1, 4, 9, 12, 16, 25, 30, 36, 49, 63, 64, 70, 81, 90, 100, 108, 121, 144, 154, 165, 169, 192, 196, 210, 225, 256, 273, 286, 289, 300, 324, 325, 360, 361, 400, 441, 442, 462, 480, 484, 525, 529, 550, 561, 576, 588, 595, 625, 646, 676, 700, 729, 741, 750, 784

Offset: 1

Gus Wiseman, Oct 09 2022

nonn

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 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 terms together with their prime indices begin:
    1: {}
    4: {1,1}
    9: {2,2}
   12: {1,1,2}
   16: {1,1,1,1}
   25: {3,3}
   30: {1,2,3}
   36: {1,1,2,2}
   49: {4,4}
   63: {2,2,4}
   64: {1,1,1,1,1,1}
   70: {1,3,4}
   81: {2,2,2,2}
   90: {1,2,2,3}
  100: {1,1,3,3}
  108: {1,1,2,2,2}
  121: {5,5}
  144: {1,1,1,1,2,2}

The version for original alternating sum is A000290.
The half-alternating form is A000583, non-reverse A357631.
The version for standard compositions is A357628, non-reverse A357627.
The non-reverse version is A357632.
Positions of zeros in A357634, non-reverse A357630.
These partitions are counted by A357640, half A357639.
A056239 adds up prime indices, row sums of A112798.
A316524 gives alternating sum of prime indices, reverse A344616.
A351005 = alternately equal and unequal partitions, compositions A357643.
A351006 = alternately unequal and equal partitions, compositions A357644.
A357641 counts comps w/ half-alt sum 0, even A357642.
Cf. A003963, A035594, A053251, A055932, A357189, A357485-A357488, A357621-A357626, A357629, A357637, A357638.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
Select[Range[1000],skats[Reverse[primeMS[#]]]==0&]

A035544 Number of partitions of n with equal number of parts congruent to each of 1 and 3 (mod 4).

Original entry on oeis.org

1, 0, 1, 0, 3, 0, 4, 0, 10, 0, 13, 0, 28, 0, 37, 0, 72, 0, 96, 0, 172, 0, 230, 0, 391, 0, 522, 0, 846, 0, 1129, 0, 1766, 0, 2348, 0, 3564, 0, 4722, 0, 6992, 0, 9226, 0, 13371, 0, 17568, 0, 25006, 0, 32708, 0, 45817, 0, 59668, 0, 82430, 0, 106874, 0, 145830, 0, 188260, 0

Offset: 0

Olivier Gérard

nonn

From Gus Wiseman, Oct 12 2022: (Start)
Also the number of integer partitions of n whose skew-alternating sum is 0, where 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 + ... These are the conjugates of the partitions described in the name. For example, the a(0) = 1 through a(8) = 10 partitions are:
  ()  .  (11)  .  (22)    .  (33)      .  (44)
                  (211)      (321)        (422)
                  (1111)     (2211)       (431)
                             (111111)     (2222)
                                          (3221)
                                          (3311)
                                          (22211)
                                          (221111)
                                          (2111111)
                                          (11111111)
The ordered version (compositions) is A138364
These partitions are ranked by A357636, reverse A357632.
The reverse version is A357640 (aerated).
Cf. A357623, A357629, A357630, A357634, A357646, A357705.
(End)

			From _Gus Wiseman_, Oct 12 2022: (Start)
The a(0) = 1 through a(8) = 10 partitions:
  ()  .  (2)  .  (4)   .  (6)    .  (8)
                 (22)     (42)      (44)
                 (31)     (222)     (53)
                          (321)     (62)
                                    (71)
                                    (422)
                                    (431)
                                    (2222)
                                    (3221)
                                    (3311)
(End)

The case with at least one odd part is A035550.
Removing zeros gives A035594.
Central column k=0 of A357638.
These partitions are ranked by A357707.
A000041 counts integer partitions.
A344651 counts partitions by alternating sum, ordered A097805.
Cf. A035363, A053251, A298311, A357189, A357487, A357488.

skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
Table[Length[Select[IntegerPartitions[n],skats[#]==0&]],{n,0,30}] (* Gus Wiseman,Oct 12 2022 *)

More terms from David W. Wilson

A357487 Number of integer partitions of n with the same length as reverse-alternating sum.

Original entry on oeis.org

1, 1, 0, 0, 0, 1, 0, 2, 0, 4, 0, 5, 0, 9, 0, 13, 0, 23, 0, 34, 0, 54, 0, 78, 0, 120, 0, 170, 0, 252, 0, 358, 0, 517, 0, 725, 0, 1030, 0, 1427, 0, 1992, 0, 2733, 0, 3759, 0, 5106, 0, 6946, 0, 9345, 0, 12577, 0, 16788, 0, 22384, 0, 29641, 0

Offset: 0

Gus Wiseman, Oct 01 2022

nonn

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

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

			The a(1) = 1 through a(13) = 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 is A357182, reverse ranked by A357184.
The reverse version is A357189, ranked by A357486.
These partitions are ranked by A357485.
Removing zeros gives A357488.
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, A301987, A357183.

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

A357704 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with half-alternating sum k, where k ranges from -n to n in steps of 2.

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 0, 0, 1, 2, 0, 0, 2, 0, 3, 0, 0, 2, 2, 0, 3, 0, 0, 3, 1, 3, 0, 4, 0, 0, 3, 2, 4, 2, 0, 4, 0, 0, 4, 2, 6, 2, 3, 0, 5, 0, 0, 4, 3, 5, 7, 3, 3, 0, 5, 0, 0, 5, 3, 8, 4, 10, 2, 4, 0, 6, 0, 0, 5, 4, 8, 6, 11, 9, 3, 4, 0, 6, 0, 0, 6, 4, 11, 5, 15, 8, 13, 3, 5, 0, 7

Offset: 0

Gus Wiseman, Oct 10 2022

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 - ...

			Triangle begins:
  1
  0  1
  0  0  2
  0  0  1  2
  0  0  2  0  3
  0  0  2  2  0  3
  0  0  3  1  3  0  4
  0  0  3  2  4  2  0  4
  0  0  4  2  6  2  3  0  5
  0  0  4  3  5  7  3  3  0  5
  0  0  5  3  8  4 10  2  4  0  6
  0  0  5  4  8  6 11  9  3  4  0  6
  0  0  6  4 11  5 15  8 13  3  5  0  7
  0  0  6  5 11  8 13 19 10 13  4  5  0  7
  0  0  7  5 14  8 19 13 25  9 17  4  6  0  8
  0  0  7  6 14 11 19 17 29 23 13 18  5  6  0  8
Row n = 7 counts the following reversed partitions:
  .  .  (115)   (124)   (133)      (11113)   .  (7)
        (1114)  (1222)  (223)      (111112)     (16)
        (1123)          (11122)                 (25)
                        (1111111)               (34)

Row sums are A000041.
Last entry of row n is A008619(n).
The central column in the non-reverse case is A035363, skew A035544.
For original reverse-alternating sum we have A344612.
For original alternating sum we have A344651, ordered A097805.
The non-reverse version is A357637, skew A357638.
The central column is A357639, skew A357640.
The non-reverse ordered version (compositions) is A357645, skew A357646.
The skew-alternating version is A357705.
A351005 = alternately equal and unequal partitions, compositions A357643.
A351006 = alternately unequal and equal partitions, compositions A357644.
A357621 gives half-alternating sum of standard compositions, skew A357623.
A357629 gives half-alternating sum of prime indices, skew A357630.
A357633 gives half-alternating sum of Heinz partition, skew  A357634.
Cf. A029862, A053251, A357136, A357189, A357487, A357488, A357631, A357632, A357641.

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

A357705 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with skew-alternating sum k, where k ranges from -n to n in steps of 2.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 2, 0, 1, 0, 2, 2, 0, 1, 0, 3, 1, 2, 0, 1, 0, 3, 2, 3, 2, 0, 1, 0, 4, 2, 4, 1, 3, 0, 1, 0, 4, 3, 3, 6, 2, 3, 0, 1, 0, 5, 3, 5, 3, 7, 2, 4, 0, 1, 0, 5, 4, 5, 4, 9, 7, 3, 4, 0, 1, 0, 6, 4, 7, 3, 12, 5, 10, 3, 5, 0, 1

Offset: 0

Gus Wiseman, Oct 10 2022

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 + ...

			Triangle begins:
  1
  0  1
  0  1  1
  0  2  0  1
  0  2  2  0  1
  0  3  1  2  0  1
  0  3  2  3  2  0  1
  0  4  2  4  1  3  0  1
  0  4  3  3  6  2  3  0  1
  0  5  3  5  3  7  2  4  0  1
  0  5  4  5  4  9  7  3  4  0  1
  0  6  4  7  3 12  5 10  3  5  0  1
  0  6  5  7  5 10 16  7 11  4  5  0  1
  0  7  5  9  5 14 11 18  7 14  4  6  0  1
Row n = 7 counts the following reversed partitions:
  .  (16)   (25)   (34)       (1123)  (1114)   .  (7)
     (115)  (223)  (1222)             (11113)
     (124)         (111112)           (11122)
     (133)         (1111111)

Row sums are A000041.
First nonzero entry of each row is A004526.
The central column is A357640, half A357639.
For original alternating sum we have A344651, ordered A097805.
The half-alternating version is A357704.
The ordered non-reverse version (compositions) is A357646, half A357645.
The non-reverse version is A357638, half A357637.
A351005 = alternately equal and unequal partitions, compositions A357643.
A351006 = alternately unequal and equal partitions, compositions A357644.
A357621 gives half-alternating sum of standard compositions, skew A357623.
A357629 gives half-alternating sum of prime indices, skew A357630.
A357633 gives half-alternating sum of Heinz partition, skew  A357634.
Cf. A035363, A035594, A053251, A298311, A357136, A357189, A357487, A357488, A357624, A357631, A357632, A357636.

skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
Table[Length[Select[Reverse/@IntegerPartitions[n],skats[#]==k&]],{n,0,11},{k,-n,n,2}]

A222763 Number of n X 2 0..1 arrays with exactly floor(nX2/2) elements unequal to at least one horizontal or antidiagonal neighbor, with new values introduced in row major 0..1 order.

Original entry on oeis.org

1, 0, 3, 4, 20, 48, 175, 512, 1719, 5400, 17776, 57420, 188656, 617176, 2033175, 6697744, 22139780, 73262232, 242931321, 806516560, 2681475048, 8925158440, 29740390672, 99196158144, 331163178475, 1106489052968, 3699881730900, 12380449027324, 41454579098852

Offset: 0

R. H. Hardin, Mar 05 2013

nonn

From Gus Wiseman, Oct 05 2022: (Start)
Conjecture: Also the number of integer compositions of 2n + 1 with the same length as reverse-alternating sum. Here, the reverse-alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^i y_i. For example, the a(4) = 20 compositions are:
  (135)    (234)    (333)    (432)    (531)
  (11115)  (21114)  (31113)  (41112)  (51111)
  (11214)  (21213)  (31212)  (41211)
  (11313)  (21312)  (31311)
  (11412)  (21411)
  (11511)
This is the odd-indexed version of A357182, and the corresponding unordered count (partitions) is A357488.
(End)

			All solutions for n=3
..0..1....0..0....0..0....0..0
..0..0....0..0....0..1....1..0
..0..0....1..0....0..0....0..0

Alois P. Heinz, Table of n, a(n) for n = 0..1881 (terms n = 1..210 from R. H. Hardin)

Column k = 2 of A222769.

Cf. A046736, A105422.

a:= proc(n) option remember; `if`(n<3, [1, 0, 3][n+1],
      (4*(n-1)*(74*n^2-153*n+73)*a(n-1) +8*(2*n-3)*
      (74*n^2-153*n+70)*a(n-2) -2*(37*n-21)*(2*n-5)*
      (n-1)*a(n-3))/(5*(37*n-58)*n*(n-1)))
    end:
seq(a(n), n=0..30);  # Alois P. Heinz, Sep 24 2024

a(n) = A105422(2n,n). - Alois P. Heinz, Sep 24 2024

a(n) = (n+1)*A046736(n+2). - Mark van Hoeij, Nov 29 2024

a(0)=1 prepended by Alois P. Heinz, Sep 24 2024

A357847 Number of integer compositions of n whose length is twice their alternating sum.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 3, 1, 8, 11, 15, 46, 59, 127, 259, 407, 888, 1591, 2925, 5896, 10607, 20582, 39446, 73448, 142691, 269777, 513721, 988638, 1876107, 3600313, 6893509, 13165219, 25288200, 48408011, 92824505, 178248758, 341801149, 656641084, 1261298356

Offset: 0

Gus Wiseman, Oct 16 2022

nonn

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

			The a(0) = 1 through a(9) = 15 compositions:
  ()  .  .  (21)  .  (32)  (1131)  (43)  (1142)  (54)
                           (2121)        (1241)  (111141)
                           (3111)        (2132)  (112131)
                                         (2231)  (113121)
                                         (3122)  (114111)
                                         (3221)  (211131)
                                         (4112)  (212121)
                                         (4211)  (213111)
                                                 (311121)
                                                 (312111)
                                                 (411111)

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

The version for partitions is A357709, ranked by A357848.
A011782 counts compositions.
A025047 counts alternating compositions.
A103919 counts partitions by alternating sum, full triangle A344651.
A357136 counts compositions by alternating sum, full triangle A097805.
A357182 counts compositions w/ length = alternating sum, ranked by A357184.
A357189 counts partitions w/ length = alternating sum, ranked by A357486.
Cf. A262977, A301987, A357183, A357485, A357488.

ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],Length[#]==2ats[#]&]],{n,0,10}]

a(21)-a(38) from Alois P. Heinz, Oct 19 2022

A357709 Number of integer partitions of n whose length is twice their alternating sum.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 4, 3, 6, 6, 9, 11, 13, 18, 21, 28, 32, 44, 49, 65, 76, 96, 114, 141, 170, 204, 250, 295, 361, 425, 516, 606, 734, 858, 1031, 1210, 1440, 1690, 2000, 2347, 2759, 3240, 3786, 4441, 5174, 6053, 7030, 8210, 9509, 11074, 12807, 14870

Offset: 0

Gus Wiseman, Oct 16 2022

nonn

The alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i. The alternating sum of a partition is also the number of odd conjugate parts.

			The a(1) = 0 through a(12) = 6 partitions:
  .  .  21  .  32  3111  43  3221  54      3331  65      4332
                             4211  411111  4222  422111  4431
                                           4321  521111  5322
                                           5311          5421
                                                         6411
                                                         51111111

This is the "twice" version of A357189, ranked by A357486.
The version for compositions is A357847.
These partitions are ranked by A357848.
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.
A357182 counts compositions w/ length = alternating sum, ranked by A357184.
Cf. A004526, A262046, A262977, A301987, A357183, A357485, A357488.

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

A357848 Heinz numbers of integer partitions whose length is twice their alternating sum.

Original entry on oeis.org

1, 6, 15, 35, 40, 77, 84, 90, 143, 189, 210, 220, 221, 224, 250, 323, 364, 437, 462, 490, 495, 504, 525, 528, 667, 748, 819, 858, 899, 988, 1029, 1040, 1134, 1147, 1155, 1188, 1210, 1320, 1326, 1375, 1400, 1408, 1517, 1564, 1683, 1690, 1763, 1904, 1938, 2021

Offset: 1

Gus Wiseman, Oct 16 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 alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.

			The terms together with their prime indices begin:
     1: {}
     6: {1,2}
    15: {2,3}
    35: {3,4}
    40: {1,1,1,3}
    77: {4,5}
    84: {1,1,2,4}
    90: {1,2,2,3}
   143: {5,6}
   189: {2,2,2,4}
   210: {1,2,3,4}
   220: {1,1,3,5}
   221: {6,7}
   224: {1,1,1,1,1,4}

These partitions are counted by A357709.
The version for compositions is counted by A357847.
A000041 counts partitions, strict A000009.
A003963 multiplies prime indices.
A025047 counts alternating compositions.
A056239 adds up prime indices.
A103919 counts partitions by alternating sum, full triangle A344651.
A357136 counts compositions by alternating sum, full triangle A097805.
A357182 counts compositions w/ length = alternating sum, ranked by A357184.
A357189 counts partitions w/ length = alternating sum, ranked by A357486.
Cf. A000720, A001221, A001222, A262977, A301987, A357183, A357485, A357488.

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

cp's OEIS Frontend

A357636 Numbers k such that the skew-alternating sum of the partition having Heinz number k is 0.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A035544 Number of partitions of n with equal number of parts congruent to each of 1 and 3 (mod 4).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A357487 Number of integer partitions of n with the same length as reverse-alternating sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357704 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with half-alternating sum k, where k ranges from -n to n in steps of 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357705 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with skew-alternating sum k, where k ranges from -n to n in steps of 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A222763 Number of n X 2 0..1 arrays with exactly floor(nX2/2) elements unequal to at least one horizontal or antidiagonal neighbor, with new values introduced in row major 0..1 order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Formula

Extensions

A357847 Number of integer compositions of n whose length is twice their alternating sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A357709 Number of integer partitions of n whose length is twice their alternating sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357848 Heinz numbers of integer partitions whose length is twice their alternating sum.