A115029 -id:A115029 - cp's OEIS frontend

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

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

A374699 Number of integer compositions of n whose leaders of maximal anti-runs are not weakly decreasing.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 2, 5, 14, 34, 78, 180, 407, 907, 2000, 4364, 9448, 20323, 43448, 92400, 195604, 412355, 866085, 1813035, 3783895, 7875552

Offset: 0

Gus Wiseman, Aug 06 2024

The leaders of maximal anti-runs in a sequence are obtained by splitting it into maximal consecutive anti-runs (sequences with no adjacent equal terms) and taking the first term of each.

			The a(0) = 0 through a(8) = 14 compositions:
  .  .  .  .  .  (122)  (1122)  (133)    (233)
                        (1221)  (1222)   (1133)
                                (11122)  (1223)
                                (11221)  (1322)
                                (12211)  (1331)
                                         (11222)
                                         (12122)
                                         (12212)
                                         (12221)
                                         (21122)
                                         (111122)
                                         (111221)
                                         (112211)
                                         (122111)

Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

The complement is counted by A374682.
Other types of runs (instead of anti-):
- For leaders of identical runs we have A056823.
- For leaders of weakly increasing runs we have A374636, complement A189076?
- For leaders of strictly increasing runs: A375135, complement A374697.
Other types of run-leaders (instead of weakly decreasing):
- For identical leaders we have A374640, ranks A374520, complement A374517, ranks A374519.
- For distinct leaders we have A374678, ranks A374639, complement A374518, ranks A374638.
- For weakly increasing leaders we have complement A374681.
- For strictly increasing leaders we have complement complement A374679.
- For strictly decreasing leaders we have complement A374680.
A003242 counts anti-runs, ranks A333489.
A106356 counts compositions by number of maximal anti-runs.
A238279 counts compositions by number of maximal runs
A238424 counts partitions whose first differences are an anti-run.
A274174 counts contiguous compositions, ranks A374249.
A333381 counts maximal anti-runs in standard compositions.
Cf. A115029, A238343, A333213, A373949, A374515, A374632, A374635, A374700.

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

cp's OEIS Frontend

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

A374699 Number of integer compositions of n whose leaders of maximal anti-runs are not weakly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica