A141199 -id:A141199 - cp's OEIS frontend

A358908 Number of finite sequences of distinct integer partitions with total sum n and weakly decreasing lengths.

1, 1, 2, 6, 10, 23, 50, 95, 188, 378, 747, 1414, 2739, 5179, 9811, 18562, 34491, 64131, 118607, 218369, 400196, 731414, 1328069, 2406363, 4346152, 7819549, 14027500, 25090582, 44749372, 79586074, 141214698, 249882141, 441176493, 777107137, 1365801088, 2395427040, 4192702241

Offset: 0

Gus Wiseman, Dec 09 2022

nonn

			The a(1) = 1 through a(4) = 10 sequences:
  ((1))  ((2))   ((3))      ((4))
         ((11))  ((21))     ((22))
                 ((111))    ((31))
                 ((1)(2))   ((211))
                 ((2)(1))   ((1111))
                 ((11)(1))  ((1)(3))
                            ((3)(1))
                            ((11)(2))
                            ((21)(1))
                            ((111)(1))

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

This is the distinct case of A055887 with weakly decreasing lengths.
This is the distinct case is A141199.
The case of distinct lengths also is A358836.
This is the case of A358906 with weakly decreasing lengths.
A000041 counts integer partitions, strict A000009.
A001970 counts multiset partitions of integer partitions.
A063834 counts twice-partitions.
A358830 counts twice-partitions with distinct lengths.
A358901 counts partitions with all distinct Omegas.
A358912 counts sequences of partitions with distinct lengths.
A358914 counts twice-partitions into distinct strict partitions.
Cf. A000219, A261049, A271619, A296122, A358831, A358901, A358905, A358907.

ptnseq[n_]:=Join@@Table[Tuples[IntegerPartitions/@comp],{comp,Join@@Permutations/@IntegerPartitions[n]}];
Table[Length[Select[ptnseq[n],UnsameQ@@#&&GreaterEqual@@Length/@#&]],{n,0,10}]

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
R(n,v) = {[subst(serlaplace(p), y, 1) | p<-Vec(prod(k=1, #v, (1 + y*x^k + O(x*x^n))^v[k] ))]}
seq(n) = {my(g=P(n,y)); Vec(prod(k=1, n, Ser(R(n, Vec(polcoef(g, k, y), -n)))  ))} \\ Andrew Howroyd, Dec 31 2022

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

A358901 Number of integer partitions of n whose parts have all different numbers of prime factors (A001222).

Original entry on oeis.org

1, 1, 1, 2, 2, 2, 3, 4, 4, 5, 5, 7, 9, 8, 9, 11, 11, 15, 16, 16, 18, 20, 22, 26, 28, 31, 32, 36, 40, 45, 46, 46, 50, 59, 64, 70, 75, 78, 83, 89, 94, 108, 106, 104, 120, 137, 142, 147, 150, 161, 174, 190, 200, 220, 226, 224, 248, 274, 274, 287, 301, 320, 340, 351, 361

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

			The a(1) = 1 through a(11) = 7 partitions:
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)    (B)
            (21)  (31)  (41)  (42)  (43)   (62)   (54)   (82)   (74)
                              (51)  (61)   (71)   (63)   (91)   (65)
                                    (421)  (431)  (81)   (451)  (83)
                                                  (621)  (631)  (92)
                                                                (A1)
                                                                (821)

Alois P. Heinz, Table of n, a(n) for n = 0..5000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

The weakly decreasing version is A358909 (complement A358910).
The version not counting multiplicity is A358903, weakly decreasing A358902.
For equal numbers of prime factors we have A319169, compositions A358911.
A001222 counts prime factors, distinct A001221.
A063834 counts twice-partitions.
A358836 counts multiset partitions with all distinct block sizes.
Cf. A056239, A129519, A141199, A218482, A300335, A319071, A320324, A358335, A358831, A358908.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@PrimeOmega/@#&]],{n,0,60}]

a(61) and beyond from Lucas A. Brown, Dec 14 2022

A358905 Number of sequences of integer partitions with total sum n that are rectangular, meaning all lengths are equal.

Original entry on oeis.org

1, 1, 3, 6, 13, 24, 49, 91, 179, 341, 664, 1280, 2503, 4872, 9557, 18750, 36927, 72800, 143880, 284660, 564093, 1118911, 2221834, 4415417, 8781591, 17476099, 34799199, 69327512, 138176461, 275503854, 549502119, 1096327380, 2187894634, 4367310138, 8719509111

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

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

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

The case of set partitions is A038041.
The version for weakly decreasing lengths is A141199, strictly A358836.
For equal sums instead of lengths we have A279787.
The case of twice-partitions is A306319, distinct A358830.
The unordered version is A319066.
The case of plane partitions is A323429.
The case of constant sums also is A358833.
A055887 counts sequences of partitions with total sum n.
A281145 counts same-trees.
A319169 counts partitions with constant Omega, ranked by A320324.
A358911 counts compositions with constant Omega, distinct A358912.
Cf. A000041, A000219, A001970, A063834, A218482, A305551, A358835.

ptnseq[n_]:=Join@@Table[Tuples[IntegerPartitions/@comp],{comp,Join@@Permutations/@IntegerPartitions[n]}];
Table[Length[Select[ptnseq[n],SameQ@@Length/@#&]],{n,0,10}]

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

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

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

A375401 Number of integer partitions of n whose maximal anti-runs do not all have different maxima.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 6, 7, 12, 16, 25, 33, 48, 63, 88, 116, 157, 204, 272, 349, 456, 581, 749, 946, 1205, 1511, 1904, 2371, 2960, 3661, 4538, 5577, 6862, 8389, 10257, 12472, 15164, 18348, 22192, 26731, 32177, 38593, 46254, 55256, 65952, 78500, 93340, 110706

Offset: 0

Gus Wiseman, Aug 17 2024

nonn

An anti-run is a sequence with no adjacent equal terms. The maxima of maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the greatest term of each.

			The partition y = (3,2,2,1) has maximal ant-runs ((3,2),(2,1)), with maxima (3,2), so y is not counted under a(8).
The a(2) = 1 through a(8) = 12 partitions:
  (11)  (111)  (22)    (221)    (33)      (331)      (44)
               (1111)  (2111)   (222)     (2221)     (332)
                       (11111)  (2211)    (4111)     (2222)
                                (3111)    (22111)    (3311)
                                (21111)   (31111)    (5111)
                                (111111)  (211111)   (22211)
                                          (1111111)  (32111)
                                                     (41111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)

For identical instead of distinct we have A239955, ranks A073492.
The complement is counted by A375133, ranks A375402.
The complement for minima instead of maxima is A375134, ranks A375398.
These partitions have Heinz numbers A375403.
For minima instead of maxima we have A375404, ranks A375399.
The reverse for identical instead of distinct is A375405, ranks A375397.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums A374706.
Cf. A034296, A115029, A141199, A279790, A358830, A358836, A374632, A374761, A375136, A375396, A375400.

Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Max/@Split[#,UnsameQ]&]],{n,0,30}]

A375404 Number of integer partitions of n whose minima of maximal anti-runs are not all different.

Original entry on oeis.org

0, 0, 1, 1, 3, 3, 7, 9, 14, 19, 30, 38, 56, 73, 102, 133, 179, 231, 307, 392, 511, 647, 831, 1046, 1328, 1658, 2084, 2586, 3219, 3970, 4909, 6016, 7386, 9005, 10988, 13330, 16175, 19531, 23580, 28350, 34067, 40788, 48809, 58215, 69383, 82461, 97917, 115976

Offset: 0

Gus Wiseman, Aug 17 2024

nonn

An anti-run is a sequence with no adjacent equal terms. The minima of maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each.

Also the number of reversed integer partitions of n such that the minima of maximal anti-runs are not all different.

			The a(0) = 0 through a(8) = 14 reversed partitions:
  .  .  (11)  (111)  (22)    (113)    (33)      (115)      (44)
                     (112)   (1112)   (114)     (223)      (116)
                     (1111)  (11111)  (222)     (1114)     (224)
                                      (1113)    (1123)     (1115)
                                      (1122)    (1222)     (1124)
                                      (11112)   (11113)    (1133)
                                      (111111)  (11122)    (2222)
                                                (111112)   (11114)
                                                (1111111)  (11123)
                                                           (11222)
                                                           (111113)
                                                           (111122)
                                                           (1111112)
                                                           (11111111)

The complement for maxima instead of minima is A375133, ranks A375402.
The complement is counted by A375134, ranks A375398.
These partitions are ranked by A375399.
For maxima instead of minima we have A375401, ranks A375403.
For identical instead of distinct we have A375405, ranks A375397.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums A374706.
Cf. A034296, A046660, A073492, A115029, A141199, A239955, A279790, A358830, A358836, A375136.

Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Min/@Split[#,UnsameQ]&]],{n,0,30}]

A358833 Number of rectangular twice-partitions of n of type (P,R,P).

Original entry on oeis.org

1, 1, 3, 4, 8, 8, 17, 16, 32, 34, 56, 57, 119, 102, 179, 199, 335, 298, 598, 491, 960, 925, 1441, 1256, 2966, 2026, 3726, 3800, 6488, 4566, 11726, 6843, 16176, 14109, 21824, 16688, 49507, 21638, 50286, 50394, 99408, 44584, 165129, 63262, 208853, 205109, 248150

Offset: 0

Gus Wiseman, Dec 04 2022

nonn

A twice-partition of n is a sequence of integer partitions, one of each part of an integer partition of n, so these are twice-partitions of n into partitions with constant lengths and constant sums.

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

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Gus Wiseman, Sequences enumerating triangles of integer partitions

This is the rectangular case of A279787.
This is the case of A306319 with constant sums.
For distinct instead of constant lengths and sums we have A358832.
The version for multiset partitions of integer partitions is A358835.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A281145 counts same-trees.
Cf. A000041, A000219, A001970, A008284, A141199, A327908, A358823, A358831.

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

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(u=Vec(P(n,y)-1)); concat([1], vector(n, n, sumdiv(n, d, my(p=u[n/d]); sum(j=1, n/d, polcoef(p, j, y)^d))))} \\ Andrew Howroyd, Dec 31 2022

a(n) = Sum_{d|n} Sum_{j=1..n/d} A008284(n/d, j)^d for n > 0. - Andrew Howroyd, Dec 31 2022

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

A358903 Number of integer partitions of n whose parts have all different numbers of distinct prime factors (A001221).

Original entry on oeis.org

1, 1, 1, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 5, 7, 8, 7, 9, 10, 10, 10, 9, 11, 15, 14, 13, 15, 14, 14, 17, 16, 17, 17, 16, 16, 17, 17, 21, 26, 24, 23, 25, 27, 29, 32, 31, 29, 36, 36, 35, 37, 37, 42, 49, 45, 44, 50, 49, 50, 58, 55, 55, 58, 56, 58, 66, 62, 65, 75

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

			The a(15) = 8 partitions are: (15), (14,1), (12,3), (12,2,1), (10,5), (10,4,1), (6,9), (8,6,1).

Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

Counting prime factors with multiplicity gives A358901.
The weakly decreasing version is A358902, with multiplicity A358335.
A001222 counts prime factors, distinct A001221.
A116608 counts partitions by sum and number of distinct parts.
A358836 counts multiset partitions with all distinct block sizes.
Cf. A046660, A071625, A129519, A141199, A319169, A358831, A358909, A358911.

p:= proc(n) option remember; nops(ifactors(n)[2]) end:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<0, 0,
      add((t-> `if`(t b(n$2):
seq(a(n), n=0..68);  # Alois P. Heinz, Feb 14 2024

Table[Length[Select[IntegerPartitions[n],UnsameQ@@PrimeNu/@#&]],{n,0,30}]

a(56) and beyond from Lucas A. Brown, Dec 14 2022

A358912 Number of finite sequences of integer partitions with total sum n and all distinct lengths.

Original entry on oeis.org

1, 1, 2, 5, 11, 23, 49, 103, 214, 434, 874, 1738, 3443, 6765, 13193, 25512, 48957, 93267, 176595, 332550, 622957, 1161230, 2153710, 3974809, 7299707, 13343290, 24280924, 43999100, 79412942, 142792535, 255826836, 456735456, 812627069, 1440971069, 2546729830

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

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

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

The case of set partitions is A007837.
This is the case of A055887 with all distinct lengths.
For distinct sums instead of lengths we have A336342.
The case of twice-partitions is A358830.
The unordered version is A358836.
The version for constant instead of distinct lengths is A358905.
A000041 counts integer partitions, strict A000009.
A063834 counts twice-partitions.
A141199 counts sequences of partitions with weakly decreasing lengths.
Cf. A000219, A001970, A038041, A060642, A218482, A271619, A319066, A358831, A358901, A358906, A358908.

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

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(g=P(n,y)); [subst(serlaplace(p), y, 1) | p<-Vec(prod(k=1, n, 1 + y*polcoef(g, k, y) + O(x*x^n)))]} \\ Andrew Howroyd, Dec 30 2022

Terms a(16) and beyond from Andrew Howroyd, Dec 30 2022

A374704 Number of ways to choose an integer partition of each part of an integer composition of n (A055887) such that the minima are identical.

Original entry on oeis.org

1, 1, 3, 6, 15, 31, 77, 171, 410, 957, 2275, 5370, 12795, 30366, 72307, 172071, 409875, 976155, 2325804, 5541230, 13204161, 31464226, 74980838, 178684715, 425830008, 1014816979, 2418489344, 5763712776, 13736075563, 32735874251, 78016456122, 185929792353, 443110675075

Offset: 0

Gus Wiseman, Aug 04 2024

nonn

			The a(0) = 1 through a(4) = 15 ways:
  ()  ((1))  ((2))      ((3))          ((4))
             ((1,1))    ((1,2))        ((1,3))
             ((1),(1))  ((1,1,1))      ((2,2))
                        ((1),(1,1))    ((1,1,2))
                        ((1,1),(1))    ((2),(2))
                        ((1),(1),(1))  ((1,1,1,1))
                                       ((1),(1,2))
                                       ((1,2),(1))
                                       ((1),(1,1,1))
                                       ((1,1),(1,1))
                                       ((1,1,1),(1))
                                       ((1),(1),(1,1))
                                       ((1),(1,1),(1))
                                       ((1,1),(1),(1))
                                       ((1),(1),(1),(1))

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

A variation for weakly increasing lengths is A141199.
For identical sums instead of minima we have A279787.
The case of reversed twice-partitions is A306319, distinct A358830.
For maxima instead of minima, or for unreversed partitions, we have A358905.
The strict case is A374686 (ranks A374685), maxima A374760 (ranks A374759).
A003242 counts anti-run compositions, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of runs.
A274174 counts contiguous compositions, ranks A374249.
A055887 counts sequences of partitions with total sum n.
A281145 counts same-trees.
A319169 counts partitions with constant Omega, ranked by A320324.
A358911 counts compositions with constant Omega, distinct A358912.
Cf. A000041, A063834, A106356, A189076, A238343, A304969, A305551, A319066, A323429, A333213, A358833, A358835.

Table[Length[Select[Join@@Table[Tuples[IntegerPartitions/@y], {y,Join@@Permutations/@IntegerPartitions[n]}],SameQ@@Min/@#&]],{n,0,15}]

seq(n) = Vec(1 + sum(k=1, n, -1 + 1/(1 - x^k/prod(j=k, n-k, 1 - x^j, 1 + O(x^(n-k+1)))))) \\ Andrew Howroyd, Dec 29 2024

G.f.: 1 + Sum_{k>=1} (-1 + 1/(1 - x^k/Product_{j>=k} (1 - x^j))). - Andrew Howroyd, Dec 29 2024

a(16) onwards from Andrew Howroyd, Dec 29 2024

A358335 Number of integer compositions of n whose parts have weakly decreasing numbers of prime factors (with multiplicity).

Original entry on oeis.org

1, 1, 2, 3, 5, 8, 12, 19, 29, 44, 68, 100, 153, 227, 342, 509, 759, 1129, 1678, 2492, 3699, 5477, 8121, 12015, 17795, 26313, 38924, 57541, 85065, 125712, 185758, 274431, 405420, 598815, 884465, 1306165, 1928943, 2848360, 4205979, 6210289, 9169540

Offset: 0

Gus Wiseman, Dec 05 2022

nonn

			The a(0) = 1 through a(6) = 12 compositions:
  ()  (1)  (2)   (3)    (4)     (5)      (6)
           (11)  (21)   (22)    (23)     (33)
                 (111)  (31)    (32)     (42)
                        (211)   (41)     (51)
                        (1111)  (221)    (222)
                                (311)    (231)
                                (2111)   (321)
                                (11111)  (411)
                                         (2211)
                                         (3111)
                                         (21111)
                                         (111111)

Alois P. Heinz, Table of n, a(n) for n = 0..2000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

For lengths of partitions see A141199, compositions A218482.
The strictly decreasing case is A358901.
The version not counting multiplicity is A358902, strict A358903.
The case of partitions is A358909, complement A358910.
The case of equality is A358911, partitions A319169.
A001222 counts prime factors, distinct A001221.
A011782 counts compositions.
A063834 counts twice-partitions.
Cf. A056239, A300335, A319071, A320324, A358831, A358904, A358908.

Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],GreaterEqual@@PrimeOmega/@#&]],{n,0,10}]

a(21) and beyond from Lucas A. Brown, Dec 15 2022

cp's OEIS Frontend

A358908 Number of finite sequences of distinct integer partitions with total sum n and weakly decreasing lengths.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A358901 Number of integer partitions of n whose parts have all different numbers of prime factors (A001222).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A358905 Number of sequences of integer partitions with total sum n that are rectangular, meaning all lengths are equal.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A375401 Number of integer partitions of n whose maximal anti-runs do not all have different maxima.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A375404 Number of integer partitions of n whose minima of maximal anti-runs are not all different.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A358833 Number of rectangular twice-partitions of n of type (P,R,P).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A358903 Number of integer partitions of n whose parts have all different numbers of distinct prime factors (A001221).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A358912 Number of finite sequences of integer partitions with total sum n and all distinct lengths.

Views

Author

Keywords