A381718 Number of normal multiset partitions of weight n into sets with distinct sums.

1, 1, 2, 6, 23, 106, 549, 3184, 20353, 141615, 1063399, 8554800, 73281988, 665141182, 6369920854, 64133095134, 676690490875, 7462023572238, 85786458777923, 1025956348473929, 12739037494941490

Offset: 0

Author

Gus Wiseman, Mar 26 2025

Keywords

• nonn

Comments

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The weight of a multiset partition is the sum of sizes of its blocks.

Examples

			The a(1) = 1 through a(3) = 6 multiset partitions:
  {{1}}  {{1,2}}    {{1,2,3}}
         {{1},{2}}  {{1},{1,2}}
                    {{1},{2,3}}
                    {{2},{1,2}}
                    {{2},{1,3}}
                    {{1},{2},{3}}
The a(4) = 23 factorizations:
  2*3*6  5*30    3*30    2*30    210
         10*15   6*15    6*10    2*105
         2*5*15  2*3*15  2*3*10  3*70
         3*5*10                  5*42
                                 7*30
                                 6*35
                                 10*21
                                 2*3*35
                                 2*5*21
                                 2*7*15
                                 3*5*14
                                 2*3*5*7
		

Crossrefs

For distinct blocks instead of sums we have A116539, see A050326.

Without distinct sums we have A116540 (normal set multipartitions).

Twice-partitions of this type are counted by A279785.

Without strict blocks we have A326519.

Factorizations of this type are counted by A381633.

For constant instead of strict blocks we have A382203.

For distinct sizes instead of sums we have A382428, non-strict blocks A326517.

For equal instead of distinct block-sums we have A382429, non-strict blocks A326518.

A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.

A001055 count factorizations, strict A045778.

Normal multiset partitions: A034691, A035310, A255906.

Set multipartitions: A089259, A270995, A296119, A318360.

Cf. A000110, A007716, A050320, A255903, A275780, A317532, A317583, A321469, A381635, A382204, A382214, A382216.

Programs

Mathematica

allnorm[n_Integer]:=Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
Table[Length[Join@@(Select[mps[#],UnsameQ@@Total/@#&&And@@UnsameQ@@@#&]&/@allnorm[n])],{n,0,5}]

Extensions

a(10)-a(11) from Robert Price, Mar 31 2025

a(12)-a(20) from Christian Sievers, Apr 05 2025