A317508 -id:A317508 - cp's OEIS frontend

A316245 Number of ways to split an integer partition of n into consecutive subsequences with weakly decreasing sums.

1, 1, 3, 6, 14, 25, 52, 89, 167, 279, 486, 786, 1322, 2069, 3326, 5128, 8004, 12055, 18384, 27203, 40588, 59186, 86645, 124583, 179784, 255111, 362767, 509319, 715422, 993681, 1380793, 1899630, 2613064, 3564177, 4857631, 6572314, 8884973, 11930363, 16002853

Offset: 0

Gus Wiseman, Sep 29 2018

nonn

			The a(4) = 14 split partitions:
  (4)
  (31)
  (22)
  (211)
  (3)(1)
  (2)(2)
  (1111)
  (21)(1)
  (2)(11)
  (111)(1)
  (11)(11)
  (2)(1)(1)
  (11)(1)(1)
  (1)(1)(1)(1)

Andrew Howroyd, Table of n, a(n) for n = 0..50
Gus Wiseman, The a(5) = 25 split partitions.
Gus Wiseman, The a(6) = 52 split partitions.

Cf. A000041, A001970, A063834, A316223, A317546, A319001, A319003.

Cf. A317508, A317715, A318434, A318683, A318684, A319794.

comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],OrderedQ[Total/@#,GreaterEqual]&]],{y,IntegerPartitions[n]}],{n,10}]

a(n)={my(recurse(r,m,s,t,f)=if(m==0, r==0, if(f, self()(r,min(m,t),t,0,0)) + self()(r,m-1,s,t,0) + if(t+m<=s, self()(r-m,min(m,r-m),s,t+m,1)))); recurse(n,n,n,0,0)} \\ Andrew Howroyd, Jan 18 2024

a(21) onwards from Andrew Howroyd, Jan 18 2024

A317715 Number of ways to split an integer partition of n into consecutive subsequences with equal sums.

Original entry on oeis.org

1, 1, 3, 4, 9, 8, 21, 16, 39, 38, 64, 57, 146, 102, 186, 211, 352, 298, 593, 491, 906, 880, 1273, 1256, 2444, 1998, 3038, 3277, 4861, 4566, 7710, 6843, 10841, 10742, 14966, 15071, 24499, 21638, 31334, 32706, 47157, 44584, 67464, 63262, 91351, 94247, 125248

Offset: 0

Gus Wiseman, Sep 29 2018

nonn

			The a(4) = 9 constant-sum split partitions:
  (4),
  (31),
  (22), (2)(2),
  (211), (2)(11),
  (1111), (11)(11), (1)(1)(1)(1).
The a(6) = 21 constant-sum split partitions:
  (6),
  (51),
  (42),
  (411),
  (33), (3)(3),
  (321), (3)(21),
  (3111), (3)(111),
  (222), (2)(2)(2),
  (2211), (2)(2)(11),
  (21111), (21)(111), (2)(11)(11),
  (111111), (111)(111), (11)(11)(11), (1)(1)(1)(1)(1)(1).

Hiroaki Yamanouchi, Table of n, a(n) for n = 0..500
Gus Wiseman, The a(8) = 39 constant-sum split partitions.
Gus Wiseman, The a(10) = 64 constant-sum split partitions.
Gus Wiseman, The a(12) = 146 constant-sum split partitions.

Cf. A000041, A001970, A063834, A316223, A317545, A317546, A319001.

Cf. A316245, A317508, A318434, A318683, A318684, A319794.

comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],SameQ@@Total/@#&]],{y,IntegerPartitions[n]}],{n,10}]

a(16)-a(46) from Hiroaki Yamanouchi, Oct 02 2018

A336128 Number of ways to split a strict composition of n into contiguous subsequences with different sums.

Original entry on oeis.org

1, 1, 1, 5, 5, 9, 29, 37, 57, 89, 265, 309, 521, 745, 1129, 3005, 3545, 5685, 8201, 12265, 16629, 41369, 48109, 77265, 107645, 160681, 214861, 316913, 644837, 798861, 1207445, 1694269, 2437689, 3326705, 4710397, 6270513, 12246521, 14853625, 22244569, 30308033, 43706705, 57926577, 82166105, 107873221, 148081785, 257989961, 320873065, 458994657, 628016225, 875485585, 1165065733

Offset: 0

Gus Wiseman, Jul 10 2020

nonn

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

			The a(0) = 1 through a(5) = 5 splits:
  ()  (1)  (2)  (3)     (4)     (5)
                (12)    (13)    (14)
                (21)    (31)    (23)
                (1)(2)  (1)(3)  (32)
                (2)(1)  (3)(1)  (41)
                                (1)(4)
                                (2)(3)
                                (3)(2)
                                (4)(1)
The a(6) = 29 splits:
  (6)    (1)(5)   (1)(2)(3)
  (15)   (2)(4)   (1)(3)(2)
  (24)   (4)(2)   (2)(1)(3)
  (42)   (5)(1)   (2)(3)(1)
  (51)   (1)(23)  (3)(1)(2)
  (123)  (1)(32)  (3)(2)(1)
  (132)  (13)(2)
  (213)  (2)(13)
  (231)  (2)(31)
  (312)  (23)(1)
  (321)  (31)(2)
         (32)(1)

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

The version with equal instead of different sums is A336130.
Starting with a non-strict composition gives A336127.
Starting with a partition gives A336131.
Starting with a strict partition gives A336132.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Set partitions with distinct block-sums are A275780.
Compositions of partitions are A323583.
Cf. A006951, A063834, A271619, A279375, A305551, A326519, A317508, A318684, A336133, A336134, A336135.

splits[dom_]:=Append[Join@@Table[Prepend[#,Take[dom,i]]&/@splits[Drop[dom,i]],{i,Length[dom]-1}],{dom}];
Table[Sum[Length[Select[splits[ctn],UnsameQ@@Total/@#&]],{ctn,Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,0,15}]

a(31)-a(50) from Max Alekseyev, Feb 14 2024

A318684 Number of ways to split a strict integer partition of n into consecutive subsequences with strictly decreasing sums.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 8, 11, 14, 20, 28, 35, 48, 61, 79, 105, 129, 162, 208, 257, 318, 404, 489, 600, 732, 896, 1075, 1315, 1576, 1895, 2272, 2715, 3217, 3851, 4537, 5377, 6353, 7484, 8765, 10314, 12044, 14079, 16420, 19114, 22184, 25818, 29840, 34528, 39903, 46030

Offset: 0

Gus Wiseman, Sep 29 2018

nonn

			The a(9) = 20 split partitions:
    (9)
   (81)   (8)(1)
   (72)   (7)(2)
   (63)   (6)(3)
   (54)   (5)(4)
  (432)  (43)(2)  (4)(3)(2)
  (621)  (62)(1)  (6)(2)(1)  (6)(21)
  (531)  (53)(1)  (5)(3)(1)  (5)(31)

Cf. A001970, A063834, A316245, A317508, A317546, A317715, A318434, A318683, A319794.

comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],OrderedQ[Total/@#,Greater]&]],{y,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,30}]

A319794 Number of ways to split a strict integer partition of n into consecutive subsequences with weakly decreasing sums.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 9, 11, 15, 20, 31, 37, 52, 64, 85, 111, 141, 175, 225, 279, 346, 437, 532, 654, 802, 979, 1182, 1438, 1740, 2083, 2502, 2996, 3565, 4245, 5043, 5950, 7068, 8303, 9772, 11449, 13452, 15681, 18355, 21338, 24855, 28846, 33509, 38687, 44819, 51644

Offset: 0

Gus Wiseman, Sep 29 2018

nonn

			The a(6) = 9 split partitions:
    (6)
   (51)  (5)(1)
   (42)  (4)(2)
  (321)  (32)(1)  (3)(21)  (3)(2)(1).

Cf. A001970, A063834, A316245, A317508, A317546, A317715, A318434, A318683, A318684.

comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],OrderedQ[Total/@#,GreaterEqual]&]],{y,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,30}]

A336130 Number of ways to split a strict composition of n into contiguous subsequences all having the same sum.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 15, 13, 23, 27, 73, 65, 129, 133, 241, 375, 519, 617, 1047, 1177, 1859, 2871, 3913, 4757, 7653, 8761, 13273, 16155, 28803, 30461, 50727, 55741, 87743, 100707, 152233, 168425, 308937, 315973, 500257, 571743, 871335, 958265, 1511583, 1621273, 2449259, 3095511, 4335385, 4957877, 7554717, 8407537, 12325993, 14301411, 20348691, 22896077, 33647199, 40267141, 56412983, 66090291, 93371665, 106615841, 155161833

Offset: 0

Gus Wiseman, Jul 11 2020

nonn

			The a(1) = 1 through a(7) = 13 splits:
  (1)  (2)  (3)    (4)    (5)    (6)        (7)
            (1,2)  (1,3)  (1,4)  (1,5)      (1,6)
            (2,1)  (3,1)  (2,3)  (2,4)      (2,5)
                          (3,2)  (4,2)      (3,4)
                          (4,1)  (5,1)      (4,3)
                                 (1,2,3)    (5,2)
                                 (1,3,2)    (6,1)
                                 (2,1,3)    (1,2,4)
                                 (2,3,1)    (1,4,2)
                                 (3,1,2)    (2,1,4)
                                 (3,2,1)    (2,4,1)
                                 (1,2),(3)  (4,1,2)
                                 (2,1),(3)  (4,2,1)
                                 (3),(1,2)
                                 (3),(2,1)

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

The version with different instead of equal sums is A336128.
Starting with a non-strict composition gives A074854.
Starting with a partition gives A317715.
Starting with a strict partition gives A318683.
Set partitions with equal block-sums are A035470.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Cf. A006951, A063834, A271619, A279375, A305551, A317508, A318684, A326519, A336127, A336132, A336134, A336135.

splits[dom_]:=Append[Join@@Table[Prepend[#,Take[dom,i]]&/@splits[Drop[dom,i]],{i,Length[dom]-1}],{dom}];
Table[Sum[Length[Select[splits[ctn],SameQ@@Total/@#&]],{ctn,Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,0,15}]

a(31)-a(60) from Max Alekseyev, Feb 14 2024

A318683 Number of ways to split a strict integer partition of n into consecutive subsequences with equal sums.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 5, 5, 7, 8, 12, 12, 18, 18, 26, 27, 37, 38, 53, 54, 73, 76, 100, 104, 136, 142, 183, 192, 244, 256, 327, 340, 424, 448, 558, 585, 722, 760, 937, 983, 1195, 1260, 1544, 1610, 1943, 2053, 2480, 2590, 3107, 3264, 3927, 4106, 4874, 5120, 6134, 6378

Offset: 0

Gus Wiseman, Sep 29 2018

nonn

			The a(12) = 18 constant-sum split partitions:
  (12)
  (7,5)
  (8,4)
  (9,3)
  (10,2)
  (11,1)
  (5,4,3)
  (6,4,2)
  (6,5,1)
  (7,3,2)
  (7,4,1)
  (8,3,1)
  (9,2,1)
  (6)(4,2)
  (6)(5,1)
  (5,4,2,1)
  (6,3,2,1)
  (6)(3,2,1)

Cf. A001970, A063834, A316245, A317508, A317546, A317715, A318434, A318683, A318684, A319794.

comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],SameQ@@Total/@#&]],{y,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,30}]

A318434 Number of ways to split the integer partition with Heinz number n into consecutive subsequences with equal sums.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1

Offset: 1

Gus Wiseman, Sep 29 2018

nonn

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

			The a(3072) = 5 constant-sum split partitions:
  (21111111111)
  (21111)(111111)
  (211)(1111)(1111)
  (21)(111)(111)(111)
  (2)(11)(11)(11)(11)(11)

Cf. A001970, A056239, A063834, A296150, A316223, A317545, A317546, A319002.

Cf. A316245, A317508, A317715, A318683, A318684, A319794.

comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Length[Select[comps[If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]],SameQ@@Total/@#&]],{n,100}]

cp's OEIS Frontend

A316245 Number of ways to split an integer partition of n into consecutive subsequences with weakly decreasing sums.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A317715 Number of ways to split an integer partition of n into consecutive subsequences with equal sums.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A336128 Number of ways to split a strict composition of n into contiguous subsequences with different sums.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A318684 Number of ways to split a strict integer partition of n into consecutive subsequences with strictly decreasing sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A319794 Number of ways to split a strict integer partition of n into consecutive subsequences with weakly decreasing sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A336130 Number of ways to split a strict composition of n into contiguous subsequences all having the same sum.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A318683 Number of ways to split a strict integer partition of n into consecutive subsequences with equal sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A318434 Number of ways to split the integer partition with Heinz number n into consecutive subsequences with equal sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica