A319002 -id:A319002 - cp's OEIS frontend

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

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}]

A317508 Number of ways to split the integer partition with Heinz number n into consecutive subsequences with weakly decreasing sums.

Original entry on oeis.org

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

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(60) = 7 split partitions:
  (3)(2)(1)(1)
  (32)(1)(1)
  (3)(21)(1)
  (3)(2)(11)
  (321)(1)
  (32)(11)
  (3211)

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

Cf. A316245, 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[Length[Select[compositionPartitions[If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]],OrderedQ[Total/@#]&]],{n,100}]

A319001 Number of ordered multiset partitions of integer partitions of n where the sequence of GCDs of the partitions is weakly increasing.

Original entry on oeis.org

1, 1, 3, 7, 18, 42, 105, 248, 606, 1450, 3507, 8415, 20305, 48785, 117502, 282574, 680137, 1636005, 3936841, 9470776, 22787529, 54822530, 131901491, 317336519, 763489051, 1836862947, 4419324581, 10632404189, 25580507505, 61543948594, 148068421107

Offset: 0

Gus Wiseman, Sep 07 2018

nonn

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 of weight n.

			The a(4) = 18 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,2},{1}}     {{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}}

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

Cf. A000837, A007716, A055887, A063834, A255397, A269134, A276024, A289508, A316222, A317545, A317546, A319002, A319003.

\\ here B(n) is A000837 as vector.
B(n) = {dirmul(vector(n, k, moebius(k)), vector(n, k, numbpart(k)))}
seq(n) ={my(p=x*Ser(B(n))); Vec(1/prod(g=1, n, 1 - subst(p + O(x*x^(n\g)), x, x^g)))} \\ Andrew Howroyd, Jan 16 2023

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

A319004 Number of ordered factorizations of n where the sequence of LCMs of the prime indices (A290103) of each factor is weakly increasing.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 4, 2, 2, 1, 4, 1, 2, 2, 8, 1, 5, 1, 4, 2, 2, 1, 8, 2, 2, 4, 4, 1, 5, 1, 16, 2, 2, 2, 11, 1, 2, 2, 8, 1, 5, 1, 4, 4, 2, 1, 16, 2, 5, 2, 4, 1, 12, 2, 8, 2, 2, 1, 11, 1, 2, 4, 32, 2, 5, 1, 4, 2, 5, 1, 23, 1, 2, 4, 4, 2, 5, 1, 16, 8, 2, 1, 11, 2, 2, 2, 8, 1, 12, 2, 4, 2, 2, 2, 32, 1, 5, 4, 11, 1, 5, 1, 8, 5

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 LCMs of the parts is weakly increasing. 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 whose composite ground is the integer partition with Heinz number n.

			The a(60) = 11 ordered factorizations:
  (2*2*3*5),
  (2*2*15), (2*3*10), (2*6*5), (4*3*5),
  (2*30), (3*20), (4*15), (12*5), (6*10),
  (60).
The a(60) = 11 ordered multiset partitions:
     {{1,1,2,3}}
    {{1},{1,2,3}}
    {{2},{1,1,3}}
    {{1,1,2},{3}}
    {{1,1},{2,3}}
    {{1,2},{1,3}}
   {{1},{1},{2,3}}
   {{1},{2},{1,3}}
   {{1},{1,2},{3}}
   {{1,1},{2},{3}}
  {{1},{1},{2},{3}}

Cf. A001055, A056239, A063834, A074206, A290103, A296150, A316223, A317545, A317546, A318559, A319002, A319003.

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

is_weakly_increasing(v) = { for(i=2,#v,if(v[i]A290103(n) = lcm(apply(p->primepi(p),factor(n)[,1]));
A319004aux(n, facs) = if(1==n, is_weakly_increasing(apply(f -> A290103(f),Vec(facs))), my(s=0, newfacs); fordiv(n, d, if((d>1), newfacs = List(facs); listput(newfacs,d); s += A319004aux(n/d, newfacs))); (s));
A319004(n) = if((1==n)||isprime(n),1,A319004aux(n, List([]))); \\ Antti Karttunen, Sep 23 2018

A001055(n) <= a(n) <= A074206(n). - Antti Karttunen, Sep 23 2018

More terms from Antti Karttunen, Sep 23 2018

cp's OEIS Frontend

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

A317508 Number of ways to split the integer partition with Heinz number n into consecutive subsequences with weakly decreasing sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A319001 Number of ordered multiset partitions of integer partitions of n where the sequence of GCDs of the partitions is weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Extensions

A319004 Number of ordered factorizations of n where the sequence of LCMs of the prime indices (A290103) of each factor is weakly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions