A358830 -id:A358830 - cp's OEIS frontend

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

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

A382428 Number of normal multiset partitions of weight n into sets with distinct sizes.

Original entry on oeis.org

1, 1, 1, 6, 8, 35, 292, 673, 2818, 16956, 219772, 636748, 3768505, 20309534, 183403268, 3227600747, 12272598308, 81353466578, 561187259734, 4416808925866, 50303004612136, 1238783066956740, 5566249468690291, 44970939483601100, 330144217684933896, 3131452652308459402

Offset: 0

Gus Wiseman, Mar 29 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(4) = 8 multiset partitions:
  {{1}}  {{1,2}}  {{1,2,3}}    {{1,2,3,4}}
                  {{1},{1,2}}  {{1},{1,2,3}}
                  {{1},{2,3}}  {{1},{2,3,4}}
                  {{2},{1,2}}  {{2},{1,2,3}}
                  {{2},{1,3}}  {{2},{1,3,4}}
                  {{3},{1,2}}  {{3},{1,2,3}}
                               {{3},{1,2,4}}
                               {{4},{1,2,3}}

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

For distinct sums instead of sizes we have A116539, see A050326.
Without distinct lengths we have A116540 (normal set multipartitions).
Without strict blocks we have A326517, for sum instead of size A326519.
For equal instead of distinct sizes we have A331638.
Twice-partitions of this type are counted by A358830.
For distinct sums instead of sizes we have A381718.
For equal instead of distinct sizes we have A382429.
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, A279785, A317532, A326518, A381633, 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@@Length/@#&&And@@UnsameQ@@@#&]&/@allnorm[n])],{n,0,5}]

R(n, k)={Vec(prod(j=1, n, 1 + binomial(k, j)*x^j + O(x*x^n)))}
seq(n)={sum(k=0, n, R(n, k)*sum(r=k, n, binomial(r, k)*(-1)^(r-k)))} \\ Andrew Howroyd, Mar 31 2025

a(10) onwards from Andrew Howroyd, Mar 31 2025

A358907 Number of finite sequences of distinct integer compositions with total sum n.

Original entry on oeis.org

1, 1, 2, 8, 18, 54, 156, 412, 1168, 3200, 8848, 24192, 66632, 181912, 495536, 1354880, 3680352, 9997056, 27093216, 73376512, 198355840, 535319168, 1443042688, 3884515008, 10445579840, 28046885824, 75225974912, 201536064896, 539339293824, 1441781213952

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

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

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

For sets instead of sequences we have A098407, partitions A261049.
This is the strict case of A133494.
The case of distinct sums is A336127, constant sums A074854.
The version for sequences of partitions is A358906.
A001970 counts multiset partitions of integer partitions.
A063834 counts twice-partitions.
A218482 counts sequences of compositions with weakly decreasing lengths.
A358830 counts twice-partitions with distinct lengths.
A358901 counts partitions with all different Omegas.
A358914 counts twice-partitions into distinct strict partitions.
Cf. A000009, A000041, A000219, A055887, A075900, A296122, A304961, A307068, A336342, A358836, A358912.

g:= proc(n) option remember; ceil(2^(n-1)) end:
b:= proc(n, i, p) option remember; `if`(n=0, p!, `if`(i<1, 0, (t->
      add(binomial(t, j)*b(n-i*j, i-1, p+j), j=0..min(t, n/i)))(g(i))))
    end:
a:= n-> b(n$2, 0):
seq(a(n), n=0..32);  # Alois P. Heinz, Dec 15 2022

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

a(16)-a(29) from Alois P. Heinz, Dec 15 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

A375402 Numbers whose maximal anti-runs of weakly increasing prime factors (with multiplicity) have distinct maxima.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 19, 20, 21, 22, 23, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 77, 78, 79, 82, 83, 84, 85, 86, 87, 89

Offset: 1

Gus Wiseman, Aug 14 2024

nonn

First differs from A349810 in lacking 150.
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 partitions with these Heinz numbers are those with (1) no part appearing more than twice and (2) the greatest part appearing only once.
Note the prime factors can alternatively be written in weakly decreasing order.
How is does the sequence relate to A317092? - R. J. Mathar, Aug 20 2024

			The maximal anti-runs of prime factors of 150 are ((2,3,5),(5)), with maxima (5,5), so 150 is not in the sequence.
The maximal anti-runs of prime factors of 180 are ((2),(2,3),(3,5)), with maxima (2,3,5), so 180 is in the sequence.
The maximal anti-runs of prime factors of 300 are ((2),(2,3,5),(5)), with maxima (2,5,5), so 300 is not in the sequence.

For identical instead of distinct we have A065200, complement A065201.
A version for compositions (instead of partitions) is A374767.
Partitions of this type are counted by A375133.
For minima instead of maxima we have A375398, counted by A375134.
The complement for minima is A375399, counted by A375404.
The complement is A375403, counted by A375401.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A number's prime factors (A027746, reverse A238689) have sum A001414, min A020639, max A006530.
A number's prime indices (A112798, reverse A296150) have sum A056239, min A055396, max A061395.
Both have length A001222, distinct A001221.
Cf. A046660, A066328, A358830, A374632, A374706, A374768, A375128, A375136, A375396, A375400.

Select[Range[150],UnsameQ@@Max /@ Split[Flatten[ConstantArray@@@FactorInteger[#]],UnsameQ]&]

A358832 Number of twice-partitions of n into partitions of distinct lengths and distinct sums.

Original entry on oeis.org

1, 1, 2, 4, 7, 15, 25, 49, 79, 154, 248, 453, 748, 1305, 2125, 3702, 5931, 9990, 16415, 26844, 43246, 70947, 113653, 182314, 292897, 464614, 739640, 1169981, 1844511, 2888427, 4562850, 7079798, 11064182, 17158151, 26676385, 41075556, 63598025, 97420873, 150043132

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.

			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)
                      (21)(1)   (2111)
                      (111)(1)  (11111)
                                (21)(2)
                                (22)(1)
                                (3)(11)
                                (31)(1)
                                (111)(2)
                                (211)(1)
                                (111)(11)
                                (1111)(1)

This is the case of A271619 with distinct lengths.
These multiset partitions are ranked by A326535 /\ A326533.
This is the case of A358830 with distinct sums.
For constant instead of distinct lengths and sums we have A358833.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A273873 counts strict trees.
Cf. A000009, A000219, A001970, A141199, A279375, A279785, A279790, A306319, A358334, A358836.

twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
Table[Length[Select[twiptn[n],UnsameQ@@Total/@#&&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-1,r-m), r-m, bitor(b, 1<Andrew Howroyd, Dec 31 2022

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

A358913 Number of finite sequences of distinct sets with total sum n.

Original entry on oeis.org

1, 1, 1, 4, 6, 11, 28, 45, 86, 172, 344, 608, 1135, 2206, 4006, 7689, 13748, 25502, 47406, 86838, 157560, 286642, 522089, 941356, 1718622, 3079218, 5525805, 9902996, 17788396, 31742616, 56694704, 100720516, 178468026, 317019140, 560079704, 991061957

Offset: 0

Gus Wiseman, Dec 11 2022

nonn

			The a(1) = 1 through a(5) = 11 sequences of sets:
  ({1})  ({2})  ({3})      ({4})        ({5})
                ({1,2})    ({1,3})      ({1,4})
                ({1},{2})  ({1},{3})    ({2,3})
                ({2},{1})  ({3},{1})    ({1},{4})
                           ({1},{1,2})  ({2},{3})
                           ({1,2},{1})  ({3},{2})
                                        ({4},{1})
                                        ({1},{1,3})
                                        ({1,2},{2})
                                        ({1,3},{1})
                                        ({2},{1,2})

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

The unordered version is A050342, non-strict A261049.
The case of strictly decreasing sums is A279785.
This is the distinct case of A304969.
The case of distinct sums is A336343, constant sums A279791.
This is the case of A358906 with strict partitions.
The version for compositions instead of strict partitions is A358907.
The case of twice-partitions is A358914.
A001970 counts multiset partitions of integer partitions.
A055887 counts sequences of partitions.
A063834 counts twice-partitions.
A330462 counts set systems by total sum and length.
A358830 counts twice-partitions with distinct lengths.
Cf. A000009, A000041, A000219, A271619, A296122, A336342, A358908.

g:= proc(n) option remember; `if`(n=0, 1, add(g(n-j)*add(
     `if`(d::odd, d, 0), d=numtheory[divisors](j)), j=1..n)/n)
    end:
b:= proc(n, i, p) option remember; `if`(n=0, p!, `if`(i<1, 0,
      add(binomial(g(i), j)*b(n-i*j, i-1, p+j), j=0..n/i)))
    end:
a:= n-> b(n$2, 0):
seq(a(n), n=0..35);  # Alois P. Heinz, Feb 13 2024

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

a(n) = Sum_{k} A330462(n,k) * k!.

cp's OEIS Frontend

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

A382428 Number of normal multiset partitions of weight n into sets with distinct sizes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A358907 Number of finite sequences of distinct integer compositions with total sum n.

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

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

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.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A375402 Numbers whose maximal anti-runs of weakly increasing prime factors (with multiplicity) have distinct maxima.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A358832 Number of twice-partitions of n into partitions of distinct lengths and distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A358913 Number of finite sequences of distinct sets with total sum n.

Views

Author

Keywords