A279375 -id:A279375 - cp's OEIS frontend

A384319 Number of strict integer partitions of n with exactly two possible ways to choose disjoint strict partitions of each part.

0, 0, 0, 1, 1, 0, 2, 3, 1, 0, 4, 4, 4, 2, 0, 6, 7, 8, 8, 3, 2, 9, 9, 14, 13, 6, 7, 3, 15, 13, 20

Offset: 0

Gus Wiseman, May 28 2025

			For y = (5,4,2) we have choices ((5),(4),(2)) and ((5),(3,1),(2)), so y is counted under a(11).
The a(3) = 1 through a(11) = 4 partitions:
  (3)  (4)  .  (4,2)  (4,3)  (6,2)  .  (5,3,2)  (5,4,2)
               (5,1)  (5,2)            (5,4,1)  (6,3,2)
                      (6,1)            (6,3,1)  (7,3,1)
                                       (7,2,1)  (8,2,1)

The case of a unique choice is A179009, ranks A383707.
Choices of this type for each prime index are counted by A383706.
The non-strict version for at least one choice is A383708, ranks A382913.
The non-strict version for no choices is A383710, ranks A382912.
The non-strict version for more than one choice is A384317, ranks A384321.
The version for at least one choice is A384322, counted by A384318.
The non-strict version is A384323, ranks A384347.
These partitions are ranked by A384390.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non Look-and-Say or non section-sum partitions, ranks A351295 or A381433.
Cf. A098859, A279375, A299200, A317142, A357982, A381454, A383533, A383711, A384320.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Length[pof[#]]==2&]],{n,0,30}]

A294786 Number of ways to choose a set partition of a factorization of n into distinct factors greater than one such that different blocks have different products.

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 5, 1, 3, 3, 3, 1, 5, 1, 5, 3, 3, 1, 12, 1, 3, 3, 5, 1, 12, 1, 5, 3, 3, 3, 11, 1, 3, 3, 12, 1, 12, 1, 5, 5, 3, 1, 19, 1, 5, 3, 5, 1, 12, 3, 12, 3, 3, 1, 26, 1, 3, 5, 9, 3, 12, 1, 5, 3, 12, 1, 26, 1, 3, 5, 5, 3, 12, 1, 19, 3, 3

Offset: 1

Gus Wiseman, Nov 08 2017

nonn

			The a(36)=11 ways are:
(2)*(3)*(6),
(2)*(3*6), (2*6)*(3), (2)*(18), (3)*(12), (4)*(9),
(2*3*6), (2*18), (3*12), (4*9), (36).

Michael De Vlieger, Table of n, a(n) for n = 1..16384

Cf. A000258, A001055, A045778, A279375, A281113, A294787, A294788.

sfs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sfs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Join@@Function[fac,Select[sps[fac],UnsameQ@@Times@@@#&]]/@sfs[n]],{n,100}]

a(product of n distinct primes) = A000258(n).

a(prime^n) = A279375(n).

A330459 Number of set partitions of set-systems with total sum n.

Original entry on oeis.org

1, 1, 1, 4, 6, 11, 26, 42, 78, 148, 280, 481, 867, 1569, 2742, 4933, 8493, 14857, 25925, 44877, 77022, 132511, 226449, 385396, 657314, 1111115, 1875708, 3157379, 5309439, 8885889, 14861478, 24760339, 41162971, 68328959, 113099231, 186926116, 308230044

Offset: 0

Gus Wiseman, Dec 17 2019

nonn

Number of sets of disjoint nonempty sets of nonempty sets of positive integers with total sum n.

			The a(6) = 26 partitions:
  ((6))  ((15))      ((123))          ((1)(2)(12))
         ((24))      ((1)(14))        ((1))((2)(12))
         ((1)(5))    ((1)(23))        ((12))((1)(2))
         ((2)(4))    ((2)(13))        ((2))((1)(12))
         ((1))((5))  ((3)(12))        ((1))((2))((12))
         ((2))((4))  ((1))((14))
                     ((1))((23))
                     ((1)(2)(3))
                     ((2))((13))
                     ((3))((12))
                     ((1))((2)(3))
                     ((2))((1)(3))
                     ((3))((1)(2))
                     ((1))((2))((3))

Andrew Howroyd, Table of n, a(n) for n = 0..500

Cf. A007713, A050342, A050343, A279375, A279785, A283877, A294617, A330460, A330462, A323787-A323795, A330452-A330459.

ppl[n_,k_]:=Switch[k,0,{n},1,IntegerPartitions[n],_,Join@@Table[Union[Sort/@Tuples[ppl[#,k-1]&/@ptn]],{ptn,IntegerPartitions[n]}]];
Table[Length[Select[ppl[n,3],And[UnsameQ@@Join@@#,And@@UnsameQ@@@Join@@#]&]],{n,0,10}]

\\ here L is A000009 and BellP is A000110 as series.
L(n)={eta(x^2 + O(x*x^n))/eta(x + O(x*x^n))}
BellP(n)={serlaplace(exp( exp(x + O(x*x^n)) - 1))}
seq(n)={my(c=L(n), b=BellP(n), v=Vec(prod(k=1, n, (1 + x^k*y + O(x*x^n))^polcoef(c, k)))); vector(#v, n, my(r=v[n]); sum(k=0, n-1, polcoeff(b,k)*polcoef(r,k)))} \\ Andrew Howroyd, Dec 29 2019

a(n) = Sum_k A330462(n,k) * A000110(k).

Terms a(18) and beyond from Andrew Howroyd, Dec 29 2019

A330462 Triangle read by rows where T(n,k) is the number of k-element sets of nonempty sets of positive integers with total sum n.

Original entry on oeis.org

1, 0, 1, 0, 1, 0, 0, 2, 1, 0, 0, 2, 2, 0, 0, 0, 3, 4, 0, 0, 0, 0, 4, 6, 2, 0, 0, 0, 0, 5, 11, 3, 0, 0, 0, 0, 0, 6, 16, 8, 0, 0, 0, 0, 0, 0, 8, 25, 15, 1, 0, 0, 0, 0, 0, 0, 10, 35, 28, 4, 0, 0, 0, 0, 0, 0, 0, 12, 52, 46, 9, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Gus Wiseman, Dec 18 2019

			Triangle begins:
  1
  0  1
  0  1  0
  0  2  1  0
  0  2  2  0  0
  0  3  4  0  0  0
  0  4  6  2  0  0  0
  0  5 11  3  0  0  0  0
  0  6 16  8  0  0  0  0  0
  0  8 25 15  1  0  0  0  0  0
  0 10 35 28  4  0  0  0  0  0  0
  ...
Row n = 7 counts the following set-systems:
  {{7}}      {{1},{6}}      {{1},{2},{4}}
  {{1,6}}    {{2},{5}}      {{1},{2},{1,3}}
  {{2,5}}    {{3},{4}}      {{1},{3},{1,2}}
  {{3,4}}    {{1},{1,5}}
  {{1,2,4}}  {{1},{2,4}}
             {{2},{1,4}}
             {{2},{2,3}}
             {{3},{1,3}}
             {{4},{1,2}}
             {{1},{1,2,3}}
             {{1,2},{1,3}}

Andrew Howroyd, Table of n, a(n) for n = 0..1325 (rows n = 0..50)

Row sums are A050342.
Column k = 1 is A000009.
Cf. A001970, A050343, A063834, A270995, A271619, A279375, A279785, A283877, A294617, A326031, A330456, A330460, A330463, A360764.

ppl[n_,k_]:=Switch[k,0,{n},1,IntegerPartitions[n],_,Join@@Table[Union[Sort/@Tuples[ppl[#,k-1]&/@ptn]],{ptn,IntegerPartitions[n]}]];
Table[Length[Select[ppl[n,2],And[UnsameQ@@#,And@@UnsameQ@@@#,Length[#]==k]&]],{n,0,10},{k,0,n}]

L(n)={eta(x^2 + O(x*x^n))/eta(x + O(x*x^n))}
A(n)={my(c=L(n), v=Vec(prod(k=1, n, (1 + x^k*y + O(x*x^n))^polcoef(c,k)))); vector(#v, n, Vecrev(v[n],n))}
{my(T=A(12)); for(n=1, #T, print(T[n]))} \\ Andrew Howroyd, Dec 29 2019

G.f.: Product_{j>=1} (1 + y*x^j)^A000009(j). - Andrew Howroyd, Dec 29 2019

A384349 Heinz numbers of integer partitions with no proper way to choose disjoint strict partitions of each part.

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 24, 27, 28, 30, 32, 36, 40, 42, 44, 45, 48, 50, 52, 54, 56, 60, 63, 64, 66, 68, 70, 72, 75, 76, 78, 80, 81, 84, 88, 90, 92, 96, 98, 99, 100, 104, 105, 108, 110, 112, 116, 117, 120, 124, 125, 126, 128, 132, 135

Offset: 1

Gus Wiseman, Jun 03 2025

nonn

By "proper" we exclude the case of all singletons, which is disjoint when n is squarefree.

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The prime indices of 102 are {1,2,7}, which has proper disjoint choice ((1),(2),(3,4)), so 102 is not in the sequence.
The terms together with their prime indices begin:
     1: {}           27: {2,2,2}        63: {2,2,4}
     2: {1}          28: {1,1,4}        64: {1,1,1,1,1,1}
     3: {2}          30: {1,2,3}        66: {1,2,5}
     4: {1,1}        32: {1,1,1,1,1}    68: {1,1,7}
     6: {1,2}        36: {1,1,2,2}      70: {1,3,4}
     8: {1,1,1}      40: {1,1,1,3}      72: {1,1,1,2,2}
     9: {2,2}        42: {1,2,4}        75: {2,3,3}
    10: {1,3}        44: {1,1,5}        76: {1,1,8}
    12: {1,1,2}      45: {2,2,3}        78: {1,2,6}
    14: {1,4}        48: {1,1,1,1,2}    80: {1,1,1,1,3}
    15: {2,3}        50: {1,3,3}        81: {2,2,2,2}
    16: {1,1,1,1}    52: {1,1,6}        84: {1,1,2,4}
    18: {1,2,2}      54: {1,2,2,2}      88: {1,1,1,5}
    20: {1,1,3}      56: {1,1,1,4}      90: {1,2,2,3}
    24: {1,1,1,2}    60: {1,1,2,3}      92: {1,1,9}

The non-proper version appears to be A382912, counted by A383710.
The non-proper complement appears to be A382913, counted by A383708.
The complement is A384321, counted by A384317.
These partitions are counted by A384348.
These are the positions of 0 in A384389.
The case of a unique proper choice is A384390, counted by A384319.
A048767 is the Look-and-Say transform, fixed points A048768.
A056239 adds up prime indices, row sums of A112798.
A179009 counts maximally refined strict partitions, ranks A383707.
A279790 and A279375 count ways to choose disjoint strict partitions of prime indices.
Cf. A122111, A130091, A317142, A326080, A351294, A357982, A381454, A382525, A383706, A384320, A384322.

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

A330452 Number of set partitions of strict multiset partitions of integer partitions of n.

Original entry on oeis.org

1, 1, 2, 7, 13, 34, 81, 175, 403, 890, 1977, 4262, 9356, 19963, 42573, 90865, 191206, 401803, 837898, 1744231, 3607504, 7436628, 15254309, 31185686, 63552725, 128963236, 260933000, 526140540, 1057927323, 2120500885, 4239012067, 8449746787, 16799938614

Offset: 0

Gus Wiseman, Dec 16 2019

nonn

Number of sets of disjoint nonempty sets of nonempty multisets of positive integers with total sum n.

			The a(4) = 13 partitions:
  ((4))  ((22))  ((31))      ((211))      ((1111))
                 ((1)(3))    ((1)(21))    ((1)(111))
                 ((1))((3))  ((2)(11))    ((1))((111))
                             ((1))((21))
                             ((2))((11))

Andrew Howroyd, Table of n, a(n) for n = 0..500

Cf. A001970, A007713, A050343, A063834, A089259, A261049, A271619, A279375, A294617, A318565, A323787-A323795, A330452-A330459, A330460.

ppl[n_,k_]:=Switch[k,0,{n},1,IntegerPartitions[n],_,Join@@Table[Union[Sort/@Tuples[ppl[#,k-1]&/@ptn]],{ptn,IntegerPartitions[n]}]];
Table[Length[Select[ppl[n,3],UnsameQ@@Join@@#&]],{n,0,10}]

\\ here BellP is A000110 as series.
BellP(n)={serlaplace(exp( exp(x + O(x*x^n)) - 1))}
seq(n)={my(b=BellP(n), v=Vec(prod(k=1, n, (1 + x^k*y + O(x*x^n))^numbpart(k)))); vector(#v, n, my(r=v[n]); sum(k=0, n-1, polcoeff(b,k)*polcoef(r,k)))} \\ Andrew Howroyd, Dec 29 2019

a(n) = Sum_{0 <= k <= n} A330463(n,k) * A000110(k).

Terms a(18) and beyond from Andrew Howroyd, Dec 29 2019

A330460 Triangle read by rows where T(n,k) is the number of set partitions with k blocks and total sum n.

Original entry on oeis.org

1, 0, 1, 0, 1, 0, 0, 2, 1, 0, 0, 2, 1, 0, 0, 0, 3, 2, 0, 0, 0, 0, 4, 5, 1, 0, 0, 0, 0, 5, 6, 1, 0, 0, 0, 0, 0, 6, 9, 2, 0, 0, 0, 0, 0, 0, 8, 13, 3, 0, 0, 0, 0, 0, 0, 0, 10, 23, 10, 1, 0, 0, 0, 0, 0, 0, 0, 12, 27, 11, 1, 0, 0, 0, 0, 0, 0, 0, 0, 15, 40, 19, 2, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Gus Wiseman, Dec 18 2019

			Triangle begins:
  1
  0  1
  0  1  0
  0  2  1  0
  0  2  1  0  0
  0  3  2  0  0  0
  0  4  5  1  0  0  0
  0  5  6  1  0  0  0  0
  0  6  9  2  0  0  0  0  0
  0  8 13  3  0  0  0  0  0  0
  0 10 23 10  1  0  0  0  0  0  0
  0 12 27 11  1  0  0  0  0  0  0  0
  0 15 40 19  2  0  0  0  0  0  0  0  0
Row n = 8 counts the following set partitions:
  {{8}}      {{1},{7}}    {{1},{2},{5}}
  {{3,5}}    {{2},{6}}    {{1},{3},{4}}
  {{2,6}}    {{3},{5}}
  {{1,7}}    {{1},{3,4}}
  {{1,3,4}}  {{1},{2,5}}
  {{1,2,5}}  {{2},{1,5}}
             {{3},{1,4}}
             {{4},{1,3}}
             {{5},{1,2}}

Andrew Howroyd, Table of n, a(n) for n = 0..1325 (rows n=0..50)

Row sums are A294617.
Column k = 1 is A000009 (n > 0).
Cf. A000110, A008277, A050342, A060016, A072706, A270995, A271619, A279375, A279785, A326701, A330459, A330462, A330463, A330759.

b:= proc(n, i, k) option remember; `if`(i*(i+1)/2 k*
         b(n-i, t, k)+b(n-i, t, k+1))(min(n-i, i-1))))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..n))(b(n$2, 0)):
seq(T(n), n=0..15);  # Alois P. Heinz, Dec 29 2019

ppl[n_,k_]:=Switch[k,0,{n},1,IntegerPartitions[n],_,Join@@Table[Union[Sort/@Tuples[ppl[#,k-1]&/@ptn]],{ptn,IntegerPartitions[n]}]];
Table[Length[Select[ppl[n,2],Length[#]==k&&And[UnsameQ@@#,UnsameQ@@Join@@#]&]],{n,0,10},{k,0,n}]
(* Second program: *)
b[n_, i_, k_] := b[n, i, k] = If[i(i+1)/2 < n, 0, If[n == 0, x^k, b[n, i-1, k] + Function[t, k*b[n-i, t, k] + b[n-i, t, k + 1]][Min[n-i, i-1]]]];
T[n_] := PadRight[CoefficientList[b[n, n, 0], x], n + 1];
T /@ Range[0, 15] // Flatten (* Jean-François Alcover, May 16 2021, after Alois P. Heinz *)

A(n)={my(v=Vec(prod(k=1, n, 1 + x^k*y + O(x*x^n)))); vector(#v, n, my(p=v[n]); vector(n, k, sum(i=k, n, polcoef(p,i-1)*stirling(i-1, k-1, 2))))}
{my(T=A(12)); for(n=1, #T, print(T[n]))} \\ Andrew Howroyd, Dec 29 2019

T(n,k) = Sum_{k <= i <= n} A060016(n,i) * A008277(i,k).

For n > 0, T(n,2) = Sum_{k = 1..n} (2^(k - 1) -1) * A060016(n,k).

A384389 Number of proper ways to choose disjoint strict integer partitions of each prime index of n.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 2, 0, 3, 0, 0, 0, 4, 0, 5, 0, 1, 1, 7, 0, 2, 1, 0, 0, 9, 0, 11, 0, 1, 2, 1, 0, 14, 2, 1, 0, 17, 0, 21, 0, 0, 4, 26, 0, 2, 0, 2, 0, 31, 0, 2, 0, 3, 4, 37, 0, 45, 6, 0, 0, 3, 0, 53, 0, 4, 0, 63, 0, 75, 7, 0, 0, 2, 0, 88, 0, 0, 9

Offset: 1

Gus Wiseman, Jun 01 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.

By "proper" we exclude the case of all singletons, which is disjoint when n is squarefree.

			The prime indices of 65 are {3,6}, and we have proper choices: ((3),(5,1)), ((3),(4,2)), ((2,1),(6)). Hence a(65) = 3.
The prime indices of 175 are {3,3,4}, and we have choices: ((3),(2,1),(4)), ((2,1),(3),(4)), both already proper. Hence a(175) = 2.

Without disjointness we have A357982 - 1, non-strict version A299200 - 1.
This is the proper case of A383706, conjugate version A384005.
Positions of positive terms are A384321.
Positions of 0 are A384349.
Positions of 1 are A384390.
Positions of terms > 1 are A384393.
The conjugate version is A384394.
Positions of first appearances are A384396.
A000041 counts integer partitions, strict A000009.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A239455 counts Look-and-Say partitions, ranks A351294
A351293 counts non-Look-and-Say partitions, ranks A351295.
Cf. A382912, A383710, A383711, A382913, A383708, A383533.
Cf. A179009, A279375, A279790, A381454, A382525, A384322, A384347.

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

a(prime(n)) = A000009(n) - 1.

A384393 Heinz numbers of integer partitions with more than one proper way to choose disjoint strict partitions of each part.

Original entry on oeis.org

11, 13, 17, 19, 23, 25, 29, 31, 34, 37, 38, 41, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 62, 65, 67, 69, 71, 73, 74, 77, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 115, 118, 119, 121, 122, 123, 127, 129, 131, 133, 134

Offset: 1

Gus Wiseman, Jun 02 2025

nonn

By "proper" we exclude the case of all singletons, which is disjoint when n is squarefree.

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The prime indices of 275 are {3,3,5}, with a total of 2 proper choices: ((3),(2,1),(5)) and ((2,1),(3),(5)), so 275 is in the sequence.
The terms together with their prime indices begin:
    11: {5}      51: {2,7}      82: {1,13}
    13: {6}      53: {16}       83: {23}
    17: {7}      55: {3,5}      85: {3,7}
    19: {8}      57: {2,8}      86: {1,14}
    23: {9}      58: {1,10}     87: {2,10}
    25: {3,3}    59: {17}       89: {24}
    29: {10}     61: {18}       91: {4,6}
    31: {11}     62: {1,11}     93: {2,11}
    34: {1,7}    65: {3,6}      94: {1,15}
    37: {12}     67: {19}       95: {3,8}
    38: {1,8}    69: {2,9}      97: {25}
    41: {13}     71: {20}      101: {26}
    43: {14}     73: {21}      103: {27}
    46: {1,9}    74: {1,12}    106: {1,16}
    47: {15}     77: {4,5}     107: {28}
    49: {4,4}    79: {22}      109: {29}

Without "proper" we get A384321 (strict A384322), counted by A384317 (strict A384318).
The case of no choices is A384349, counted by A384348.
These are positions of terms > 1 in A384389.
The case of a unique proper choice is A384390, counted by A384319.
Partitions of this type are counted by A384395.
A048767 is the Look-and-Say transform, fixed points A048768, counted by A217605.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A239455 counts Look-and-Say partitions, ranks A351294 or A381432.
A279790 and A279375 count ways to choose disjoint strict partitions of prime indices.
A351293 counts non-Look-and-Say partitions, ranks A351295 or A381433.
Cf. A382912, A383710, A382913, A383708, A383533.
Cf. A179009, A357982, A381454, A382525, A383706, A383707, A384320, A384323.

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

A330461 Array read by antidiagonals where A(n,k) is the number of multiset partitions with k levels that are strict at all levels and have total sum n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 3, 4, 4, 1, 1, 1, 1, 4, 7, 7, 5, 1, 1, 1, 1, 5, 12, 14, 11, 6, 1, 1, 1, 1, 6, 19, 29, 25, 16, 7, 1, 1, 1, 1, 8, 30, 57, 60, 41, 22, 8, 1, 1, 1, 1, 10, 49, 110, 141, 111, 63, 29, 9, 1, 1, 1

Offset: 0

Gus Wiseman, Dec 18 2019

			Array begins:
       k=0 k=1 k=2 k=3 k=4 k=5 k=6
      -----------------------------
  n=0:  1   1   1   1   1   1   1
  n=1:  1   1   1   1   1   1   1
  n=2:  1   1   1   1   1   1   1
  n=3:  1   2   3   4   5   6   7
  n=4:  1   2   4   7  11  16  22
  n=5:  1   3   7  14  25  41  63
  n=6:  1   4  12  29  60 111 189
For example, the A(5,3) = 14 partitions are:
  {{5}}      {{1}}{{4}}
  {{14}}     {{2}}{{3}}
  {{23}}     {{1}}{{13}}
  {{1}{4}}   {{2}}{{12}}
  {{2}{3}}   {{1}}{{1}{3}}
  {{1}{13}}  {{2}}{{1}{2}}
  {{2}{12}}  {{1}}{{1}{12}}

Andrew Howroyd, Table of n, a(n) for n = 0..1325

Columns are A000012 (k = 0), A000009 (k = 1), A050342 (k = 2), A050343 (k = 3), A050344 (k = 4).
The non-strict version is A290353.
Cf. A001970, A004111, A007713, A060016, A273873, A279375, A279785, A294617, A306186, A323718, A323790, A330462.

spl[n_,0]:={n};
spl[n_,k_]:=Select[Join@@Table[Union[Sort/@Tuples[spl[#,k-1]&/@ptn]],{ptn,IntegerPartitions[n]}],UnsameQ@@#&];
Table[Length[spl[n-k,k]],{n,0,10},{k,0,n}]

WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v,n,(-1)^(n-1)/n))))-1,-#v)}
M(n, k=n)={my(L=List(), v=vector(n,i,1)); listput(L, concat([1], v)); for(j=1, k, v=WeighT(v); listput(L, concat([1], v))); Mat(Col(L))~}
{ my(A=M(7)); for(i=1, #A, print(A[i,])) } \\ Andrew Howroyd, Dec 31 2019

Column k is the k-th weigh transform of the all-ones sequence. The weigh transform of a sequence b has generating function Product_{i > 0} (1 + x^i)^b(i).

cp's OEIS Frontend

A384319 Number of strict integer partitions of n with exactly two possible ways to choose disjoint strict partitions of each part.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A294786 Number of ways to choose a set partition of a factorization of n into distinct factors greater than one such that different blocks have different products.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A330459 Number of set partitions of set-systems with total sum n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A330462 Triangle read by rows where T(n,k) is the number of k-element sets of nonempty sets of positive integers with total sum n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A384349 Heinz numbers of integer partitions with no proper way to choose disjoint strict partitions of each part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A330452 Number of set partitions of strict multiset partitions of integer partitions of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A330460 Triangle read by rows where T(n,k) is the number of set partitions with k blocks and total sum n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A384389 Number of proper ways to choose disjoint strict integer partitions of each prime index of n.

Views

Author