A319001 -id:A319001 - 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

A334996 Irregular triangle read by rows: T(n, m) is the number of ways to distribute Omega(n) objects into precisely m distinct boxes, with no box empty (Omega(n) >= m).

Original entry on oeis.org

0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 2, 0, 1, 0, 1, 2, 1, 0, 1, 1, 0, 1, 2, 0, 1, 0, 1, 4, 3, 0, 1, 0, 1, 2, 0, 1, 2, 0, 1, 3, 3, 1, 0, 1, 0, 1, 4, 3, 0, 1, 0, 1, 4, 3, 0, 1, 2, 0, 1, 2, 0, 1, 0, 1, 6, 9, 4, 0, 1, 1, 0, 1, 2, 0, 1, 2, 1, 0, 1, 4, 3, 0, 1, 0, 1, 6, 6

Offset: 1

Stefano Spezia, May 19 2020

n is the specification number for a set of Omega(n) objects (see Theorem 3 in Beekman's article).
The specification number of a multiset is also called its Heinz number. - Gus Wiseman, Aug 25 2020
From Gus Wiseman, Aug 25 2020: (Start)
For n > 1, T(n,k) is also the number of ordered factorizations of n into k factors > 1. For example, row n = 24 counts the following ordered factorizations (the first column is empty):
  24  3*8   2*2*6  2*2*2*3
      4*6   2*3*4  2*2*3*2
      6*4   2*4*3  2*3*2*2
      8*3   2*6*2  3*2*2*2
      12*2  3*2*4
      2*12  3*4*2
            4*2*3
            4*3*2
            6*2*2
For n > 1, T(n,k) is also the number of strict length-k chains of divisors from n to 1. For example, row n = 36 counts the following chains (the first column is empty):
  36/1  36/2/1   36/4/2/1   36/12/4/2/1
        36/3/1   36/6/2/1   36/12/6/2/1
        36/4/1   36/6/3/1   36/12/6/3/1
        36/6/1   36/9/3/1   36/18/6/2/1
        36/9/1   36/12/2/1  36/18/6/3/1
        36/12/1  36/12/3/1  36/18/9/3/1
        36/18/1  36/12/4/1
                 36/12/6/1
                 36/18/2/1
                 36/18/3/1
                 36/18/6/1
                 36/18/9/1
(End)

			The triangle T(n, m) begins
  n\m| 0     1     2     3     4
  ---+--------------------------
   1 | 0
   2 | 0     1
   3 | 0     1
   4 | 0     1     1
   5 | 0     1
   6 | 0     1     2
   7 | 0     1
   8 | 0     1     2     1
   9 | 0     1     1
  10 | 0     1     2
  11 | 0     1
  12 | 0     1     4     3
  13 | 0     1
  14 | 0     1     2
  15 | 0     1     2
  16 | 0     1     3     3     1
  ...
From _Gus Wiseman_, Aug 25 2020: (Start)
Row n = 36 counts the following distributions of {1,1,2,2} (the first column is empty):
  {1122}  {1}{122}  {1}{1}{22}  {1}{1}{2}{2}
          {11}{22}  {1}{12}{2}  {1}{2}{1}{2}
          {112}{2}  {11}{2}{2}  {1}{2}{2}{1}
          {12}{12}  {1}{2}{12}  {2}{1}{1}{2}
          {122}{1}  {12}{1}{2}  {2}{1}{2}{1}
          {2}{112}  {1}{22}{1}  {2}{2}{1}{1}
          {22}{11}  {12}{2}{1}
                    {2}{1}{12}
                    {2}{11}{2}
                    {2}{12}{1}
                    {2}{2}{11}
                    {22}{1}{1}
(End)

Richard Beekman, An Introduction to Number-Theoretic Combinatorics, Lulu Press 2017.

Stefano Spezia, First 3000 rows of the table, flattened
Richard Beekman, A General Solution of the Ferris Wheel Problem.

Cf. A000007 (1st column), A000012 (2nd column), A001222 (Omega function), A002033 (row sums shifted left), A007318.
A008480 gives rows ends.
A073093 gives row lengths.
A074206 gives row sums.
A112798 constructs the multiset with each specification number.
A124433 is a signed version.
A251683 is the version with zeros removed.
A334997 is the non-strict version.
A337107 is the restriction to factorial numbers.
A001055 counts factorizations.
A067824 counts strict chains of divisors starting with n.
A122651 counts strict chains of divisors summing to n.
A167865 counts strict chains of divisors > 1 summing to n.
A253249 counts strict chains of divisors.
A337105 counts strict chains of divisors from n! to 1.
Cf. A007425, A008683, A056239, A124010, A167865, A317144, A319001.

tau[n_,k_]:=If[n==1,1,Product[Binomial[Extract[Extract[FactorInteger[n],i],2]+k,k],{i,1,Length[FactorInteger[n]]}]]; (* A334997 *)
T[n_,m_]:=Sum[(-1)^k*Binomial[m,k]*tau[n,m-k-1],{k,0,m-1}]; Table[T[n,m],{n,1,30},{m,0,PrimeOmega[n]}]//Flatten
(* second program *)
chc[n_]:=If[n==1,{{}},Prepend[Join@@Table[Prepend[#,n]&/@chc[d],{d,DeleteCases[Divisors[n],1|n]}],{n}]]; (* change {{}} to {} if a(1) = 0 *)
Table[Length[Select[chc[n],Length[#]==k&]],{n,30},{k,0,PrimeOmega[n]}] (* Gus Wiseman, Aug 25 2020 *)

TT(n, k) = if (k==0, 1, sumdiv(n, d, TT(d, k-1))); \\ A334997
T(n, m) = sum(k=0, m-1, (-1)^k*binomial(m, k)*TT(n, m-k-1));
tabf(nn) = {for (n=1, nn, print(vector(bigomega(n)+1, k, T(n, k-1))););} \\ Michel Marcus, May 20 2020

T(n, m) = Sum_{k=0..m-1} (-1)^k*binomial(m,k)*tau_{m-k-1}(n), where tau_s(r) = A334997(r, s) (see Theorem 3, Lemma 1 and Lemma 2 in Beekman's article).
Conjecture: Sum_{m=0..Omega(n)} T(n, m) = A002033(n-1) for n > 1.
The above conjecture is true since T(n, m) is also the number of ordered factorizations of n into m factors (see Comments) and A002033(n-1) is the number of ordered factorizations of n. - Stefano Spezia, Aug 21 2025

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

A319002 Number of ordered factorizations of n where the sequence of GCDs of prime indices (A289508) of the factors is weakly increasing.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 4, 2, 2, 1, 5, 1, 2, 2, 8, 1, 4, 1, 5, 2, 2, 1, 12, 2, 2, 4, 5, 1, 6, 1, 16, 2, 2, 2, 11, 1, 2, 2, 12, 1, 5, 1, 5, 4, 2, 1, 28, 2, 4, 2, 5, 1, 8, 2, 12, 2, 2, 1, 18, 1, 2, 5, 32, 2, 6, 1, 5, 2, 6, 1, 29, 1, 2, 4, 5, 2, 5, 1, 28, 8, 2, 1

Offset: 1

Gus Wiseman, Sep 07 2018

nonn

Also the number of ordered multiset partitions of the multiset of prime indices of n where the sequence of GCDs of the blocks is weakly increasing. If we form a multiorder by treating integer partitions (a,...,z) as multiarrows GCD(a,...,z) <= {z,...,a}, then a(n) is the number of triangles whose composite ground is the integer partition with Heinz number n.

			The a(36) = 11 ordered factorizations:
  (2*2*3*3),
  (2*2*9), (2*6*3), (6*2*3), (4*3*3),
  (2*18), (18*2), (12*3), (4*9), (6*6),
  (36).
The a(36) = 11 ordered multiset partitions:
     {{1,1,2,2}}
    {{1},{1,2,2}}
    {{1,2,2},{1}}
    {{1,1,2},{2}}
    {{1,1},{2,2}}
    {{1,2},{1,2}}
   {{1},{1},{2,2}}
   {{1},{1,2},{2}}
   {{1,2},{1},{2}}
   {{1,1},{2},{2}}
  {{1},{1},{2},{2}}

Cf. A000837, A007716, A001970, A056239, A063834, A289508, A296150, A316223, A317545, A318559, A319001, A319004.

facs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#1,d]&)/@Select[facs[n/d],Min@@#1>=d&],{d,Rest[Divisors[n]]}]];
gix[n_]:=GCD@@PrimePi/@If[n==1,{},FactorInteger[n]][[All,1]];
Table[Length[Select[Join@@Permutations/@facs[n],OrderedQ[gix/@#]&]],{n,100}]

A319003 Number of ordered multiset partitions of integer partitions of n where the sequence of LCMs of the blocks is weakly increasing.

Original entry on oeis.org

1, 1, 3, 7, 17, 38, 87, 191, 420, 908, 1954, 4160, 8816, 18549, 38851, 80965, 168077, 347566, 716443, 1472344, 3017866, 6170789, 12590805, 25640050, 52122784, 105791068, 214413852, 434007488, 877480395, 1772235212, 3575967030, 7209301989, 14523006820

Offset: 0

Gus Wiseman, Sep 07 2018

nonn

If we form a multiorder by treating integer partitions (a,...,z) as multiarrows LCM(a,...,z) <= {z,...,a}, then a(n) is the number of triangles of weight n.

			The a(4) = 17 ordered multiset partitions:
  {{4}}   {{1,3}}    {{2,2}}     {{1,1,2}}      {{1,1,1,1}}
         {{1},{3}}  {{2},{2}}   {{1},{1,2}}    {{1},{1,1,1}}
                                {{1,1},{2}}    {{1,1,1},{1}}
                               {{1},{1},{2}}   {{1,1},{1,1}}
                                               {{1},{1},{1,1}}
                                               {{1},{1,1},{1}}
                                               {{1,1},{1},{1}}
                                              {{1},{1},{1},{1}}

Andrew Howroyd, Table of n, a(n) for n = 0..50

Cf. A000837, A007716, A063834, A269134, A290103, A316222, A317545, A317546, A319001, A319004.

seq(n)={my(M=Map()); for(m=1, n, forpart(p=m, my(k=lcm(Vec(p)), z); mapput(M, k, if(mapisdefined(M,k,&z), z, 1 + O(x*x^n)) - x^m))); Vec(1/vecprod(Mat(M)[,2]))} \\ Andrew Howroyd, Jan 16 2023

a(0)=1 prepended and terms a(11) and beyond from Andrew Howroyd, Jan 16 2023

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

A334996 Irregular triangle read by rows: T(n, m) is the number of ways to distribute Omega(n) objects into precisely m distinct boxes, with no box empty (Omega(n) >= m).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

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

A319002 Number of ordered factorizations of n where the sequence of GCDs of prime indices (A289508) of the factors is weakly increasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A319003 Number of ordered multiset partitions of integer partitions of n where the sequence of LCMs of the blocks is weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Extensions