A213242 -id:A213242 - cp's OEIS frontend

A002846 Number of ways of transforming a set of n indistinguishable objects into n singletons via a sequence of n-1 refinements.

1, 1, 1, 2, 4, 11, 33, 116, 435, 1832, 8167, 39700, 201785, 1099449, 6237505, 37406458, 232176847, 1513796040, 10162373172, 71158660160, 511957012509, 3819416719742, 29195604706757, 230713267586731, 1861978821637735, 15484368121967620, 131388840051760458

Offset: 1

N. J. A. Sloane. Entry revised by N. J. A. Sloane, Jun 11 2012

Construct the ranked poset L(n) whose nodes are the A000041(n) partitions of n, with all the partitions into the same number of parts having the same rank. A partition into k parts is joined to a partition into k+1 parts if the latter is a refinement of the former.
The partition n^1 is at the left and the partition 1^n at the right. The illustration by Olivier Gérard shows the posets L(2) through L(8).
Then a(n) is the number of paths of length n-1 in L(n) that join n^1 to 1^n.
Stated another way, a(n) is the number of maximal chains in the ranked poset L(n). (This poset is not a lattice for n > 4.) - Comments corrected by Gus Wiseman, May 01 2016

			a(5) = 4 because there are 4 paths from top to bottom in this lattice:
  .
       ooooo
     /      \
  o.oooo   oo.ooo
    |    X    |
  o.o.ooo  o.oo.oo
     \       /
      o.o.o.oo
          |
      o.o.o.o.o
  .
(This is the ranked poset L(5), but drawn vertically rather than horizontally.)

N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Alois P. Heinz, Table of n, a(n) for n = 1..80
P. Erdős, R. K. Guy and J. W. Moon, On refining partitions, J. London Math. Soc., 9 (1975), 565-570.
R. K. Guy, Letter to N. J. A. Sloane, June 24 1971: front, back [Annotated scanned copy, with permission]
Olivier Gérard, The ranked posets L(2),...,L(8)
Gus Wiseman, Hasse Diagrams of Partition Refinement Posets n=1..9
Gus Wiseman, Hasse Diagrams of Partition Refinement Posets n=1..9, Version 1, [Cached copy, with permission]
Gus Wiseman, Hasse Diagrams of Partition Refinement Posets n=1..9, Version 2, [Cached copy, with permission]

See A213242, A213385, A213427 for related sequences, A327643.

v:= l-> [seq(`if`(i=1 or l[i]>l[i-1], seq(subs(1=[][], sort(subsop(
         i=[j, l[i]-j][], l))), j=1..l[i]/2), [][]), i=1..nops(l))]:
b:= proc(l) option remember; `if`(max(l)<2, 1, add(b(h), h=v(l))) end:
a:= n-> b([n]):
seq(a(n), n=1..30);  # Alois P. Heinz, Sep 22 2019

Mathematica
```
<Mitch Harris, Jan 19 2006 *)
```

def A002846(n): return Posets.IntegerPartitions(n).chain_polynomial().leading_coefficient()  # Max Alekseyev, Dec 23 2015

a(17)-a(25) from Mitch Harris, Jan 19 2006

A265947 Total size of all principal order ideals in the poset of integer partitions of n with the refinement order.

Original entry on oeis.org

1, 1, 3, 6, 14, 26, 55, 99, 192, 340, 619, 1063, 1873, 3129, 5308, 8718, 14385, 23116, 37346, 58949, 93294, 145131, 225623, 345833, 529976, 801675, 1211225, 1811558, 2703327, 3998289, 5901849, 8641160, 12623450, 18315370, 26503133, 38119289, 54691750, 78028166, 111041918, 157250528, 222105633

Offset: 0

Max Alekseyev, Dec 23 2015

nonn

a(n) is the number of refinement-ordered pairs of integer partitions of n. Every such pair (x,y) is a multiset union x and a multiset of sums y of some weakly ordered sequence of integer partitions, so this sequence is dominated by A063834 (twice partitioned numbers). - Gus Wiseman, May 01 2016

			a(4) = 14 ordered pairs of partitions: {(4,4), (4,22), (4,31), (4,211), (4,1111), (22,22), (22,211), (22,1111), (31,31), (31,211), (31,1111), (211,211), (211,1111), (1111,1111)}.

Jon Mark Perry et al., Counting refinements of partitions, Mathoverflow, 2015.

Cf. A001764, A002846, A213242, A213385, A213427, A063834.

def A265947(n):
    P = Posets.IntegerPartitions(n)
    return sum( len(P.order_ideal([p])) for p in P )

# Alternative:
def A265947(n):
    return Posets.IntegerPartitions(n).relations_number() # F. Chapoton, Feb 26 2020

A213427 Number of ways of refining the partition n^1 to get 1^n.

Original entry on oeis.org

1, 1, 2, 6, 18, 74, 314, 1614, 8650, 52794, 337410, 2373822, 17327770, 136539154, 1115206818, 9671306438, 86529147794, 816066328602, 7904640819682, 80089651530566, 832008919174434, 8983256694817802, 99219778649809162, 1134999470682805134, 13241030890523397154

Offset: 1

N. J. A. Sloane, Jun 11 2012

nonn

Consider the ranked poset L(n) of partitions defined in A002846. Add additional edges from each partition to any other partition that is a refinement of it. In L(5), for example, we add edges from 5^1 to 31^2, 2^21, 21^3 and 1^5, from 41 to 21^3 and 1^5, and so on.

Then a(n) is the total number of paths in the augmented poset of any length from n^1 to 1^n.

Alois P. Heinz, Table of n, a(n) for n = 1..40
Olivier Gérard, The ranked posets L(2),...,L(8)

Cf. A002846, A213242, A213385.

b:= proc(l) option remember; local i, j, n, t; n:=nops(l);
      `if`(n<2, {[0]}, `if`(l[-1]=0, b(subsop(n=NULL, l)), {l,
      seq(`if`(l[i]=0, {}[], {seq(b([seq(l[t]-`if`(t=1, l[t],
      `if`(t=i, 1, `if`(t=j and t=i-j, -2, `if`(t=j or t=i-j,
      -1, 0)))), t=1..n)])[], j=1..i/2)}[]), i=2..n)}))
    end:
p:= proc(l) option remember;
      `if`(nops(l)=1, 1, add(p(x), x=b(l) minus {l}))
    end:
a:= n-> p([0$(n-1), 1]):
seq(a(n), n=1..25);  # Alois P. Heinz, Jun 12 2012

More terms from Alois P. Heinz, Jun 11 2012

Edited by Alois P. Heinz at the suggestion of Gus Wiseman, May 02 2016

A381454 Number of multisets that can be obtained by choosing a strict integer partition of each prime index of n and taking the multiset union.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 3, 1, 4, 2, 2, 1, 5, 1, 6, 2, 2, 3, 8, 1, 3, 4, 1, 2, 10, 2, 12, 1, 3, 5, 4, 1, 15, 6, 4, 2, 18, 2, 22, 3, 2, 8, 27, 1, 3, 3, 5, 4, 32, 1, 6, 2, 6, 10, 38, 2, 46, 12, 2, 1, 8, 3, 54, 5, 8, 4, 64, 1, 76, 15, 3, 6, 6, 4, 89, 2, 1

Offset: 1

Gus Wiseman, Mar 08 2025

nonn

First differs from A357982 at a(25) = 3, A357982(25) = 4.
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 can 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 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 set multipartition {1,1,2} -> {4}.

			The a(25) = 3 multisets are: {3,3}, {1,2,3}, {1,1,2,2}.

For constant instead of strict partitions see A381453, A355733, A381455, A000688.
Positions of 1 are A003586.
The upper version is A381078, before sums A050320.
For distinct block-sums see A381634, A381633, A381806.
Multiset partitions of prime indices:
- For multiset partitions (A001055) see A317141 (upper), A300383 (lower).
- For strict multiset partitions (A045778) see A381452.
- For set systems (A050326, zeros A293243) see A381441 (upper).
- For sets of constant multisets (A050361) see A381715.
- For strict multiset partitions with distinct sums (A321469) see A381637.
- For sets of constant multisets with distinct sums (A381635, zeros A381636) see A381716.
More on set systems: A050342, A116539, A296120, A318361.
More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
More on set multipartitions with distinct sums: A279785, A381717, A381718.
A000041 counts integer partitions, strict A000009.
A000040 lists the primes.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
A265947 counts refinement-ordered pairs of integer partitions.
A358914 counts twice-partitions into distinct strict partitions.
Cf. A000720, A001222, A002846, A005117, A066328, A213242, A213385, A213427, A293511, A299200, A299201, A299202, A300385, A317142.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],UnsameQ@@#&]&/@prix[n]]]],{n,100}]

a(A002110(n)) = A381808(n).

A381636 Numbers whose prime indices cannot be partitioned into constant blocks with distinct sums.

Original entry on oeis.org

12, 60, 63, 84, 120, 126, 132, 156, 204, 228, 252, 276, 300, 315, 325, 348, 372, 420, 444, 492, 504, 516, 560, 564, 588, 630, 636, 650, 660, 693, 708, 720, 732, 780, 804, 819, 840, 852, 876, 924, 931, 948, 975, 996, 1008, 1020, 1068, 1071, 1092, 1140, 1164

Offset: 1

Gus Wiseman, Mar 10 2025

nonn

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.
Also numbers that cannot be written as a product of prime powers > 1 with distinct sums of prime indices (A056239).
Contains no squarefree numbers.
Conjecture: These are the zeros of A382876.

			The prime indices of 300 are {1,1,2,3,3}, with partitions into constant blocks:
  {{2},{1,1},{3,3}}
  {{1},{1},{2},{3,3}}
  {{2},{3},{3},{1,1}}
  {{1},{1},{2},{3},{3}}
but none of these has distinct block-sums, so 300 is in the sequence.
The terms together with their prime indices begin:
   12: {1,1,2}
   60: {1,1,2,3}
   63: {2,2,4}
   84: {1,1,2,4}
  120: {1,1,1,2,3}
  126: {1,2,2,4}
  132: {1,1,2,5}
  156: {1,1,2,6}
  204: {1,1,2,7}
  228: {1,1,2,8}
  252: {1,1,2,2,4}
  276: {1,1,2,9}
  300: {1,1,2,3,3}

More on multiset partitions into constant blocks: A006171, A279784, A295935.
These are the positions of 0 in A381635, after taking block-sums A381716.
Partitions of this type are counted by A381717.
For strict instead of constant blocks we have A381806, zeros of A381633.
For equal instead of distinct block-sums we have A381871.
A000688 counts multiset partitions into constant, see A381455 (upper), A381453 (lower).
A001055 counts multiset partitions, see A317141 (upper), A300383 (lower).
A050361 counts multiset partitions into distinct constant blocks, after sums A381715.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
Cf. A000720, A001222, A005117, A050320, A059404, A213242, A293243, A299202, A300385, A381078, A381454, A381634.

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

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

A381635 Number of ways to partition the prime indices of n into constant blocks with distinct sums.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 09 2025

nonn

First differs from A381716 at a(1728) = 5, A381716(1728) = 4.

Also the number of factorizations on n into prime powers > 1 with distinct sums of prime indices (A056239).

			The a(432) = 3 multiset partitions:
  {{2,2,2},{1,1,1,1}}
  {{1},{1,1,1},{2,2,2}}
  {{1},{2},{2,2},{1,1,1}}
Note {{2},{2,2},{1,1,1,1}} is not included, as it does not have distinct block-sums.

Without distinct block-sums we have A000688, after sums A381455 (upper), A381453 (lower).
For distinct blocks instead of sums we have A050361, after sums A381715.
For strict instead of constant we have A381633 (zeros A381806), after sums A381634.
Positions of 0 are A381636.
Taking block-sums (and sorting) gives A381716.
Other multiset partitions of prime indices:
More on multiset partitions into constant blocks: A006171, A279784, A295935.
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, A213242, A213385, A293511, A299202, A300385, A317142, A381870.

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

A381441 Number of multisets that can be obtained by partitioning the prime indices of n into a set of sets (set system) and taking their 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, 5, 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, 4, 1, 2, 1, 0, 2, 5, 1, 1, 2, 5, 1, 0, 1, 2, 1, 1, 2, 5, 1, 0, 0, 2, 1, 4, 2, 2, 2

Offset: 1

Gus Wiseman, Mar 06 2025

nonn

First differs from A050326 at a(210) = 13, A050326(210) = 15. This comes from the set systems {{3},{1,2,4}} and {{1,2},{3,4}}, and from {{4},{1,2,3}} and {{1,3},{2,4}}.
Also the number of multisets that can be obtained by taking the sums of prime indices of each factor in a strict factorization of n into squarefree numbers > 1.
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 can 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).
Sets of sets 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 set of sets {1,1,2} -> {4}.

			The prime indices of 60 are {1,1,2,3}, with partitions into sets of sets:
  {{1},{1,2,3}}
  {{1,2},{1,3}}
  {{1},{2},{1,3}}
  {{1},{3},{1,2}}
with block-sums: {1,6}, {3,4}, {1,2,4}, {1,3,3}, which are all different, so a(60) = 4.

Before taking sums we had A050326, non-strict A050320.
Positions of 0 are A293243.
Positions of 1 are A293511.
This is the strict version of A381078 (lower A381454).
For distinct block-sums (instead of blocks) we have A381634, before sums A381633.
Other multiset partitions of prime indices:
- For multisets of constant multisets (A000688) see A381455 (upper), A381453 (lower).
- For multiset partitions (A001055) see A317141 (upper), A300383 (lower).
- For strict multiset partitions (A045778) see A381452.
- For sets of constant multisets (A050361) see A381715.
- For strict multiset partitions with distinct sums (A321469) see A381637.
- For sets of constant multisets with distinct sums (A381635) see A381716, A381636.
More on set systems: A050342, A116539, A279785, A296120, A318361.
A000041 counts integer partitions, strict A000009.
A000040 lists the primes, differences A001223.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A000720, A001222, A002846, A005117, A066328, A213242, A213385, A213427, A299202, A300385, A317142.

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

a(A002110(n)) = A066723(n).

A381716 Number of multisets that can be obtained by taking the sum of each block of a multiset partition of the prime indices of n into constant blocks with distinct sums.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 10 2025

nonn

First differs from A381635 at a(1728) = 4, A381635(1728) = 5.

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.

			The prime indices of 1728 are {1,1,1,1,1,1,2,2,2}, with multiset partitions into constant multisets with distinct sums:
  {{1,1,1,1,1,1},{2,2},{2}}
  {{1,1,1,1,1},{1},{2,2,2}}
  {{1,1,1,1,1},{1},{2,2},{2}}
  {{1,1,1,1},{1,1},{2,2,2}}
  {{1,1,1},{1,1},{1},{2,2,2}}
with block-sums: {1,5,6}, {2,4,6}, {1,2,3,6}, {1,2,4,5}, so a(1728) = 4.

Without distinct sums we have A000688, after sums A381455 (upper), A381453 (lower).
More on multiset partitions into constant blocks: A006171, A279784, A295935.
For strict instead of constant we have A381633, before sums A381634.
Before taking sums we had A381635.
Positions of 0 are A381636.
For distinct blocks instead of sums we have A381715.
A001055 counts multiset partitions, see A317141 (upper), A300383 (lower).
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
Cf. A000720, A001222, A002846, A005117, A050361, A213242, A265947, A293511, A299202, A300385, A362421.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn,{ptn,IntegerPartitions[Length[y]]}];
Table[Length[Union[Sort[Total/@#]&/@Select[Join@@@Tuples[mce/@Split[prix[n]]],UnsameQ@@Total/@#&]]],{n,100}]

A381717 Number of integer partitions of n that cannot be partitioned into constant multisets with distinct block-sums.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 1, 3, 2, 3, 6, 7, 10, 15, 15, 28, 37, 47, 64, 71, 97, 139, 173, 215, 273, 361, 439, 551, 691, 853, 1078, 1325, 1623, 2046, 2458, 2998, 3697, 4527, 5472, 6590, 7988, 9590, 11598, 13933, 16560, 19976, 23822, 28420, 33797, 40088, 47476, 56369, 66678

Offset: 0

Gus Wiseman, Mar 16 2025

nonn

Conjecture: Also the number of integer partitions of n having no permutation with all distinct run-sums, ranked by zeros of A382876. In other words, a partition has a permutation with all distinct run-sums iff it has a multiset partition into constant blocks with all distinct block-sums, where the run-sums of a sequence are obtained by splitting it into maximal runs and taking their sums.

			For y = (3,2,2,1) we have the multiset partition {{3},{2,2},{1}}, so y is not counted under a(8).
For y = (3,2,1,1,1) there are 3 multiset partitions into constant multisets:
  {{3},{2},{1,1,1}}
  {{3},{2},{1,1},{1}}
  {{3},{2},{1},{1},{1}}
but none of these has distinct block-sums, so y is counted under a(8).
For y = (3,3,1,1,1,1,1,1) we have multiset partitions:
  {{1},{3,3},{1,1,1,1,1}}
  {{1,1},{3,3},{1,1,1,1}}
  {{1},{1,1},{3,3},{1,1,1}}
so y is not counted under a(12).
The a(4) = 1 through a(13) = 10 partitions:
  211  .  .  3211  422    4221  6211   4322     633      5422
                   4211   5211  33211  7211     8211     6331
                   32111        42211  43211    43221    9211
                                       422111   44211    54211
                                       431111   53211    63211
                                       3221111  432111   333211
                                                4221111  432211
                                                         532111
                                                         4321111
                                                         42211111

Twice-partitions of this type (constant with distinct) are counted by A279786.
Multiset partitions of this type are ranked by A326535 /\ A355743.
These partitions are ranked by A381636, zeros of A381635.
For strict instead of constant blocks we have A381990, see A381806, A381633, A382079.
For equal instead of distinct block-sums we have A381993.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383.
A050361 counts factorizations into distinct prime powers.
Cf. A002846, A047966, A130091, A213242, A213427, A265947, A317142, A353864, A381716, A381991, A381992, A382876.

mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn,{ptn,IntegerPartitions[Length[y]]}];
Table[Length[Select[IntegerPartitions[n],Select[Join@@@Tuples[mce/@Split[#]],UnsameQ@@Total/@#&]=={}&]],{n,0,30}]

a(37)-a(53) from Robert Price, Mar 31 2025

cp's OEIS Frontend

A002846 Number of ways of transforming a set of n indistinguishable objects into n singletons via a sequence of n-1 refinements.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Sage

Extensions

A265947 Total size of all principal order ideals in the poset of integer partitions of n with the refinement order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Sage

Sage

A213427 Number of ways of refining the partition n^1 to get 1^n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Extensions

A381454 Number of multisets that can be obtained by choosing a strict integer partition of each prime index of n and taking the multiset union.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A381636 Numbers whose prime indices cannot be partitioned into constant blocks with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

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

A381635 Number of ways to partition the prime indices of n into constant blocks with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381441 Number of multisets that can be obtained by partitioning the prime indices of n into a set of sets (set system) and taking their sums.

Views

Author

Keywords

Comments

Examples

Crossrefs