A317143 -id:A317143 - cp's OEIS frontend

A300383 In the ranked poset of integer partitions ordered by refinement, a(n) is the size of the lower ideal generated by the partition with Heinz number n.

1, 1, 2, 1, 3, 2, 5, 1, 3, 3, 7, 2, 11, 5, 5, 1, 15, 3, 22, 3, 8, 7, 30, 2, 6, 11, 4, 5, 42, 5, 56, 1, 11, 15, 11, 3, 77, 22, 17, 3, 101, 8, 135, 7, 7, 30, 176, 2, 14, 6, 23, 11, 231, 4, 15, 5, 33, 42, 297, 5, 385, 56, 11, 1, 23, 11, 490, 15, 45, 11, 627, 3

Offset: 1

Gus Wiseman, Mar 04 2018

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). The size of the corresponding upper ideal is A317141(n). Chains are A213427(n) and maximal chains are A002846(n).

			The a(30) = 5 partitions are (321), (2211), (3111), (21111), (111111), with corresponding Heinz numbers: 30, 36, 40, 48, 64.

Robert Price, Table of n, a(n) for n = 1..350

Cf. A000041, A001055, A001222, A002846, A056239, A112798, A213427, A215366, A265947, A296150, A299200, A299202, A299925, A300273.

Cf. A317141, A317142, A317143.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Union[Sort/@Join@@@Tuples[IntegerPartitions/@primeMS[n]]]],{n,50}]

a(prime(n)) = A000041(n).

a(x * y) <= a(x) * a(y).

A317141 In the ranked poset of integer partitions ordered by refinement, number of integer partitions coarser (greater) than or equal to the integer partition with Heinz number n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 22 2018

nonn

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

			The a(24) = 6 partitions coarser than or equal to (2111) are (2111), (311), (221), (32), (41), (5), with Heinz numbers 24, 20, 18, 15, 14, 11.

Alois P. Heinz, Table of n, a(n) for n = 1..65536

Cf. A002846, A056239, A213427, A215366, A265947, A296150, A296150, A299201, A300383, A317142, A317143.

g:= l-> `if`(l=[], {[]}, (t-> map(sort, map(x->
        [seq(subsop(i=x[i]+t, x), i=1..nops(x)),
        [x[], t]][], g(subsop(-1=[][], l)))))(l[-1])):
a:= n-> nops(g(map(i-> numtheory[pi](i[1])$i[2], ifactors(n)[2]))):
seq(a(n), n=1..100);  # Alois P. Heinz, Jul 22 2018

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
ptncaps[ptn_]:=Union[Sort/@Apply[Plus,mps[ptn],{2}]];
Table[Length[ptncaps[primeMS[n]]],{n,100}]

A381633 Number of ways to partition the prime indices of n into sets with distinct sums.

Original entry on oeis.org

1, 1, 1, 0, 1, 2, 1, 0, 0, 2, 1, 1, 1, 2, 2, 0, 1, 1, 1, 1, 2, 2, 1, 0, 0, 2, 0, 1, 1, 4, 1, 0, 2, 2, 2, 1, 1, 2, 2, 0, 1, 5, 1, 1, 1, 2, 1, 0, 0, 1, 2, 1, 1, 0, 2, 0, 2, 2, 1, 3, 1, 2, 1, 0, 2, 5, 1, 1, 2, 4, 1, 0, 1, 2, 1, 1, 2, 5, 1, 0, 0, 2, 1, 4, 2, 2, 2

Offset: 1

Gus Wiseman, Mar 09 2025

nonn

First differs from A050326 at 30, 60, 70, 90, ...
First differs from A339742 at 42, 66, 78, 84, ...
First differs from A381634 at a(210) = 12, A381634(210) = 10.
Also the number of factorizations on n into squarefree numbers > 1 with distinct sums of prime indices.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798, sum A056239.

			The A050320(60) = 6 ways to partition {1,1,2,3} into sets are:
  {{1},{1,2,3}}
  {{1,2},{1,3}}
  {{1},{1},{2,3}}
  {{1},{2},{1,3}}
  {{1},{3},{1,2}}
  {{1},{1},{2},{3}}
Of these, only the following have distinct block-sums:
  {{1},{1,2,3}}
  {{1,2},{1,3}}
  {{1},{2},{1,3}}
So a(60) = 3.

Without distinct block-sums we have A050320, after sums A381078 (lower A381454).
For distinct blocks instead of sums we have A050326, after sums A381441, see A358914.
Taking block-sums (and sorting) gives A381634.
For constant instead of strict blocks we have A381635, see A381716, A381636.
Positions of 0 are A381806, superset of A293243.
Positions of 1 are A381870, superset of A293511.
More on set multipartitions with distinct sums: A279785, A381717, A381718.
More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
A000041 counts integer partitions, strict A000009.
A001055 count multiset partitions of prime indices, see A317141 (upper), A300383 (lower).
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A000720, A001222, A002846, A005117, A213242, A299202, A300385, A317142, A317143, A321469.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
sfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[sfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Table[Length[Select[sfacs[n],UnsameQ@@hwt/@#&]],{n,100}]

A381634 Number of multisets that can be obtained by taking the sum of each block of a set multipartition (multiset of sets) of the prime indices of n with distinct block-sums.

Original entry on oeis.org

Offset: 1

Gus Wiseman, Mar 06 2025

nonn

First differs from A050326 at a(30) = 4, A050326(30) = 5.
First differs from A339742 at a(42) = 5, A339742(42) = 4.
First differs from A381441 at a(30) = 4, A381441(30) = 5.
First differs from A381633 at a(210) = 10, A381633(210) = 12.
Also the number of multisets that can be obtained by taking the sums of prime indices of each factor in a factorization of n into squarefree numbers > 1 with distinct sums of prime indices (A056239).
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
A multiset partition con be regarded as an arrow in the ranked poset of integer partitions. For example, we have {{1},{1,2},{1,3},{1,2,3}}: {1,1,1,1,2,2,3,3} -> {1,3,4,6}, or (33221111) -> (6431) (depending on notation).
Set multipartitions with distinct block-sums are generally not transitive. For example, we have arrows: {{1},{1,2}}: {1,1,2} -> {1,3} and {{1,3}}: {1,3} -> {4}, but there is no arrow {1,1,2} -> {4}.

			The prime indices of 120 are {1,1,2,3}, with 3 ways:
  {{1},{1,2,3}}
  {{1,2},{1,3}}
  {{1},{2},{1,3}}
with block-sums: {1,6}, {3,4}, {1,2,4}, so a(120) = 3.
The prime indices of 210 are {1,2,3,4}, with 12 ways:
  {{1,2,3,4}}
  {{1},{2,3,4}}
  {{2},{1,3,4}}
  {{3},{1,2,4}}
  {{4},{1,2,3}}
  {{1,2},{3,4}}
  {{1,3},{2,4}}
  {{1},{2},{3,4}}
  {{1},{3},{2,4}}
  {{1},{4},{2,3}}
  {{2},{3},{1,4}}
  {{1},{2},{3},{4}}
with block-sums: {10}, {1,9}, {2,8}, {3,7}, {4,6}, {3,7}, {4,6}, {1,2,7}, {1,3,6}, {1,4,5}, {2,3,5}, {1,2,3,4}, of which 10 are distinct, so a(210) = 10.

Without distinct block-sums we have A381078 (lower A381454), before sums A050320.
For distinct blocks instead of sums we have A381441, before sums A050326, see A358914.
Before taking sums we had A381633.
Positions of 0 are A381806.
Positions of 1 are A381870, superset of A293511.
More on set multipartitions with distinct sums: A279785, A381717, A381718.
A001055 counts multiset partitions, see A317141 (upper), A300383 (lower).
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A000720, A001222, A002846, A005117, A116540, A213242, A213385, A213427, A299202, A300385, A317142, A317143, A318360.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
sfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[sfacs[n/d],Min@@#>=d&],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Table[Length[Union[Sort[hwt/@#]&/@Select[sfacs[n],UnsameQ@@hwt/@#&]]],{n,100}]

A318915 Number of joining pairs of integer partitions of n.

Original entry on oeis.org

1, 1, 3, 5, 11, 15, 33, 41, 77, 105, 173, 215, 381, 449, 699, 911, 1335, 1611, 2433, 2867, 4179, 5113, 6903, 8251, 11769, 13661, 18177, 22011, 28997, 33711, 45251

Offset: 0

Gus Wiseman, Sep 05 2018

Two integer partitions are a joining pair if they have no common cover (coarser partition) other than the maximum. For example, (221) and (311) are not a joining pair as they are both covered by (32) or (41), while (222) and (33) are a joining pair.
All terms are odd.
The same as the number of pairs of integer partitions of n without common subsums. - Mamuka Jibladze, Jun 16 2024

			The sequence of joining pairs of integer partitions begins:
  ()()   (1)(1)   (2)(2)    (3)(3)     (4)(4)      (5)(5)
                  (2)(11)   (3)(21)    (4)(31)     (5)(41)
                  (11)(2)   (3)(111)   (4)(22)     (5)(32)
                            (21)(3)    (4)(211)    (5)(311)
                            (111)(3)   (4)(1111)   (5)(221)
                                       (31)(4)     (5)(2111)
                                       (31)(22)    (5)(11111)
                                       (22)(4)     (41)(5)
                                       (22)(31)    (41)(32)
                                       (211)(4)    (32)(5)
                                       (1111)(4)   (32)(41)
                                                   (311)(5)
                                                   (221)(5)
                                                   (2111)(5)
                                                   (11111)(5)

P. Erdős, J. Nicolas and A. Sárközy, On the number of pairs of partitions of n without common subsums, Colloquium Mathematicae, 63 (1992), 61-83.

Cf. A000041, A059849, A060639, A181939, A265947, A299925, A300383, A317141, A317143.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
ptncaps[y_]:=Union[Map[Sort[Total/@#,Greater]&,mps[y],{1}]];
Table[Select[Tuples[IntegerPartitions[n],2],Intersection@@ptncaps/@#=={{n}}&]//Length,{n,6}]

a(n) >= 2 * A000041(n) - 1. - Alois P. Heinz, Sep 06 2018

a(13)-a(30) from Alois P. Heinz, Sep 05 2018

cp's OEIS Frontend

A300383 In the ranked poset of integer partitions ordered by refinement, a(n) is the size of the lower ideal generated by the partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A317141 In the ranked poset of integer partitions ordered by refinement, number of integer partitions coarser (greater) than or equal to the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A381633 Number of ways to partition the prime indices of n into sets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381634 Number of multisets that can be obtained by taking the sum of each block of a set multipartition (multiset of sets) of the prime indices of n with distinct block-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A318915 Number of joining pairs of integer partitions of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions