A066723 -id:A066723 - cp's OEIS frontend

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

1, 1, 2, 4, 12, 24, 92, 184, 704, 2016, 7600, 15200, 80664, 161328, 601696, 2198824, 9868544, 19737088, 102010480, 204020960

Offset: 0

Gus Wiseman, Mar 13 2025

A constant partition is a multiset whose parts are all equal. There are A000005(n) constant partitions of n.

			The a(1) = 1 through a(4) = 12 multisets:
  {1}  {1,2}    {1,2,3}        {1,2,3,4}
       {1,1,1}  {1,1,1,3}      {1,1,1,3,4}
                {1,1,1,1,2}    {1,2,2,2,3}
                {1,1,1,1,1,1}  {1,1,1,1,2,4}
                               {1,1,1,2,2,3}
                               {1,1,1,1,1,1,4}
                               {1,1,1,1,1,2,3}
                               {1,1,1,1,2,2,2}
                               {1,1,1,1,1,1,1,3}
                               {1,1,1,1,1,1,2,2}
                               {1,1,1,1,1,1,1,1,2}
                               {1,1,1,1,1,1,1,1,1,1}

The number of possible choices was A066843.
Multiset partitions into constant blocks: A006171, A279784, A295935.
Choosing prime factors: A355746, A355537, A327486, A355744, A355742, A355741.
Choosing divisors: A355747, A355733.
Sets of constant multisets with distinct sums: A381635, A381636, A381716.
Strict instead of constant partitions: A381808, A058694, A152827.
A000041 counts integer partitions, strict A000009, constant A000005.
A000688 counts multiset partitions into constant blocks.
A050361 and A381715 count multiset partitions into constant multisets.
A066723 counts partitions coarser than {1..n}, primorial case of A317141.
A265947 counts refinement-ordered pairs of integer partitions.
A321470 counts partitions finer than {1..n}, primorial case of A300383.
Cf. A001970, A018818, A213385, A299200, A321467, A321468, A321471, A321514, A355731, A381453, A381455.

Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@Range[n]]]],{n,0,10}]

Primorial case of A381453: a(n) = A381453(A002110(n)).

a(16)-a(19) from Christian Sievers, Jun 04 2025

A381808 Number of multisets that can be obtained by choosing a strict integer partition of m for each m = 0..n and taking the multiset union.

Original entry on oeis.org

1, 1, 1, 2, 4, 12, 38, 145, 586, 2619, 12096, 58370, 285244, 1436815, 7281062, 37489525, 193417612

Offset: 0

Gus Wiseman, Mar 14 2025

			The a(1) = 1 through a(5) = 12 multisets:
  {1}  {1,2}  {1,2,3}    {1,2,3,4}      {1,2,3,4,5}
              {1,1,2,2}  {1,1,2,2,4}    {1,1,2,2,4,5}
                         {1,1,2,3,3}    {1,1,2,3,3,5}
                         {1,1,1,2,2,3}  {1,1,2,3,4,4}
                                        {1,2,2,3,3,4}
                                        {1,1,1,2,2,3,5}
                                        {1,1,1,2,2,4,4}
                                        {1,1,1,2,3,3,4}
                                        {1,1,2,2,2,3,4}
                                        {1,1,2,2,3,3,3}
                                        {1,1,1,1,2,2,3,4}
                                        {1,1,1,2,2,2,3,3}

Set systems: A050342, A116539, A296120, A318361.
The number of possible choices was A152827, non-strict A058694.
Set multipartitions with distinct sums: A279785, A381718.
Choosing prime factors: A355746, A355537, A327486, A355744, A355742, A355741.
Choosing divisors: A355747, A355733.
Constant instead of strict partitions: A381807, A066843.
A000041 counts integer partitions, strict A000009, constant A000005.
A066723 counts partitions coarser than {1..n}, primorial case of A317141.
A265947 counts refinement-ordered pairs of integer partitions.
A321470 counts partitions finer than {1..n}, primorial case of A300383.
Cf. A001970, A018818, A213385, A299200, A321467, A321468, A321471, A321514, A355731, A381453, A381455.

Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],UnsameQ@@#&]&/@Range[n]]]],{n,0,10}]

a(12)-a(16) from Christian Sievers, Jun 04 2025

A066740 Number of distinct partitions of A007504(n) which can be obtained by merging parts in the partition 2+3+5+...+prime(n), where prime(n) is the n-th prime.

Original entry on oeis.org

1, 1, 2, 5, 13, 44, 151, 614, 2446, 11066, 53368, 253927, 1316375, 7213979, 38175696, 213766427

Offset: 0

Naohiro Nomoto, Jan 16 2002

			For n=4, the 13 partitions are 17, 2+15, 3+14, 5+12, 7+10, 8+9, 2+3+12, 2+5+10, 2+7+8, 3+5+9, 3+7+7, 5+5+7, 2+3+5+7. 5+12 and 7+10 can be obtained in two ways each: 5+12 = (5)+(2+3+7) = (2+3)+(5+7), 7+10 = (7)+(2+3+5) = (2+5)+(3+7).

Cf. A007504, A066723.

b:= proc(n) local p; p:= `if`(n=0, 1, ithprime(n));
      b(n):= `if`(n<2, {[p$n]}, map(x-> [sort([x[], p]),
      seq(sort(subsop(i=x[i]+p, x)), i=1..nops(x))][], b(n-1)))
    end:
a:= n-> nops(b(n)):
seq(a(n), n=0..10);  # Alois P. Heinz, May 31 2013

addto[ p_, k_ ] := Module[ {}, lth=Length[ p ]; Union[ Sort/@Append[ Table[ Join[ Take[ p, i-1 ], {p[ [ i ] ]+k}, Take[ p, i-lth ] ], {i, 1, lth} ], Append[ p, k ] ] ] ]; addtolist[ plist_, k_ ] := Union[ Join@@(addto[ #, k ]&/@plist) ]; l[ 0 ]={{}}; l[ n_ ] := l[ n ]=addtolist[ l[ n-1 ], Prime[ n ] ]; a[ n_ ] := Length[ l[ n ] ]

Edited by Dean Hickerson, Jan 18 2002

a(14)-a(15) from Sean A. Irvine, Nov 05 2023

A322077 In the ranked poset of integer partitions ordered by refinement, number of integer partitions coarser (greater) than or equal to the integer partition whose multiplicities are the prime indices of n in weakly decreasing order.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 5, 5, 8, 6, 7, 9, 11, 10, 12, 13, 15, 18, 22, 15, 19, 14, 30, 24, 22, 21, 40, 23, 42, 29, 56, 36, 27, 29, 34, 47, 77, 41, 39, 40

Offset: 1

Gus Wiseman, Nov 25 2018

This partition (reversed row n of A305936) is generally not the same as the integer partition with Heinz number n. For example, 12 is the Heinz number of (2,1,1), while the integer partition whose multiplicities are (2,1,1) is (3,2,1,1).

			The list of a(1) = 1 through a(18) = 18 coarser partitions:
  ()  (1)  (2)   (3)   (3)    (4)    (4)     (6)    (6)     (5)     (5)
           (11)  (21)  (21)   (22)   (22)    (33)   (33)    (32)    (32)
                       (111)  (31)   (31)    (42)   (42)    (41)    (41)
                              (211)  (211)   (51)   (51)    (221)   (221)
                                     (1111)  (321)  (222)   (311)   (311)
                                                    (321)   (2111)  (2111)
                                                    (411)           (11111)
                                                    (2211)
.
  (7)     (6)       (6)      (7)      (10)    (7)        (9)
  (43)    (33)      (33)     (43)     (55)    (43)       (54)
  (52)    (42)      (42)     (52)     (64)    (52)       (63)
  (61)    (51)      (51)     (61)     (73)    (61)       (72)
  (322)   (222)     (222)    (322)    (82)    (322)      (81)
  (331)   (321)     (321)    (331)    (91)    (331)      (333)
  (421)   (411)     (411)    (421)    (433)   (421)      (432)
  (511)   (2211)    (2211)   (511)    (442)   (511)      (441)
  (3211)  (3111)    (3111)   (2221)   (532)   (2221)     (522)
          (21111)   (21111)  (3211)   (541)   (3211)     (531)
          (111111)           (4111)   (631)   (4111)     (621)
                             (22111)  (721)   (22111)    (711)
                                      (4321)  (31111)    (3222)
                                              (211111)   (3321)
                                              (1111111)  (4221)
                                                         (4311)
                                                         (5211)
                                                         (32211)

Cf. A063834, A066723, A213427, A265947, A299201, A300383, A317141, A321468, A321472.

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]]]];
nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Table[Length[Union[Sort/@Apply[Plus,mps[nrmptn[n]],{2}]]],{n,20}]

cp's OEIS Frontend

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A381808 Number of multisets that can be obtained by choosing a strict integer partition of m for each m = 0..n and taking the multiset union.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A066740 Number of distinct partitions of A007504(n) which can be obtained by merging parts in the partition 2+3+5+...+prime(n), where prime(n) is the n-th prime.

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple

Mathematica

Extensions

A322077 In the ranked poset of integer partitions ordered by refinement, number of integer partitions coarser (greater) than or equal to the integer partition whose multiplicities are the prime indices of n in weakly decreasing order.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica