A279786 -id:A279786 - cp's OEIS frontend

A050361 Number of factorizations into distinct prime powers greater than 1.

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

Offset: 1

Christian G. Bower, Oct 15 1999

a(n) depends only on prime signature of n (cf. A025487). So a(24) = a(375) since 24 = 2^3*3 and 375 = 3*5^3 both have prime signature (3,1).

The number of unordered factorizations of n into 1 and exponentially odd prime powers, i.e., p^e where p is a prime and e is odd (A246551). - Amiram Eldar, Jun 12 2025

			From _Gus Wiseman_, Jul 30 2022: (Start)
The A000688(216) = 9 factorizations of 216 into prime powers are:
  (2*2*2*3*3*3)
  (2*2*2*3*9)
  (2*2*2*27)
  (2*3*3*3*4)
  (2*3*4*9)
  (2*4*27)
  (3*3*3*8)
  (3*8*9)
  (8*27)
Of these, the a(216) = 4 strict cases are:
  (2*3*4*9)
  (2*4*27)
  (3*8*9)
  (8*27)
(End)

Antti Karttunen, Table of n, a(n) for n = 1..100000 (first 10000 terms from Reinhard Zumkeller)
Index entries for sequences computed from exponents in factorization of n.

Cf. A000009, A050360, A050362, A050363, A050364, A101296, A246551.
Cf. A124010.
This is the strict case of A000688.
Positions of 1's are A004709, complement A046099.
The case of primes (instead of prime-powers) is A008966, non-strict A000012.
The non-strict additive version allowing 1's A023893, ranked by A302492.
The non-strict additive version is A023894, ranked by A355743.
The additive version (partitions) is A054685, ranked by A356065.
The additive version allowing 1's is A106244, ranked by A302496.
A001222 counts prime-power divisors.
A005117 lists all squarefree numbers.
A034699 gives maximal prime-power divisor.
A246655 lists all prime-powers (A000961 includes 1), towers A164336.
A296131 counts twice-factorizations of type PQR, non-strict A295935.
Cf. A001970, A002110, A025487, A055887, A063834, A076610, A085970, A279786, A302590, A302601, A354911, A355742.

a050361 = product . map a000009 . a124010_row
-- Reinhard Zumkeller, Aug 28 2014

A050361 := proc(n)
    local a,f;
    if n = 1 then
        1;
    else
        a := 1 ;
        for f in ifactors(n)[2] do
            a := a*A000009(op(2,f)) ;
        end do:
    end if;
end proc: # R. J. Mathar, May 25 2017

Table[Times @@ PartitionsQ[Last /@ FactorInteger[n]], {n, 99}] (* Arkadiusz Wesolowski, Feb 27 2017 *)

A000009(n,k=(n-!(n%2))) = if(!n,1,my(s=0); while(k >= 1, if(k<=n, s += A000009(n-k,k)); k -= 2); (s));
A050361(n) = factorback(apply(A000009,factor(n)[,2])); \\ Antti Karttunen, Nov 17 2019

Dirichlet g.f.: Product_{n is a prime power >1}(1 + 1/n^s).
Multiplicative with a(p^e) = A000009(e).
a(A002110(k))=1.
a(n) = A050362(A101296(n)). - R. J. Mathar, May 26 2017
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = Product_{p prime} f(1/p) = 1.26020571070524171076..., where f(x) = (1-x) * Product_{k>=1} (1 + x^k). - Amiram Eldar, Oct 03 2023

A107742 G.f.: Product_{j>=1} Product_{i>=1} (1 + x^(i*j)).

Original entry on oeis.org

1, 1, 2, 4, 6, 10, 17, 25, 38, 59, 86, 125, 184, 260, 369, 524, 726, 1005, 1391, 1894, 2576, 3493, 4687, 6272, 8373, 11090, 14647, 19294, 25265, 32991, 42974, 55705, 72025, 92895, 119349, 152965, 195592, 249280, 316991, 402215, 508932, 642598, 809739, 1017850, 1276959, 1599015, 1997943, 2491874, 3102477, 3855165, 4782408, 5922954

Offset: 0

Vladeta Jovovic, Jun 11 2005

From Gus Wiseman, Sep 13 2022: (Start)
Also the number of multiset partitions of integer partitions of n into intervals, where an interval is a set of positive integers with all differences of adjacent elements equal to 1. For example, the a(1) = 1 through a(4) = 6 multiset partitions are:
  {{1}}  {{2}}      {{3}}          {{4}}
         {{1},{1}}  {{1,2}}        {{1},{3}}
                    {{1},{2}}      {{2},{2}}
                    {{1},{1},{1}}  {{1},{1,2}}
                                   {{1},{1},{2}}
                                   {{1},{1},{1},{1}}
Intervals are counted by A001227, ranked by A073485.
The initial version is A007294.
The strict version is A327731.
The version for gapless multisets instead of intervals is A356941.
The case of strict partitions is A356957.
Also the number of multiset partitions of integer partitions of n into distinct constant blocks. For example, the a(1) = 1 through a(4) = 6 multiset partitions are:
  {{1}}  {{2}}    {{3}}        {{4}}
         {{1,1}}  {{1,1,1}}    {{2,2}}
                  {{1},{2}}    {{1},{3}}
                  {{1},{1,1}}  {{1,1,1,1}}
                               {{2},{1,1}}
                               {{1},{1,1,1}}
Constant multisets are counted by A000005, ranked by A000961.
The non-strict version is A006171.
The unlabeled version is A089259.
The non-constant block version is A261049.
The version for twice-partitions is A279786, factorizations A296131.
Also the number of multiset partitions of integer partitions of n into constant blocks of odd length. For example, a(1) = 1 through a(4) = 6 multiset partitions are:
  {{1}}  {{2}}      {{3}}          {{4}}
         {{1},{1}}  {{1,1,1}}      {{1},{3}}
                    {{1},{2}}      {{2},{2}}
                    {{1},{1},{1}}  {{1},{1,1,1}}
                                   {{1},{1},{2}}
                                   {{1},{1},{1},{1}}
The strict version is A327731 (also).
(End)

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
Lida Ahmadi, Ricardo Gómez Aíza, and Mark Daniel Ward, A unified treatment of families of partition functions, La Matematica (2024). Preprint available as arXiv:2303.02240 [math.CO], 2023.
N. J. A. Sloane, Transforms

Cf. A006171, A109386, A219554, A280473, A280486, A288007.
Product_{k>=1} (1 + x^k)^sigma_m(k): this sequence (m=0), A192065 (m=1), A288414 (m=2), A288415 (m=3), A301548 (m=4), A301549 (m=5), A301550 (m=6), A301551 (m=7), A301552 (m=8).
A000041 counts integer partitions, strict A000009.
A000110 counts set partitions.
A072233 counts partitions by sum and length.
Cf. A001055, A001970, A011782, A055887, A061260, A270995, A279784, A294617, A304969.

nmax = 50; CoefficientList[Series[Product[(1+x^(i*j)), {i, 1, nmax}, {j, 1, nmax/i}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jan 04 2017 *)
nmax = 50; CoefficientList[Series[Product[(1+x^k)^DivisorSigma[0, k], {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 23 2018 *)
nmax = 50; s = 1 + x; Do[s *= Sum[Binomial[DivisorSigma[0, k], j]*x^(j*k), {j, 0, nmax/k}]; s = Expand[s]; s = Take[s, Min[nmax + 1, Exponent[s, x] + 1, Length[s]]];, {k, 2, nmax}]; Take[CoefficientList[s, x], nmax + 1] (* Vaclav Kotesovec, Aug 28 2018 *)
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]]]];
chQ[y_]:=Length[y]<=1||Union[Differences[y]]=={1};
Table[Length[Select[Join@@mps/@IntegerPartitions[n],And@@chQ/@#&]],{n,0,5}] (* Gus Wiseman, Sep 13 2022 *)

a(n)=polcoeff(prod(k=1,n,prod(j=1,n\k,1+x^(j*k)+x*O(x^n))),n) /* Paul D. Hanna */

N=66;  x='x+O('x^N); gf=1/prod(j=0,N, eta(x^(2*j+1))); gf=prod(j=1,N,(1+x^j)^numdiv(j)); Vec(gf) /* Joerg Arndt, May 03 2008 */

{a(n)=if(n==0,1,polcoeff(exp(sum(m=1,n,sigma(m)*x^m/(1-x^(2*m)+x*O(x^n))/m)),n))} /* Paul D. Hanna, Mar 28 2009 */

Euler transform of A001227.
Weigh transform of A000005.
G.f. satisfies: log(A(x)) = Sum_{n>=1} A109386(n)/n*x^n, where A109386(n) = Sum_{d|n} d*Sum_{m|d} (m mod 2). - Paul D. Hanna, Jun 26 2005
G.f.: A(x) = exp( Sum_{n>=1} sigma(n)*x^n/(1-x^(2n)) /n ). - Paul D. Hanna, Mar 28 2009
G.f.: Product_{n>=1} Q(x^n) where Q(x) is the g.f. of A000009. - Joerg Arndt, Feb 27 2014
a(0) = 1, a(n) = (1/n)*Sum_{k=1..n} A109386(k)*a(n-k) for n > 0. - Seiichi Manyama, Jun 04 2017
Conjecture: log(a(n)) ~ Pi*sqrt(n*log(n)/6). - Vaclav Kotesovec, Aug 29 2018

More terms from Paul D. Hanna, Jun 26 2005

A006951 Number of conjugacy classes in GL(n,2).

Original entry on oeis.org

1, 1, 3, 6, 14, 27, 60, 117, 246, 490, 1002, 1998, 4053, 8088, 16284, 32559, 65330, 130626, 261726, 523374, 1047690, 2095314, 4192479, 8384808, 16773552, 33546736, 67101273, 134202258, 268420086, 536839446, 1073710914, 2147420250, 4294904430, 8589807438

Offset: 0

N. J. A. Sloane

nonn

Unlabeled permutations of sets. - Christian G. Bower, Jan 29 2004
From Joerg Arndt, Jan 02 2013: (Start)
Set q=2 and f(m)=q^(m-1)*(q-1), then a(n) is the sum over all partitions P of n over all products Product_{k=1..L} f(m_k) where L is the number of different parts in the partition P=[p_1^m_1, p_2^m_2, ..., p_L^m_L], see the Macdonald reference.
Setting q to a prime power gives the sequence "Number of conjugacy classes in GL(n,q)":
q=3: A006952, q=4: A049314, q=5: A049315, q=7: A049316, q=8: A182603,
q=9: A182604, q=11: A182605, q=13: A182606, q=16: A182607, q=17: A182608,
q=19: A182609, q=23: A182610, q=25: A182611, q=27: A182612.
Sequences where q is not a prime power are:
q=6: A221578, q=10: A221579, q=12: A221580,
q=14: A221581, q=15: A221582, q=18: A221583, q=20: A221584.
(End)
From Gus Wiseman, Jan 21 2019: (Start)
Also the number of ways to split an integer partition of n into consecutive constant subsequences. For example, the a(5) = 27 ways (subsequences shown as rows) are:
  5   11111
.
  4   3   3    22   2     1111   1      111   11
  1   2   11   1    111   1      1111   11    111
.
  3   2   2    2    111   1     1     11   11   1
  1   2   11   1    1     111   1     11   1    11
  1   1   1    11   1     1     111   1    11   11
.
  2   11   1    1    1
  1   1    11   1    1
  1   1    1    11   1
  1   1    1    1    11
.
  1
  1
  1
  1
  1
(End)

			For the 5 partitions of 4 (namely [1^4]; [2,1^2]; [2^2]; [3,1]; [4]) we have
(f(m) = 2^(m-1)*(2-1) = 2^(m-1) and)
f([1^4]) = 2^3 = 8,
f([2,1^2]) = 1*2^1 = 2,
f([2^2]) = 2^1 = 2,
f([3,1]) = 1*1 = 1,
f([4]) = 1,
the sum is 8+2+2+1+1 = 14 = a(4).
- _Joerg Arndt_, Jan 02 2013

W. D. Smith, personal communication.
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 = 0..1000
W. Feit and N. J. Fine, Pairs of commuting matrices over a finite field, Duke Math. Journal, 27 (1960) 91-94.
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 161
I. G. Macdonald, Numbers of conjugacy classes in some finite classical groups, Bulletin of the Australian Mathematical Society, vol.23, no.01, pp.23-48, (February-1981).
N. J. A. Sloane, Transforms

Cf. A006952, A049314, A049315, A049316, A070933, A264685, A264687.
Column k=0 of A218698. - Alois P. Heinz, Nov 04 2012
Cf. A100471, A100883, A279784, A279786, A323433, A323582, A323583.

/* The program does not work for n>19: */
[1] cat [NumberOfClasses(GL(n,2)): n in [1..19]]; // Sergei Haller (sergei(AT)sergei-haller.de), Dec 21 2006; edited by Vincenzo Librandi Jan 24 2013

with(numtheory):
b:= n-> add(phi(d)*2^(n/d), d=divisors(n))/n-1:
a:= proc(n) option remember; `if`(n=0, 1,
       add(add(d*b(d), d=divisors(j)) *a(n-j), j=1..n)/n)
    end:
seq(a(n), n=0..40);  # Alois P. Heinz, Oct 20 2012

b[n_] := Sum[EulerPhi[d]*2^(n/d), {d, Divisors[n]}]/n-1; a[n_] := a[n] = If[n == 0, 1, Sum[Sum[d*b[d], {d, Divisors[j]}]*a[n-j], {j, 1, n}]/n]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Feb 17 2014, after Alois P. Heinz *)
Table[Sum[2^(Length[ptn]-Length[Split[ptn]]),{ptn,IntegerPartitions[n]}],{n,30}] (* Gus Wiseman, Jan 21 2019 *)

N=66; x='x+O('x^N);
gf=prod(n=1,N, (1-x^n)/(1-2*x^n)  );
v=Vec(gf)
/* Joerg Arndt, Jan 02 2013 */

G.f.: Product_{n>=1} (1-x^n)/(1-2*x^n). - Joerg Arndt, Jan 02 2013
The number a(n) of conjugacy classes in the group GL(n, q) is the coefficient of t^n in Product_{k>=1} (1-t^k)/(1-q*t^k). - Noam Katz (noamkj(AT)hotmail.com), Mar 30 2001
Euler transform of A008965. - Christian G. Bower, Jan 29 2004
a(n) ~ 2^n - (1+sqrt(2) + (-1)^n*(1-sqrt(2))) * 2^(n/2-1). - Vaclav Kotesovec, Nov 21 2015
G.f.: exp(Sum_{k>=1} ( Sum_{d|k} d*(2^(k/d) - 1) ) * x^k/k). - Ilya Gutkovskiy, Sep 27 2018

More terms from Christian G. Bower, Jan 29 2004

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

A323583 Number of ways to split an integer partition of n into consecutive subsequences.

Original entry on oeis.org

1, 1, 3, 7, 17, 37, 83, 175, 373, 773, 1603, 3275, 6693, 13557, 27447, 55315, 111397, 223769, 449287, 900795, 1805465, 3615929, 7240327, 14491623, 29001625, 58027017, 116093259, 232237583, 464558201, 929224589, 1858623819, 3717475031, 7435314013, 14871103069

Offset: 0

Gus Wiseman, Jan 19 2019

nonn

			The a(3) = 7 ways to split an integer partition of 3 into consecutive subsequences are (3), (21), (2)(1), (111), (11)(1), (1)(11), (1)(1)(1).

Cf. A006951, A070933, A100883, A279784, A279786, A323433, A323582.

b:= proc(n, i) option remember; `if`(n=0, 1/2, `if`(i<1, 0,
      b(n, i-1) +`if`(i>n, 0, 2*b(n-i, i))))
    end:
a:= n-> ceil(b(n$2)):
seq(a(n), n=0..33);  # Alois P. Heinz, Jan 01 2023

Table[Sum[2^(Length[ptn]-1),{ptn,IntegerPartitions[n]}],{n,40}]
(* Second program: *)
(1/2) CoefficientList[1 - 1/QPochhammer[2, x] + O[x]^100 , x] (* Jean-François Alcover, Jan 02 2022, after Vladimir Reshetnikov in A070933 *)

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

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

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

A336127 Number of ways to split a composition of n into contiguous subsequences with different sums.

Original entry on oeis.org

1, 1, 2, 8, 16, 48, 144, 352, 896, 2432, 7168, 16896, 46080, 114688, 303104, 843776, 2080768, 5308416, 13762560, 34865152, 87818240, 241172480, 583008256, 1503657984, 3762290688, 9604956160, 23689428992, 60532195328, 156397207552, 385137770496, 967978254336

Offset: 0

Gus Wiseman, Jul 09 2020

nonn

A composition of n is a finite sequence of positive integers summing to n.

			The a(0) = 1 through a(4) = 16 splits:
  ()  (1)  (2)    (3)        (4)
           (1,1)  (1,2)      (1,3)
                  (2,1)      (2,2)
                  (1,1,1)    (3,1)
                  (1),(2)    (1,1,2)
                  (2),(1)    (1,2,1)
                  (1),(1,1)  (1),(3)
                  (1,1),(1)  (2,1,1)
                             (3),(1)
                             (1,1,1,1)
                             (1),(1,2)
                             (1),(2,1)
                             (1,2),(1)
                             (2,1),(1)
                             (1),(1,1,1)
                             (1,1,1),(1)

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

The version with equal instead of different sums is A074854.
Starting with a strict composition gives A336128.
Starting with a partition gives A336131.
Starting with a strict partition gives A336132
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Cf. A006951, A063834, A279786, A305551, A316245, A317715, A323433, A336130, A336134, A336135.

splits[dom_]:=Append[Join@@Table[Prepend[#,Take[dom,i]]&/@splits[Drop[dom,i]],{i,Length[dom]-1}],{dom}];
Table[Sum[Length[Select[splits[ctn],UnsameQ@@Total/@#&]],{ctn,Join@@Permutations/@IntegerPartitions[n]}],{n,0,10}]

a(n) = Sum_{k=0..n} 2^(n-k) k! A008289(n,k).

A336135 Number of ways to split an integer partition of n into contiguous subsequences with strictly decreasing sums.

Original entry on oeis.org

1, 1, 2, 5, 8, 16, 29, 50, 79, 135, 213, 337, 522, 796, 1191, 1791, 2603, 3799, 5506, 7873, 11154, 15768, 21986, 30565, 42218, 57917, 78968, 107399, 144932, 194889, 261061, 347773, 461249, 610059, 802778, 1053173, 1377325, 1793985, 2329009, 3015922, 3891142

Offset: 0

Gus Wiseman, Jul 11 2020

nonn

			The a(1) = 1 through a(5) = 16 splittings:
  (1)  (2)    (3)        (4)          (5)
       (1,1)  (2,1)      (2,2)        (3,2)
              (1,1,1)    (3,1)        (4,1)
              (2),(1)    (2,1,1)      (2,2,1)
              (1,1),(1)  (3),(1)      (3,1,1)
                         (1,1,1,1)    (3),(2)
                         (2,1),(1)    (4),(1)
                         (1,1,1),(1)  (2,1,1,1)
                                      (2,2),(1)
                                      (3),(1,1)
                                      (3,1),(1)
                                      (1,1,1,1,1)
                                      (2,1),(1,1)
                                      (2,1,1),(1)
                                      (1,1,1),(1,1)
                                      (1,1,1,1),(1)

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

The version with equal sums is A317715.
The version with strictly increasing sums is A336134.
The version with weakly increasing sums is A336136.
The version with weakly decreasing sums is A316245.
The version with different sums is A336131.
Starting with a composition gives A304961.
Starting with a strict partition gives A318684.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Cf. A006951, A063834, A279786, A305551, A323433, A336128, A336130, A336133.

splits[dom_]:=Append[Join@@Table[Prepend[#,Take[dom,i]]&/@splits[Drop[dom,i]],{i,Length[dom]-1}],{dom}];
Table[Sum[Length[Select[splits[ctn],Greater@@Total/@#&]],{ctn,IntegerPartitions[n]}],{n,0,10}]

a(n)={my(recurse(r,m,s,t,f)=if(m==0, r==0, if(f, self()(r,min(m,t-1),t-1,0,0)) + self()(r,m-1,s,t,0) + if(t+m<=s, self()(r-m,min(m,r-m),s,t+m,1)))); recurse(n,n,n,0)} \\ Andrew Howroyd, Jan 18 2024

a(21) onwards from Andrew Howroyd, Jan 18 2024

A336132 Number of ways to split a strict integer partition of n into contiguous subsequences all having different sums.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 8, 11, 14, 21, 30, 37, 51, 66, 86, 120, 146, 186, 243, 303, 378, 495, 601, 752, 927, 1150, 1395, 1741, 2114, 2571, 3134, 3788, 4541, 5527, 6583, 7917, 9511, 11319, 13448, 16040, 18996, 22455, 26589, 31317, 36844, 43518, 50917, 59655, 69933

Offset: 0

Gus Wiseman, Jul 11 2020

nonn

			The a(1) = 1 through a(7) = 14 splits:
  (1)  (2)  (3)      (4)      (5)      (6)          (7)
            (2,1)    (3,1)    (3,2)    (4,2)        (4,3)
            (2),(1)  (3),(1)  (4,1)    (5,1)        (5,2)
                              (3),(2)  (3,2,1)      (6,1)
                              (4),(1)  (4),(2)      (4,2,1)
                                       (5),(1)      (4),(3)
                                       (3,2),(1)    (5),(2)
                                       (3),(2),(1)  (6),(1)
                                                    (4),(2,1)
                                                    (4,2),(1)
                                                    (4),(2),(1)

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

The version with equal instead of different sums is A318683.
Starting with a composition gives A336127.
Starting with a strict composition gives A336128.
Starting with a partition gives A336131.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Cf. A006951, A063834, A279786, A305551, A316245, A317715, A323433, A336130, A336134, A336135.

splits[dom_]:=Append[Join@@Table[Prepend[#,Take[dom,i]]&/@splits[Drop[dom,i]],{i,Length[dom]-1}],{dom}];
Table[Sum[Length[Select[splits[ctn],UnsameQ@@Total/@#&]],{ctn,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,0,30}]

cp's OEIS Frontend

A050361 Number of factorizations into distinct prime powers greater than 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Formula

A107742 G.f.: Product_{j>=1} Product_{i>=1} (1 + x^(i*j)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

PARI

PARI

Formula

Extensions

A006951 Number of conjugacy classes in GL(n,2).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A323583 Number of ways to split an integer partition of n into consecutive subsequences.

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple

Mathematica

Formula

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

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