A279785 -id:A279785 - cp's OEIS frontend

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

Gus Wiseman, Mar 26 2025

nonn

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.

			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

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.

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

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

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

A358836 Number of multiset partitions of integer partitions of n with all distinct block sizes.

Original entry on oeis.org

1, 1, 2, 4, 8, 15, 28, 51, 92, 164, 289, 504, 871, 1493, 2539, 4290, 7201, 12017, 19939, 32911, 54044, 88330, 143709, 232817, 375640, 603755, 966816, 1542776, 2453536, 3889338, 6146126, 9683279, 15211881, 23830271, 37230720, 58015116, 90174847, 139820368, 216286593

Offset: 0

Gus Wiseman, Dec 05 2022

nonn

Also the number of integer compositions of n whose leaders of maximal weakly decreasing runs are strictly increasing. For example, the composition (1,2,2,1,3,1,4,1) has maximal weakly decreasing runs ((1),(2,2,1),(3,1),(4,1)), with leaders (1,2,3,4), so is counted under a(15). - Gus Wiseman, Aug 21 2024

			The a(1) = 1 through a(5) = 15 multiset partitions:
  {1}  {2}    {3}        {4}          {5}
       {1,1}  {1,2}      {1,3}        {1,4}
              {1,1,1}    {2,2}        {2,3}
              {1},{1,1}  {1,1,2}      {1,1,3}
                         {1,1,1,1}    {1,2,2}
                         {1},{1,2}    {1,1,1,2}
                         {2},{1,1}    {1},{1,3}
                         {1},{1,1,1}  {1},{2,2}
                                      {2},{1,2}
                                      {3},{1,1}
                                      {1,1,1,1,1}
                                      {1},{1,1,2}
                                      {2},{1,1,1}
                                      {1},{1,1,1,1}
                                      {1,1},{1,1,1}
From _Gus Wiseman_, Aug 21 2024: (Start)
The a(0) = 1 through a(5) = 15 compositions whose leaders of maximal weakly decreasing runs are strictly increasing:
  ()  (1)  (2)   (3)    (4)     (5)
           (11)  (12)   (13)    (14)
                 (21)   (22)    (23)
                 (111)  (31)    (32)
                        (112)   (41)
                        (121)   (113)
                        (211)   (122)
                        (1111)  (131)
                                (221)
                                (311)
                                (1112)
                                (1121)
                                (1211)
                                (2111)
                                (11111)
(End)

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

The version for set partitions is A007837.
For sums instead of sizes we have A271619.
For constant instead of distinct sizes we have A319066.
These multiset partitions are ranked by A326533.
For odd instead of distinct sizes we have A356932.
The version for twice-partitions is A358830.
The case of distinct sums also is A358832.
Ranked by positions of strictly increasing rows in A374740, opposite A374629.
A001970 counts multiset partitions of integer partitions.
A011782 counts compositions.
A063834 counts twice-partitions, strict A296122.
A238130, A238279, A333755 count compositions by number of runs.
A335456 counts patterns matched by compositions.
Runs and leaders: A000041, A188900, A374634, A374635, A374637, A374679, A374742 (ranks A374744), A374743 (ranks A374701), A374746, A374747.
Cf. A000009, A141199, A273873, A279375, A279785, A279790, A358334.
Cf. A003242, A106356, A188920, A189076, A238343, A333213, A336342.

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]]]];
Table[Length[Select[Join@@mps/@IntegerPartitions[n],UnsameQ@@Length/@#&]],{n,0,10}]
(* second program *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], Less@@First/@Split[#,GreaterEqual]&]],{n,0,15}] (* Gus Wiseman, Aug 21 2024 *)

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(g=P(n,y)); Vec(prod(k=1, n, 1 + polcoef(g, k, y) + O(x*x^n)))} \\ Andrew Howroyd, Dec 31 2022

G.f.: Product_{k>=1} (1 + [y^k]P(x,y)) where P(x,y) = 1/Product_{k>=1} (1 - y*x^k). - Andrew Howroyd, Dec 31 2022

Terms a(11) and beyond from Andrew Howroyd, Dec 31 2022

A381806 Numbers that cannot be written as a product of squarefree numbers with distinct sums of prime indices.

Original entry on oeis.org

4, 8, 9, 16, 24, 25, 27, 32, 40, 48, 49, 54, 56, 64, 72, 80, 81, 88, 96, 104, 108, 112, 121, 125, 128, 135, 136, 144, 152, 160, 162, 169, 176, 184, 189, 192, 200, 208, 216, 224, 232, 240, 243, 248, 250, 256, 272, 288, 289, 296, 297, 304, 320, 324, 328, 336

Offset: 1

Gus Wiseman, Mar 12 2025

nonn

First differs from A212164 in having 3600.
First differs from A293243 in having 18000.
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 whose prime indices cannot be partitioned into a multiset of sets with distinct sums.

			There are 4 factorizations of 18000 into squarefree numbers:
  (2*2*3*5*10*30)
  (2*2*5*6*10*15)
  (2*2*10*15*30)
  (2*5*6*10*30)
but none of these has all distinct sums of prime indices, so 18000 is in the sequence.

Strongly normal multisets of this type are counted by A292444.
These are the zeros in A381633, see A050320, A321469, A381078, A381634.
For distinct blocks see A050326, A293243, A293511, A358914, A381441.
For more on set multipartitions see A089259, A116540, A270995, A296119, A318360.
For more on set multipartitions with distinct sums see A279785, A381718.
For constant instead of strict blocks we have A381636, see A381635, A381716.
Partitions of this type are counted by A381990, complement A381992.
The complement is A382075.
A001055 counts multiset partitions, strict A045778.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000688, A000720, A001222, A005117, A299202, A300385, A381454, A381870.

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

A381992 Number of integer partitions of n that can be partitioned into sets with distinct sums.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 6, 9, 13, 17, 25, 33, 44, 59, 77, 100, 134, 170, 217, 282, 360, 449, 571, 719, 899, 1122, 1391, 1727, 2136, 2616, 3209, 3947, 4800, 5845, 7094, 8602, 10408, 12533, 15062, 18107, 21686, 25956, 30967, 36936, 43897, 52132, 61850, 73157, 86466, 101992, 120195

Offset: 0

Gus Wiseman, Mar 16 2025

nonn

Also the number of integer partitions of n whose Heinz number belongs to A382075 (can be written as a product of squarefree numbers with distinct sums of prime indices).

			There are 6 ways to partition (3,2,2,1) into sets:
  {{2},{1,2,3}}
  {{1,2},{2,3}}
  {{1},{2},{2,3}}
  {{2},{2},{1,3}}
  {{2},{3},{1,2}}
  {{1},{2},{2},{3}}
Of these, 3 have distinct block sums:
  {{2},{1,2,3}}
  {{1,2},{2,3}}
  {{1},{2},{2,3}}
so (3,2,2,1) is counted under a(8).
The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)  (3)    (4)      (5)      (6)        (7)        (8)
            (2,1)  (3,1)    (3,2)    (4,2)      (4,3)      (5,3)
                   (2,1,1)  (4,1)    (5,1)      (5,2)      (6,2)
                            (2,2,1)  (3,2,1)    (6,1)      (7,1)
                            (3,1,1)  (4,1,1)    (3,2,2)    (3,3,2)
                                     (2,2,1,1)  (3,3,1)    (4,2,2)
                                                (4,2,1)    (4,3,1)
                                                (5,1,1)    (5,2,1)
                                                (3,2,1,1)  (6,1,1)
                                                           (3,2,2,1)
                                                           (3,3,1,1)
                                                           (4,2,1,1)
                                                           (3,2,1,1,1)

More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Twice-partitions of this type are counted by A279785.
Multiset partitions of this type are counted by A381633, zeros of A381634.
For constant instead of strict blocks see A381717, A381636, A381635, A381716, A381991.
Normal multiset partitions of this type are counted by A381718, see A116539.
The complement is counted by A381990, ranked by A381806.
These partitions are ranked by A382075.
For distinct blocks instead of sums we have A382077, complement A382078.
For a unique choice we have A382079.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A265947 counts refinement-ordered pairs of integer partitions.
A382201 lists MM-numbers of sets with distinct sums.
Cf. A002846, A047966, A213427, A279786, A299202, A317142, A381870.
Cf. A293243, A293511, A358914, A381078, A381441, A381454.

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]]]];
Table[Length[Select[IntegerPartitions[n],Length[Select[mps[#], And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]>0&]],{n,0,10}]

a(21)-a(50) from Bert Dobbelaere, Mar 29 2025

A294617 Number of ways to choose a set partition of a strict integer partition of n.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 10, 12, 17, 24, 44, 51, 76, 98, 138, 217, 272, 366, 493, 654, 848, 1284, 1560, 2115, 2718, 3610, 4550, 6024, 8230, 10296, 13354, 17144, 21926, 27903, 35556, 44644, 59959, 73456, 94109, 117735, 150078, 185800, 235719, 290818, 365334, 467923

Offset: 0

Gus Wiseman, Nov 05 2017

nonn

From Gus Wiseman, Sep 17 2024: (Start)
Also the number of strict integer compositions of n whose leaders, obtained by splitting into maximal increasing subsequences and taking the first term of each, are decreasing. For example, the strict composition (3,6,2,1,4) has maximal increasing subsequences ((3,6),(2),(1,4)), with leaders (3,2,1), so is counted under a(16). The a(0) = 1 through a(7) = 12 compositions are:
  ()  (1)  (2)  (3)    (4)    (5)    (6)      (7)
                (1,2)  (1,3)  (1,4)  (1,5)    (1,6)
                (2,1)  (3,1)  (2,3)  (2,4)    (2,5)
                              (3,2)  (4,2)    (3,4)
                              (4,1)  (5,1)    (4,3)
                                     (1,2,3)  (5,2)
                                     (2,1,3)  (6,1)
                                     (2,3,1)  (1,2,4)
                                     (3,1,2)  (2,1,4)
                                     (3,2,1)  (2,4,1)
                                              (4,1,2)
                                              (4,2,1)
(End)

			The a(6) = 10 set partitions are: {{6}}, {{1},{5}}, {{5,1}}, {{2},{4}}, {{4,2}}, {{1},{2},{3}}, {{1},{3,2}}, {{2,1},{3}}, {{3,1},{2}}, {{3,2,1}}.

Alois P. Heinz, Table of n, a(n) for n = 0..5000
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

Cf. A000009, A000110, A063834, A258466, A259936, A279375, A279785, A279790.
Row sums of A330460 and of A330759.
This is a strict case of A374689, weak version A189076.
A011782 counts compositions, strict A032020.
A238130, A238279, A333755 count compositions by number of runs.
Cf. A188920, A238343, A274174, A373949, A374518, A376263.
Cf. A374631, A374632, A374634, A374635, A374686, A374688.

b:= proc(n, i, t) option remember; `if`(n>i*(i+1)/2, 0,
      `if`(n=0, combinat[bell](t), b(n, i-1, t)+
      `if`(i>n, 0, b(n-i, min(n-i, i-1), t+1))))
    end:
a:= n-> b(n$2, 0):
seq(a(n), n=0..50);  # Alois P. Heinz, Nov 07 2017

Table[Total[BellB[Length[#]]&/@Select[IntegerPartitions[n],UnsameQ@@#&]],{n,25}]
(* Second program: *)
b[n_, i_, t_] := b[n, i, t] = If[n > i (i + 1)/2, 0, If[n == 0, BellB[t], b[n, i - 1, t] + If[i > n, 0, b[n - i, Min[n - i, i - 1], t + 1]]]];
a[n_] := b[n, n, 0];
a /@ Range[0, 50] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)

A279375(n) <= a(n) <= A279790(n).

G.f.: Sum_{k>=0} Bell(k) * x^(k*(k + 1)/2) / Product_{j=1..k} (1 - x^j). - Ilya Gutkovskiy, Jan 28 2020

A381990 Number of integer partitions of n that cannot be partitioned into a set (or multiset) of sets with distinct sums.

Original entry on oeis.org

0, 0, 1, 1, 2, 2, 5, 6, 9, 13, 17, 23, 33, 42, 58, 76, 97, 127, 168, 208, 267, 343, 431, 536, 676, 836, 1045, 1283, 1582, 1949, 2395, 2895, 3549, 4298, 5216, 6281, 7569, 9104, 10953, 13078, 15652, 18627, 22207, 26325, 31278, 37002, 43708, 51597, 60807, 71533, 84031

Offset: 0

Gus Wiseman, Mar 15 2025

nonn

			The partition y = (3,3,3,2,2,1,1,1,1) has only one multiset partition into a set of sets, namely {{1},{3},{1,2},{1,3},{1,2,3}}, but this does not have distinct sums, so y is counted under a(17).
The a(2) = 1 through a(8) = 9 partitions:
  (11)  (111)  (22)    (2111)   (33)      (2221)     (44)
               (1111)  (11111)  (222)     (4111)     (2222)
                                (3111)    (22111)    (5111)
                                (21111)   (31111)    (22211)
                                (111111)  (211111)   (41111)
                                          (1111111)  (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)

More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Twice-partitions of this type are counted by A279785.
For constant instead of strict blocks see A381717, A381636, A381635, A381716, A381991.
Normal multiset partitions of this type are counted by A381718, see A116539.
These partitions are ranked by A381806, zeros of A381634 and A381633.
The complement is counted by A381992, ranked by A382075.
For distinct blocks we have A382078, complement A382077, unique A382079.
MM-numbers of these multiset partitions (strict blocks with distinct sum) are A382201.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A002846, A047966, A213427, A279786, A299202, A317142, A381870.
Cf. A293243, A293511, A358914, A381078, A381441, A381454.

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]]]];
Table[Length[Select[IntegerPartitions[n],Length[Select[mps[#],And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]==0&]],{n,0,10}]

a(21)-a(50) from Bert Dobbelaere, Mar 29 2025

A296120 Number of ways to choose a strict factorization of each factor in a strict factorization of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 6, 1, 3, 3, 4, 1, 6, 1, 6, 3, 3, 1, 13, 1, 3, 3, 6, 1, 12, 1, 7, 3, 3, 3, 14, 1, 3, 3, 13, 1, 12, 1, 6, 6, 3, 1, 25, 1, 6, 3, 6, 1, 13, 3, 13, 3, 3, 1, 31, 1, 3, 6, 11, 3, 12, 1, 6, 3, 12, 1, 36, 1, 3, 6, 6, 3, 12, 1, 25, 4, 3

Offset: 1

Gus Wiseman, Dec 05 2017

nonn

			The a(36) = 14 twice-factorizations:
(36), (4*9), (3*12), (2*18), (2*3*6),
(4)*(9), (3)*(12), (3)*(3*4), (3)*(2*6), (2)*(18), (2)*(3*6), (2)*(2*9),
(2)*(3)*(6), (2)*(3)*(2*3).

Cf. A000009, A005117, A045778, A050345, A279785, A281113, A294788, A296118, A296119, A296121.

sfs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sfs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}]];
Table[Sum[Times@@Length/@sfs/@fac,{fac,sfs[n]}],{n,100}]

Dirichlet g.f.: Product_{n > 1}(1 + A045778(n)/n^s).

A381870 Numbers whose prime indices have a unique multiset partition into sets with distinct sums.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 12, 13, 17, 18, 19, 20, 23, 28, 29, 31, 36, 37, 41, 43, 44, 45, 47, 50, 52, 53, 59, 61, 63, 67, 68, 71, 73, 75, 76, 79, 83, 89, 92, 97, 98, 99, 100, 101, 103, 107, 109, 113, 116, 117, 120, 124, 127, 131, 137, 139, 147, 148, 149, 151, 153

Offset: 1

Gus Wiseman, Mar 12 2025

nonn

First differs from A212166 in lacking 360.
First differs from A293511 in having 600.
Also numbers with a unique factorization into squarefree numbers 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, sum A056239.

			For n = 600 the unique multiset partition is {{1},{1,3},{1,2,3}}. The unique factorization is 2*10*30.

Without distinct block-sums we have A000961, ones in A050320.
More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
For distinct blocks instead of sums we have A293511, ones in A050326.
These are the positions of ones in A381633, see A381634, A381806, A381990.
Normal multiset partitions of this type are counted by A381718, see A279785.
For constant instead of strict blocks we have A381991, ones in A381635.
A001055 counts multiset partitions of prime indices, strict A045778.
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.
A317141 counts coarsenings of prime indices, refinements A300383.
A321469 counts factorizations with distinct sums of prime indices, ones A166684.
Cf. A000720, A001222, A005117, A066328, A293243, A299202, A300385.

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]}]];
Select[Range[100],Length[Select[sfacs[#],UnsameQ@@hwt/@#&]]==1&]

A300301 Number of ways to choose a partition, with odd parts, of each part of a partition of n into odd parts.

Original entry on oeis.org

1, 1, 1, 3, 3, 6, 10, 15, 21, 37, 56, 80, 127, 183, 280, 428, 616, 893, 1367, 1944, 2846, 4223, 6049, 8691, 12670, 18128, 25921, 37529, 53338, 75738, 108561, 153460, 216762, 308829, 433893, 612006, 864990, 1211097, 1697020, 2386016, 3331037, 4648229, 6503314

Offset: 0

Gus Wiseman, Mar 02 2018

nonn

			The a(6) = 10 twice-partitions using odd partitions: (5)(1), (3)(3), (113)(1), (3)(111), (111)(3), (3)(1)(1)(1), (11111)(1), (111)(111), (111)(1)(1)(1), (1)(1)(1)(1)(1)(1).

Alois P. Heinz, Table of n, a(n) for n = 0..5000

A300300(n) <= a(n) <= A279785(n)

Cf. A000009, A063834, A078408, A089259, A270995, A271619, A279374, A279375, A279790, A294617, A300300.

with(numtheory):
b:= proc(n) option remember; `if`(n=0, 1, add(add(
     `if`(d::odd, d, 0), d=divisors(j))*b(n-j), j=1..n)/n)
    end:
g:= proc(n, i) option remember; `if`(n=0 or i=1, 1,
      g(n, i-2)+`if`(i>n, 0, b(i)*g(n-i, i)))
    end:
a:= n-> g(n, n-1+irem(n,2)):
seq(a(n), n=0..50);  # Alois P. Heinz, Mar 05 2018

nn=50;
ser=Product[1/(1-PartitionsQ[n]x^n),{n,1,nn,2}];
Table[SeriesCoefficient[ser,{x,0,n}],{n,0,nn}]

O.g.f.: Product_{n odd} 1/(1 - A000009(n)x^n).

A358830 Number of twice-partitions of n into partitions with all different lengths.

Original entry on oeis.org

1, 1, 2, 4, 9, 15, 31, 53, 105, 178, 330, 555, 1024, 1693, 2991, 5014, 8651, 14242, 24477, 39864, 67078, 109499, 181311, 292764, 483775, 774414, 1260016, 2016427, 3254327, 5162407, 8285796, 13074804, 20812682, 32733603, 51717463, 80904644, 127305773, 198134675, 309677802

Offset: 0

Gus Wiseman, Dec 03 2022

nonn

A twice-partition of n is a sequence of integer partitions, one of each part of an integer partition of n.

			The a(1) = 1 through a(5) = 15 twice-partitions:
  (1)  (2)   (3)      (4)       (5)
       (11)  (21)     (22)      (32)
             (111)    (31)      (41)
             (11)(1)  (211)     (221)
                      (1111)    (311)
                      (11)(2)   (2111)
                      (2)(11)   (11111)
                      (21)(1)   (21)(2)
                      (111)(1)  (22)(1)
                                (3)(11)
                                (31)(1)
                                (111)(2)
                                (211)(1)
                                (111)(11)
                                (1111)(1)

The version for set partitions is A007837.
For sums instead of lengths we have A271619.
For constant instead of distinct lengths we have A306319.
The case of distinct sums also is A358832.
The version for multiset partitions of integer partitions is A358836.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A273873 counts strict trees.
Cf. A000009, A000219, A001970, A141199, A279375, A279785, A279790, A336342, A358334, A358831.

twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
Table[Length[Select[twiptn[n],UnsameQ@@Length/@#&]],{n,0,10}]

seq(n)={ local(Cache=Map());
  my(g=Vec(-1+1/prod(k=1, n, 1 - y*x^k + O(x*x^n))));
  my(F(m,r,b) = my(key=[m,r,b], z); if(!mapisdefined(Cache,key,&z),
  z = if(r<=0||m==0, r==0, self()(m-1, r, b) + sum(k=1, m, my(c=polcoef(g[m],k)); if(!bittest(b,k)&&c, c*self()(min(m,r-m), r-m, bitor(b, 1<Andrew Howroyd, Dec 31 2022

Terms a(26) and beyond from Andrew Howroyd, Dec 31 2022

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A358836 Number of multiset partitions of integer partitions of n with all distinct block sizes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A381806 Numbers that cannot be written as a product of squarefree numbers with distinct sums of prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A381992 Number of integer partitions of n that can be partitioned into sets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A294617 Number of ways to choose a set partition of a strict integer partition of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A381990 Number of integer partitions of n that cannot be partitioned into a set (or multiset) of sets with distinct sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A296120 Number of ways to choose a strict factorization of each factor in a strict factorization of n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A381870 Numbers whose prime indices have a unique multiset partition into sets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs