A374704 -id:A374704 - cp's OEIS frontend

A374686 Number of integer compositions of n whose leaders of strictly increasing runs are identical.

1, 1, 2, 3, 6, 9, 17, 29, 51, 91, 162, 291, 523, 948, 1712, 3112, 5656, 10297, 18763, 34217, 62442, 114006, 208239, 380465, 695342, 1271046, 2323818, 4249113, 7770389, 14210991, 25991853, 47541734, 86962675, 159077005, 291001483, 532345978, 973871397

Offset: 0

Gus Wiseman, Jul 27 2024

nonn

The leaders of strictly increasing runs in a sequence are obtained by splitting it into maximal strictly increasing subsequences and taking the first term of each.

Also the number of ways to choose a strict integer partition of each part of an integer composition of n (A304969) such that the minima are identical. For maxima instead of minima we have A374760. For all partitions (not just strict) we have A374704, for maxima A358905.

			The composition (2,3,2,2,3,4) has strictly increasing runs ((2,3),(2),(2,3,4)), with leaders (2,2,2), so is counted under a(16).
The a(0) = 1 through a(6) = 17 compositions:
  ()  (1)  (2)   (3)    (4)     (5)      (6)
           (11)  (12)   (13)    (14)     (15)
                 (111)  (22)    (23)     (24)
                        (112)   (113)    (33)
                        (121)   (131)    (114)
                        (1111)  (1112)   (123)
                                (1121)   (141)
                                (1211)   (222)
                                (11111)  (1113)
                                         (1131)
                                         (1212)
                                         (1311)
                                         (11112)
                                         (11121)
                                         (11211)
                                         (12111)
                                         (111111)

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

Ranked by A374685.
Types of runs (instead of strictly increasing):
- For leaders of identical runs we have A000005 for n > 0, ranks A272919.
- For leaders of anti-runs we have A374517, ranks A374519.
- For leaders of weakly increasing runs we have A374631, ranks A374633.
- For leaders of weakly decreasing runs we have A374742, ranks A374744.
- For leaders of strictly decreasing runs we have A374760, ranks A374759.
Types of run-leaders (instead of identical):
- For distinct leaders we have A374687, ranks A374698.
- For strictly increasing leaders we have A374688.
- For strictly decreasing leaders we have A374689.
- For weakly increasing leaders we have A374690.
- For weakly decreasing leaders we have A374697.
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.
A335456 counts patterns matched by compositions.
A335548 counts non-contiguous compositions, ranks A374253.
A373949 counts compositions by run-compressed sum, opposite A373951.
A374683 lists leaders of strictly increasing runs of standard compositions.
A374700 counts compositions by sum of leaders of strictly increasing runs.
Cf. A000009, A106356, A188920, A189076, A238343, A304969, A333213, A374632, A374634, A374635, A374640.

Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],SameQ@@First/@Split[#,Less]&]],{n,0,15}]

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

a(26) onwards from Andrew Howroyd, Jul 27 2024

A375133 Number of integer partitions of n whose maximal anti-runs have distinct maxima.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 5, 8, 10, 14, 17, 23, 29, 38, 47, 60, 74, 93, 113, 141, 171, 211, 253, 309, 370, 447, 532, 639, 758, 904, 1066, 1265, 1487, 1754, 2053, 2411, 2813, 3289, 3823, 4454, 5161, 5990, 6920, 8005, 9223, 10634, 12218, 14048, 16101, 18462, 21107

Offset: 0

Gus Wiseman, Aug 14 2024

nonn

An anti-run is a sequence with no adjacent equal parts.
These are partitions with no part appearing more than twice and greatest part appearing only once.
Also the number of reversed integer partitions of n whose maximal anti-runs have distinct maxima.

			The partition y = (6,5,5,4,3,3,2,1) has maximal anti-runs ((6,5),(5,4,3),(3,2,1)), with maxima (6,5,3), so y is counted under a(29).
The a(0) = 1 through a(9) = 14 partitions:
  ()  (1)  (2)  (3)   (4)    (5)    (6)    (7)     (8)     (9)
                (21)  (31)   (32)   (42)   (43)    (53)    (54)
                      (211)  (41)   (51)   (52)    (62)    (63)
                             (311)  (321)  (61)    (71)    (72)
                                    (411)  (322)   (422)   (81)
                                           (421)   (431)   (432)
                                           (511)   (521)   (522)
                                           (3211)  (611)   (531)
                                                   (3221)  (621)
                                                   (4211)  (711)
                                                           (4221)
                                                           (4311)
                                                           (5211)
                                                           (32211)

John Tyler Rascoe, Table of n, a(n) for n = 0..300

Includes all strict partitions A000009.
For identical instead of distinct see: A034296, A115029, A374760, A374759.
For compositions instead of partitions we have A374761.
For minima instead of maxima we have A375134, ranks A375398.
The complement is counted by A375401, ranks A375403.
These partitions are ranked by A375402, for compositions A374767.
The complement for minima instead of maxima is A375404, ranks A375399.
A000041 counts integer partitions.
A003242 counts anti-run compositions, ranks A333489.
A011782 counts integer compositions.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums A374706.
Cf. A141199, A279790, A358830, A358833, A358836, A358905, A374704, A374757, A374758, A375136, A375400.

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

A_x(N) = {my(x='x+O('x^N), f=sum(i=0,N,(x^i)*prod(j=1,i-1,(1-x^(3*j))/(1-x^j)))); Vec(f)}
A_x(51) \\ John Tyler Rascoe, Aug 21 2024

G.f.: Sum_{i>=0} (x^i * Product_{j=1..i-1} (1-x^(3*j))/(1-x^j)). - John Tyler Rascoe, Aug 21 2024

A375134 Number of integer partitions of n whose maximal anti-runs have distinct minima.

Original entry on oeis.org

1, 1, 1, 2, 2, 4, 4, 6, 8, 11, 12, 18, 21, 28, 33, 43, 52, 66, 78, 98, 116, 145, 171, 209, 247, 300, 352, 424, 499, 595, 695, 826, 963, 1138, 1322, 1553, 1802, 2106, 2435, 2835, 3271, 3795, 4365, 5046, 5792, 6673, 7641, 8778, 10030, 11490, 13099, 14968, 17030

Offset: 0

Gus Wiseman, Aug 14 2024

nonn

These are partitions with no part appearing more than twice and with the least part appearing only once.

Also the number of reversed integer partitions of n whose maximal anti-runs have distinct minima.

			The partition y = (6,5,5,4,3,3,2,1) has maximal anti-runs ((6,5),(5,4,3),(3,2,1)), with minima (5,3,1), so y is counted under a(29).
The a(1) = 1 through a(9) = 11 partitions:
  (1)  (2)  (3)   (4)   (5)    (6)    (7)    (8)     (9)
            (12)  (13)  (14)   (15)   (16)   (17)    (18)
                        (23)   (24)   (25)   (26)    (27)
                        (122)  (123)  (34)   (35)    (36)
                                      (124)  (125)   (45)
                                      (133)  (134)   (126)
                                             (233)   (135)
                                             (1223)  (144)
                                                     (234)
                                                     (1224)
                                                     (1233)

John Tyler Rascoe, Table of n, a(n) for n = 0..300

Includes all strict partitions A000009.
For identical instead of distinct leaders we have A115029.
A version for compositions instead of partitions is A374518, ranks A374638.
For minima instead of maxima we have A375133, ranks A375402.
These partitions have ranks A375398.
The complement is counted by A375404, ranks A375399.
A000041 counts integer partitions.
A003242 counts anti-run compositions, ranks A333489.
A011782 counts integer compositions.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums A374706.
Cf. A034296, A141199, A358830, A358836, A358905, A374704, A374757, A374758, A374761, A375136, A375400, A375401.

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

A_x(N) = {my(x='x+O('x^N), f=1+sum(i=1,N,(x^i)*prod(j=i+1,N-i,(1-x^(3*j))/(1-x^j)))); Vec(f)}
A_x(51) \\ John Tyler Rascoe, Aug 21 2024

G.f.: 1 + Sum_{i>0} (x^i * Product_{j>i} (1-x^(3*j))/(1-x^j)). - John Tyler Rascoe, Aug 21 2024

A375396 Numbers not divisible by the square of any prime factor except (possibly) the least. Hooklike numbers.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71

Offset: 1

Gus Wiseman, Aug 16 2024

nonn

Also numbers k such that the minima of the maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are identical. Here, an anti-run is a sequence with no adjacent equal parts, and the minima of the maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each. Note the prime factors can alternatively be taken in weakly decreasing order.
The complement is a superset of A036785 = products of a squarefree number and a prime power.
The asymptotic density of this sequence is (1/zeta(2)) * (1 + Sum_{p prime} (1/(p^2-p)) / Product_{primes q <= p} (1 + 1/q)) = 0.884855661165... . - Amiram Eldar, Oct 26 2024

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

Amiram Eldar, Table of n, a(n) for n = 1..10000
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

The complement is a superset of A036785.
For maxima instead of minima we have A065200, counted by A034296.
The complement for maxima is A065201, counted by A239955.
Partitions of this type are counted by A115029.
A version for compositions is A374519, counted by A374517.
Also positions of identical rows in A375128, sums A374706, ranks A375400.
The complement is A375397, counted by A375405.
For distinct instead of identical minima we have A375398, counts A375134.
The complement for distinct minima is A375399, counted by A375404.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A011782 comps counts compositions.
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.
See the formula section for the relationships with A005117, A028234.
Cf. A000005, A013661, A046660, A272919, A319066, A358905, A374686, A374704, A374742, A375133, A375136, A375401.

Select[Range[100],SameQ@@Min /@ Split[Flatten[ConstantArray@@@FactorInteger[#]],UnsameQ]&]

is(k) = if(k > 1, my(e = factor(k)[, 2]); vecprod(e) == e[1], 1); \\ Amiram Eldar, Oct 26 2024

{a(n)} = {k >= 1 : A028234(k) is in A005117}. - Peter Munn, May 09 2025

A375397 Numbers divisible by the square of some prime factor other than the least. Non-hooklike numbers.

Original entry on oeis.org

18, 36, 50, 54, 72, 75, 90, 98, 100, 108, 126, 144, 147, 150, 162, 180, 196, 198, 200, 216, 225, 234, 242, 245, 250, 252, 270, 288, 294, 300, 306, 324, 338, 342, 350, 360, 363, 375, 378, 392, 396, 400, 414, 432, 441, 450, 468, 484, 486, 490, 500, 504, 507, 522

Offset: 1

Gus Wiseman, Aug 16 2024

nonn

Contains no squarefree numbers A005117 or prime powers A000961, but some perfect powers A131605.
Also numbers k such that the minima of the maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are not identical. Here, an anti-run is a sequence with no adjacent equal parts, and the minima of the maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each. Note the prime factors can alternatively be taken in weakly decreasing order.
Includes all terms of A036785 = non-products of a squarefree number and a prime power.
The asymptotic density of this sequence is 1 - (1/zeta(2)) * (1 + Sum_{p prime} (1/(p^2-p)) / Product_{primes q <= p} (1 + 1/q)) = 0.11514433883... . - Amiram Eldar, Oct 26 2024

			The prime factors of 300 are {2,2,3,5,5}, with maximal anti-runs ((2),(2,3,5),(5)), with minima (2,2,5), so 300 is in the sequence.
The terms together with their prime indices begin:
    18: {1,2,2}
    36: {1,1,2,2}
    50: {1,3,3}
    54: {1,2,2,2}
    72: {1,1,1,2,2}
    75: {2,3,3}
    90: {1,2,2,3}
    98: {1,4,4}
   100: {1,1,3,3}
   108: {1,1,2,2,2}
   126: {1,2,2,4}
   144: {1,1,1,1,2,2}

Amiram Eldar, Table of n, a(n) for n = 1..10000

A superset of A036785.
The complement for maxima is A065200, counted by A034296.
For maxima instead of minima we have A065201, counted by A239955.
A version for compositions is A374520, counted by A374640.
Also positions of non-constant rows in A375128, sums A374706, ranks A375400.
The complement is A375396, counted by A115029.
The complement for distinct minima is A375398, counted by A375134.
For distinct instead of identical minima we have A375399, counts A375404.
Partitions of this type are counted by A375405.
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. A000005, A013661, A046660, A272919, A319066, A358905, A374686, A374704, A374742, A375133, A375136, A375401.

Select[Range[100],!SameQ@@Min /@ Split[Flatten[ConstantArray@@@FactorInteger[#]],UnsameQ]&]

is(k) = if(k > 1, my(e = factor(k)[, 2]); vecprod(e) > e[1], 0); \\ Amiram Eldar, Oct 26 2024

Name edited by Peter Munn, May 08 2025

A375405 Number of integer partitions of n with a repeated part other than the least.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 3, 5, 8, 13, 20, 29, 42, 62, 83, 117, 158, 214, 283, 377, 488, 641, 823, 1058, 1345, 1714, 2154, 2713, 3387, 4222, 5230, 6474, 7959, 9782, 11956, 14591, 17737, 21529, 26026, 31422, 37811, 45425, 54418, 65097, 77652, 92510, 109943, 130468

Offset: 0

Gus Wiseman, Aug 17 2024

nonn

Also partitions whose minima of maximal anti-runs are not identical. 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.

			The a(0) = 0 through a(10) = 13 partitions:
  .  .  .  .  .  (221)  (2211)  (331)    (332)     (441)      (442)
                                (2221)   (3221)    (3321)     (3322)
                                (22111)  (3311)    (4221)     (3331)
                                         (22211)   (22221)    (4411)
                                         (221111)  (32211)    (5221)
                                                   (33111)    (32221)
                                                   (222111)   (33211)
                                                   (2211111)  (42211)
                                                              (222211)
                                                              (322111)
                                                              (331111)
                                                              (2221111)
                                                              (22111111)

Alois P. Heinz, Table of n, a(n) for n = 0..5000 (first 101 terms from John Tyler Rascoe)
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

The complement for maxima instead of minima is A034296.
The complement is counted by A115029, ranks A375396.
For maxima instead of minima we have A239955, ranks A073492.
These partitions have ranks A375397.
For distinct instead of identical we have A375404, ranks A375399.
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. A046660, A065200, A065201, A141199, A358836, A374704, A375133, A375134, A375136, A375401.

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

A_x(N) = {my(x='x+O('x^N), f=sum(i=1,N,sum(j=i+1,N-i, ((x^(i+(2*j)))/(1-x^i))*prod(k=i+1,N-i-(2*j), if(kJohn Tyler Rascoe, Aug 21 2024

G.f.: Sum_{i>0} (Sum_{j>i} ( (x^(i+(2*j)))/(1-x^i) * Product_{k>=i} (1-[kJohn Tyler Rascoe, Aug 21 2024

cp's OEIS Frontend

A374686 Number of integer compositions of n whose leaders of strictly increasing runs are identical.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A375133 Number of integer partitions of n whose maximal anti-runs have distinct maxima.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A375134 Number of integer partitions of n whose maximal anti-runs have distinct minima.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A375396 Numbers not divisible by the square of any prime factor except (possibly) the least. Hooklike numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A375397 Numbers divisible by the square of some prime factor other than the least. Non-hooklike numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A375405 Number of integer partitions of n with a repeated part other than the least.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula