A098859 -id:A098859 - cp's OEIS frontend

A304405 Number of partitions of n in which the sequence of the sum of the same summands is nondecreasing.

1, 1, 2, 3, 5, 6, 10, 12, 18, 22, 31, 37, 52, 61, 80, 97, 127, 147, 189, 220, 277, 325, 402, 469, 578, 665, 804, 933, 1121, 1282, 1537, 1754, 2081, 2374, 2793, 3179, 3739, 4232, 4923, 5587, 6477, 7305, 8445, 9519, 10949, 12323, 14110, 15825, 18099, 20229, 23005

Offset: 0

Seiichi Manyama, May 12 2018

nonn

Number of integer partitions of n with weakly decreasing run-sums, complement A357878. - Gus Wiseman, Oct 22 2022

			n |                      | Sequence of the sum of the same summands
--+----------------------+-----------------------------------------
1 | 1                    | 1
2 | 2                    | 2
  | 1+1                  | 2
3 | 3                    | 3
  | 2+1                  | 1, 2
  | 1+1+1                | 3
4 | 4                    | 4
  | 3+1                  | 1, 3
  | 2+2                  | 4
  | 2+1+1                | 2, 2
  | 1+1+1+1              | 4
5 | 5                    | 5
  | 4+1                  | 1, 4
  | 3+2                  | 2, 3
  | 3+1+1                | 2, 3
  | 2+2+1                | 1, 4
  | 1+1+1+1+1            | 5
6 | 6                    | 6
  | 5+1                  | 1, 5
  | 4+2                  | 2, 4
  | 4+1+1                | 2, 4
  | 3+3                  | 6
  | 3+2+1                | 1, 2, 3
  | 3+1+1+1              | 3, 3
  | 2+2+2                | 6
  | 2+2+1+1              | 2, 4
  | 1+1+1+1+1+1          | 6

The strict opposite version is A304430, ranked by A357864.
The strict version is A304428, ranked by A357862.
The opposite version is A304406, ranked by A357861.
Number of rows in A354584 summing to n that are strictly increasing.
These partitions are ranked by A357875.
A000041 counts integer partitions, strict A000009.
A304442 counts partitions with equal run-sums, distinct A353837.
Cf. A047966, A087980, A098859, A100883, A239312, A275870, A353832, A353864.

Table[Length[Select[IntegerPartitions[n],GreaterEqual@@Total/@Split[#]&]],{n,0,30}] (* Gus Wiseman, Oct 22 2022 *)

A351201 Numbers whose multiset of prime factors has a permutation without all distinct runs.

Original entry on oeis.org

12, 18, 20, 28, 36, 44, 45, 48, 50, 52, 60, 63, 68, 72, 75, 76, 80, 84, 90, 92, 98, 99, 100, 108, 112, 116, 117, 120, 124, 126, 132, 140, 144, 147, 148, 150, 153, 156, 162, 164, 168, 171, 172, 175, 176, 180, 188, 192, 196, 198, 200, 204, 207, 208, 212, 216

Offset: 1

Gus Wiseman, Feb 12 2022

nonn

			The prime factors of 80 are {2,2,2,2,5} and the permutation (2,2,5,2,2) has runs (2,2), (5), and (2,2), which are not all distinct, so 80 is in the sequence. On the other hand, 24 has prime factors {2,2,2,3}, and all four permutations (3,2,2,2), (2,3,2,2), (2,2,3,2), (2,2,2,3) have distinct runs, so 24 is not in the sequence.
The terms and their prime indices begin:
     12: (2,1,1)         76: (8,1,1)        132: (5,2,1,1)
     18: (2,2,1)         80: (3,1,1,1,1)    140: (4,3,1,1)
     20: (3,1,1)         84: (4,2,1,1)      144: (2,2,1,1,1,1)
     28: (4,1,1)         90: (3,2,2,1)      147: (4,4,2)
     36: (2,2,1,1)       92: (9,1,1)        148: (12,1,1)
     44: (5,1,1)         98: (4,4,1)        150: (3,3,2,1)
     45: (3,2,2)         99: (5,2,2)        153: (7,2,2)
     48: (2,1,1,1,1)    100: (3,3,1,1)      156: (6,2,1,1)
     50: (3,3,1)        108: (2,2,2,1,1)    162: (2,2,2,2,1)
     52: (6,1,1)        112: (4,1,1,1,1)    164: (13,1,1)
     60: (3,2,1,1)      116: (10,1,1)       168: (4,2,1,1,1)
     63: (4,2,2)        117: (6,2,2)        171: (8,2,2)
     68: (7,1,1)        120: (3,2,1,1,1)    172: (14,1,1)
     72: (2,2,1,1,1)    124: (11,1,1)       175: (4,3,3)
     75: (3,3,2)        126: (4,2,2,1)      176: (5,1,1,1,1)

Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)

The version for run-lengths instead of runs is A024619.
These permutations are counted by A351202.
These rank the partitions counted by A351203, complement A351204.
A005811 counts runs in binary expansion.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A056239 adds up prime indices, row sums of A112798.
A283353 counts normal multisets with a permutation w/o all distinct runs.
A297770 counts distinct runs in binary expansion.
A333489 ranks anti-runs, complement A348612.
A351014 counts distinct runs in standard compositions, firsts A351015.
A351291 ranks compositions without all distinct runs.
Counting words with all distinct runs:
- A351013 = compositions, for run-lengths A329739, ranked by A351290.
- A351016 = binary words, for run-lengths A351017.
- A351018 = binary expansions, for run-lengths A032020, ranked by A175413.
- A351200 = patterns, for run-lengths A351292.
Cf. A001055, A001221, A001222, A061395, A098859, A106356, A106529.

Select[Range[100],Select[Permutations[Join@@ ConstantArray@@@FactorInteger[#]],!UnsameQ@@Split[#]&]!={}&]

A351204 Number of integer partitions of n such that every permutation has all distinct runs.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 8, 9, 11, 14, 18, 20, 25, 28, 34, 41, 47, 53, 64, 72, 84, 98, 113, 128, 148, 169, 194, 223, 255, 289, 333, 377, 428, 488, 554, 629, 715, 807, 913, 1033, 1166, 1313, 1483, 1667, 1875, 2111, 2369, 2655, 2977, 3332, 3729, 4170, 4657, 5195, 5797, 6459

Offset: 0

Gus Wiseman, Feb 15 2022

nonn

Partitions enumerated by this sequence include those in which all parts are either the same or distinct as well as partitions with an even number of parts all of which except one are the same. - Andrew Howroyd, Feb 15 2022

			The a(1) = 1 through a(8) = 11 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (2111)   (51)      (61)       (62)
                            (11111)  (222)     (421)      (71)
                                     (321)     (2221)     (431)
                                     (3111)    (4111)     (521)
                                     (111111)  (211111)   (2222)
                                               (1111111)  (5111)
                                                          (311111)
                                                          (11111111)

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)

The version for run-lengths instead of runs is A000005.
The version for normal multisets is 2^(n-1) - A283353(n-3).
The complement is counted by A351203, ranked by A351201.
A005811 counts runs in binary expansion.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A059966 counts Lyndon compositions, necklaces A008965, aperiodic A000740.
A098859 counts partitions with distinct multiplicities, ordered A242882.
A238130 and A238279 count compositions by number of runs.
A297770 counts distinct runs in binary expansion.
A003242 counts anti-run compositions.
Counting words with all distinct runs:
- A351013 = compositions, for run-lengths A329739, ranked by A351290.
- A351016 = binary words, for run-lengths A351017.
- A351018 = binary expansions, for run-lengths A032020, ranked by A175413.
- A351200 = patterns, for run-lengths A351292.
- A351202 = permutations of prime factors.
Cf. A000041, A035363, A047993, A116608, A144300, A329746, A351291.

Table[Length[Select[IntegerPartitions[n],Select[Permutations[#],!UnsameQ@@Split[#]&]=={}&]],{n,0,15}]

\\ here Q(n) is A000009.
Q(n)={polcoef(prod(k=1, n, 1 + x^k + O(x*x^n)), n)}
a(n)={Q(n) + if(n, numdiv(n) - 1) + sum(k=1, (n-1)\3, sum(j=3, (n-1)\k, j%2==1 && n-k*j<>k))} \\ Andrew Howroyd, Feb 15 2022

Terms a(26) and beyond from Andrew Howroyd, Feb 15 2022

A304428 Number of partitions of n in which the sequence of the sum of the same summands is increasing.

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 9, 11, 14, 20, 26, 33, 41, 50, 64, 81, 97, 120, 150, 176, 210, 255, 303, 362, 426, 503, 595, 703, 816, 953, 1113, 1283, 1482, 1721, 1988, 2299, 2650, 3031, 3464, 3965, 4492, 5115, 5820, 6592, 7467, 8484, 9568, 10822, 12185, 13724, 15445, 17381, 19475, 21855

Offset: 0

Seiichi Manyama, May 12 2018

nonn

Number of integer partitions of n with strictly decreasing run-sums. - Gus Wiseman, Oct 21 2022

			n |                      | Sequence of the sum of the same summands
--+----------------------+-----------------------------------------
1 | 1                    | 1
2 | 2                    | 2
  | 1+1                  | 2
3 | 3                    | 3
  | 2+1                  | 1, 2
  | 1+1+1                | 3
4 | 4                    | 4
  | 3+1                  | 1, 3
  | 2+2                  | 4
  | 1+1+1+1              | 4
5 | 5                    | 5
  | 4+1                  | 1, 4
  | 3+2                  | 2, 3
  | 3+1+1                | 2, 3
  | 2+2+1                | 1, 4
  | 1+1+1+1+1            | 5
6 | 6                    | 6
  | 5+1                  | 1, 5
  | 4+2                  | 2, 4
  | 4+1+1                | 2, 4
  | 3+3                  | 6
  | 3+2+1                | 1, 2, 3
  | 2+2+2                | 6
  | 2+2+1+1              | 2, 4
  | 1+1+1+1+1+1          | 6

Alois P. Heinz, Table of n, a(n) for n = 0..1000 (first 71 terms from Seiichi Manyama)

The weak version is A304405, ranked by A357875.
The weak opposite version is A304406, ranked by A357861.
The opposite version is A304430, ranked by A357864.
Number of rows in A354584 summing to n that are strictly increasing.
These partitions are ranked by A357862, complement A357863.
A000041 counts integer partitions, strict A000009.
A304442 counts partitions with equal run-sums, distinct A353837.
Cf. A047966, A087980, A098859, A100471, A239312, A275870, A353832, A353864.

Table[Length[Select[IntegerPartitions[n],Greater@@Total/@Split[#]&]],{n,0,30}] (* Gus Wiseman, Oct 21 2022 *)

a(n) <= A304405(n).

A304430 Number of partitions of n in which the sequence of the sum of the same summands is decreasing.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 5, 5, 6, 8, 10, 10, 13, 15, 18, 19, 22, 26, 33, 33, 38, 41, 50, 53, 60, 68, 77, 84, 94, 100, 116, 122, 136, 148, 172, 182, 206, 219, 246, 258, 281, 301, 341, 365, 397, 429, 466, 489, 528, 572, 623, 660, 728, 773, 849, 895, 968, 1019, 1120, 1188, 1288

Offset: 0

Seiichi Manyama, May 12 2018

nonn

Number of integer partitions of n with strictly increasing run-sums. - Gus Wiseman, Oct 22 2022

			n |                      | Sequence of the sum of the same summands
--+----------------------+-----------------------------------------
1 | 1                    | 1
2 | 2                    | 2
  | 1+1                  | 2
3 | 3                    | 3
  | 1+1+1                | 3
4 | 4                    | 4
  | 2+2                  | 4
  | 1+1+1+1              | 4
5 | 5                    | 5
  | 2+1+1+1              | 3, 2
  | 1+1+1+1+1            | 5
6 | 6                    | 6
  | 3+3                  | 6
  | 2+2+2                | 6
  | 2+1+1+1+1            | 4, 2
  | 1+1+1+1+1+1          | 6

The weak opposite version is A304405, ranked by A357875.
The weak version is A304406, ranked by A357861.
The opposite version is A304428, ranked by A357862.
Number of rows in A354584 summing to n that are strictly decreasing.
These partitions are ranked by A357864.
A000041 counts integer partitions, strict A000009.
A304442 counts partitions with equal run-sums, distinct A353837.
Cf. A047966, A087980, A098859, A100471, A100881, A239312, A275870, A353832, A353833, A353864.

Table[Length[Select[IntegerPartitions[n],Less@@Total/@Split[#]&]],{n,0,30}] (* Gus Wiseman, Oct 22 2022 *)

a(n) <= A304406(n).

A325244 Number of integer partitions of n with one fewer distinct multiplicities than distinct parts.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 3, 4, 7, 12, 16, 21, 33, 38, 50, 75, 87, 111, 150, 185, 244, 307, 373, 461, 585, 702, 856, 1043, 1255, 1498, 1822, 2143, 2565, 3064, 3607, 4251, 5064, 5920, 6953, 8174, 9503, 11064, 12927, 14921, 17320, 19986, 23067, 26485, 30499, 34894

Offset: 0

Gus Wiseman, Apr 15 2019

nonn

For example, (32211) has two distinct multiplicities (1, 2) and three distinct parts (1, 2, 3) so is counted under a(9).

The Heinz numbers of these partitions are given by A325259.

			The a(3) = 1 through a(10) = 16 partitions:
  (21)  (31)  (32)  (42)    (43)    (53)     (54)      (64)
              (41)  (51)    (52)    (62)     (63)      (73)
                    (2211)  (61)    (71)     (72)      (82)
                            (3211)  (3221)   (81)      (91)
                                    (3311)   (3321)    (3322)
                                    (4211)   (4221)    (4411)
                                    (32111)  (4311)    (5221)
                                             (5211)    (5311)
                                             (32211)   (6211)
                                             (42111)   (32221)
                                             (222111)  (33211)
                                             (321111)  (42211)
                                                       (43111)
                                                       (52111)
                                                       (421111)
                                                       (3211111)

Cf. A008284, A071625, A090858, A098859, A116608, A117571, A127002, A325242, A325259, A325270.

Table[Length[Select[IntegerPartitions[n],Length[Union[#]]==Length[Union[Length/@Split[#]]]+1&]],{n,0,30}]

A383711 Number of integer partitions of n with no ones such that it is not possible to choose a family of pairwise disjoint strict integer partitions, one of each part.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 1, 1, 3, 3, 4, 6, 10, 11, 17, 19, 30, 36, 51, 61, 84, 96, 133, 160, 209, 253, 325, 393, 488, 598, 744

Offset: 0

Gus Wiseman, May 07 2025

The Heinz numbers of these partitions are the odd terms of A382912.

Also the number of integer partitions of n with no ones whose normal multiset (in which i appears y_i times) is not a Look-and-Say partition.

			For y = (3,3) we can choose disjoint strict partitions ((2,1),(3)), so (3,3) is not counted under a(6).
The a(4) = 1 through a(12) = 10 partitions:
  (22)  .  (222)  (322)  (332)   (333)   (622)    (443)    (444)
                         (422)   (522)   (3322)   (722)    (822)
                         (2222)  (3222)  (4222)   (3332)   (3333)
                                         (22222)  (4322)   (4332)
                                                  (5222)   (4422)
                                                  (32222)  (5322)
                                                           (6222)
                                                           (33222)
                                                           (42222)
                                                           (222222)

The complement without ones is counted by A383533.
The number of these families is A383706.
Allowing ones gives A383710 (ranks A382912), complement A383708 (ranks A382913).
A048767 is the Look-and-Say transform, fixed points A048768 (counted by A217605).
A098859 counts partitions with distinct multiplicities, compositions A242882.
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. A044813, A047966, A089259, A116540, A130091, A317141, A318361, A381441, A381454, A383013.

pof[y_]:=Select[Join@@@Tuples[IntegerPartitions/@y],UnsameQ@@#&];
Table[Length[Select[IntegerPartitions[n],FreeQ[#,1]&&pof[#]=={}&]],{n,0,15}]

A171979 Number of partitions of n such that smaller parts do not occur more frequently than greater parts.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 8, 8, 12, 14, 19, 21, 30, 31, 42, 50, 62, 69, 91, 99, 126, 144, 175, 198, 246, 275, 331, 379, 452, 509, 612, 686, 811, 922, 1076, 1219, 1428, 1604, 1863, 2108, 2434, 2739, 3162, 3551, 4075, 4593, 5240, 5885, 6721, 7527, 8556, 9597, 10870

Offset: 0

Reinhard Zumkeller, Jan 20 2010

nonn

A000009(n) <= a(n) <= A000041(n).
Equivalently, the number of partitions of n such that (maximal multiplicity of parts) = (multiplicity of the maximal part), as in the Mathematica program. - Clark Kimberling, Apr 04 2014
Also the number of integer partitions of n whose greatest part is a mode, meaning it appears at least as many times as each of the others. The name "Number of partitions of n such that smaller parts do not occur more frequently than greater parts" seems to describe A100882 = "Number of partitions of n in which the sequence of frequencies of the summands is nonincreasing," which first differs from this at n = 10 due to the partition (3,3,2,1,1). - Gus Wiseman, May 07 2023

			a(5) = #{5, 4+1, 3+2, 2+2+1, 5x1} = 5;
a(6) = #{6, 5+1, 4+2, 3+3, 3+2+1, 2+2+2, 2+2+1+1, 6x1} = 8;
a(7) = #{7, 6+1, 5+2, 4+3, 4+2+1, 3+3+1, 2+2+2+1, 7x1} = 8;
a(8) = #{8, 7+1, 6+2, 5+3, 5+2+1, 4+4, 4+3+1, 3+3+2, 3+3+1+1, 2+2+2+2, 2+2+2+1+1, 8x1} = 12.

Alois P. Heinz, Table of n, a(n) for n = 0..1000
Index entries for sequences related to partitions

For median instead of mode we have A053263.
The complement is counted by A240302.
The case where the maximum is the only mode is A362612.
A000041 counts integer partitions, strict A000009.
A362608 counts partitions with a unique mode, complement A362607.
A362611 counts modes in prime factorization.
A362614 counts partitions by number of modes.
Cf. A002865, A008284, A098859, A237984, A275870, A325347, A362610.

z = 60; f[n_] := f[n] = IntegerPartitions[n]; m[p_] := Max[Map[Length, Split[p]]]  (* maximal multiplicity *)
Table[Count[f[n], p_ /; m[p] == Count[p, Max[p]]], {n, 0, z}] (* this sequence *)
Table[Count[f[n], p_ /; m[p] > Count[p, Max[p]]], {n, 0, z}]  (* A240302 *)
(* Clark Kimberling, Apr 04 2014 *)
(* Second program: *)
b[n_, i_, k_] := b[n, i, k] = If[n == 0, If[k == 0, 1, 0],
     If[i < 1, 0, b[n, i - 1, k] + Sum[b[n - i*j, i - 1,
     If[k == -1, j, If[k == 0, 0, If[j > k, 0, k]]]], {j, 1, n/i}]]];
a[n_] := PartitionsP[n] - b[n, n, -1];
a /@ Range[0, 70] (* Jean-François Alcover, Jun 05 2021, after Alois P. Heinz in A240302 *)
Table[Length[Select[IntegerPartitions[n],MemberQ[Commonest[#],Max[#]]&]],{n,0,30}] (* Gus Wiseman, May 07 2023 *)

{ my(N=53, x='x+O('x^N));
my(gf=1+sum(i=1,N,sum(j=1,floor(N/i),x^(i*j)*prod(k=1,i-1,(1-x^(k*(j+1)))/(1-x^k)))));
Vec(gf) } \\ John Tyler Rascoe, Mar 09 2024

a(n) = p(n,0,1,1) with p(n,i,j,k) = if k<=n then p(n-k,i,j+1,k) +p(n,max(i,j),1,k+1) else (if j0 then 0 else 1).

a(n) + A240302(n) = A000041(n). - Clark Kimberling, Apr 04 2014.

G.f.: 1 + Sum_{i, j>0} x^(i*j) * Product_{k=1..i-1} ((1 - x^(k*(j+1)))/(1 - x^k)). - John Tyler Rascoe, Mar 09 2024

cp's OEIS Frontend

A304405 Number of partitions of n in which the sequence of the sum of the same summands is nondecreasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A351201 Numbers whose multiset of prime factors has a permutation without all distinct runs.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A351204 Number of integer partitions of n such that every permutation has all distinct runs.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A304428 Number of partitions of n in which the sequence of the sum of the same summands is increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A304430 Number of partitions of n in which the sequence of the sum of the same summands is decreasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A325244 Number of integer partitions of n with one fewer distinct multiplicities than distinct parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383711 Number of integer partitions of n with no ones such that it is not possible to choose a family of pairwise disjoint strict integer partitions, one of each part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A171979 Number of partitions of n such that smaller parts do not occur more frequently than greater parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica