A065201 -id:A065201 - cp's OEIS frontend

A065202 Characteristic function of A065201: a(n) = if A065201(k) = n for some k then 1 else 0.

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0

Offset: 1

Reinhard Zumkeller, Oct 21 2001

nonn

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for characteristic functions.

Cf. A051119, A053585, A065201, A065200, A070003, A107078.

a[n_] := If[Max[Most[FactorInteger[n][[;;, 2]]]] > 1, 1, 0]; Array[a, 100] (* Amiram Eldar, Mar 19 2025 *)

A053585(n) = if(n>1, my(f=factor(n)); f[#f~, 1]^f[#f~, 2], 1) \\ Charles R Greathouse IV, Nov 10 2015
A051119(n) = (n/A053585(n));
A065202(n) = (1-abs(moebius(A051119(n)))); \\ Antti Karttunen, Aug 27 2017

a(n) = {my(e = factor(n)[,2]); #e > 1 && vecmax(e[1..#e-1]) > 1;} \\ Amiram Eldar, Mar 19 2025

a(A065200(n)) = 0 and a(A065201(n)) = 1.

a(n) = A107078(A051119(n)). - Antti Karttunen, Aug 27 2017

Edited by Franklin T. Adams-Watters, Oct 27 2006

A239955 Number of partitions p of n such that (number of distinct parts of p) <= max(p) - min(p).

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 4, 7, 12, 17, 27, 38, 54, 75, 104, 137, 187, 245, 322, 418, 542, 691, 887, 1121, 1417, 1777, 2228, 2767, 3441, 4247, 5235, 6424, 7871, 9594, 11688, 14173, 17168, 20723, 24979, 30008, 36010, 43085, 51479, 61357, 73032, 86718, 102852, 121718

Offset: 0

Clark Kimberling, Mar 30 2014

From Gus Wiseman, Jun 26 2022: (Start)
Also the number of partitions of n with at least one gap, i.e., partitions whose parts do not form a contiguous interval. These partitions are ranked by A073492. For example, the a(0) = 0 through a(8) = 12 partitions are:
  .  .  .  .  (31)  (41)   (42)    (52)     (53)
                    (311)  (51)    (61)     (62)
                           (411)   (331)    (71)
                           (3111)  (421)    (422)
                                   (511)    (431)
                                   (4111)   (521)
                                   (31111)  (611)
                                            (3311)
                                            (4211)
                                            (5111)
                                            (41111)
                                            (311111)
Also the number of non-constant partitions of n with a repeated non-maximal part, ranked by A065201. The a(0) = 0 through a(8) = 12 partitions are:
  .  .  .  .  (211)  (311)   (411)    (322)     (422)
                     (2111)  (2211)   (511)     (611)
                             (3111)   (3211)    (3221)
                             (21111)  (4111)    (3311)
                                      (22111)   (4211)
                                      (31111)   (5111)
                                      (211111)  (22211)
                                                (32111)
                                                (41111)
                                                (221111)
                                                (311111)
                                                (2111111)
(End)

			a(6) counts these 4 partitions:  51, 42, 411, 3111.

Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 201 terms from John Tyler Rascoe)

Cf. A239954, A239956, A239958.
The complement is counted by A034296 (strict A137793), ranked by A073491.
These partitions are ranked by A073492, conjugate A065201.
Applying the condition to the conjugate gives A350839, ranked by A350841.
A000041 counts integer partitions, strict A000009.
A090858 counts partitions with a single hole, ranked by A325284.
A116931 counts partitions with differences != -1, strict A003114.
A116932 counts partitions with differences != -1 or -2, strict A025157.
Cf. A000070, A001227, A008284, A144300, A183558, A321440.

b:= proc(n, i) option remember; `if`(n=0, 1,
      `if`(i<1, 0, add(b(n-i*j, i-1), j=1..n/i)))
    end:
a:= n-> combinat[numbpart](n)-add(b(n, k), k=0..n):
seq(a(n), n=0..47);  # Alois P. Heinz, Aug 18 2025

z = 60; d[p_] := d[p] = Length[DeleteDuplicates[p]]; f[p_] := f[p] = Max[p] - Min[p]; g[n_] := g[n] = IntegerPartitions[n];
Table[Count[g[n], p_ /; d[p] < f[p]], {n, 0, z}]  (*A239954*)
Table[Count[g[n], p_ /; d[p] <= f[p]], {n, 0, z}] (*A239955*)
Table[Count[g[n], p_ /; d[p] == f[p]], {n, 0, z}] (*A239956*)
Table[Count[g[n], p_ /; d[p] > f[p]], {n, 0, z}]  (*A034296*)
Table[Count[g[n], p_ /; d[p] >= f[p]], {n, 0, z}] (*A239958*)
(* second program *)
Table[Length[Select[IntegerPartitions[n],Min@@Differences[#]<-1&]],{n,0,30}] (* Gus Wiseman, Jun 26 2022 *)

qs(a,q,n) = {prod(k=0,n,1-a*q^k)}
A_q(N) = {if(N<4, vector(N+1,i,0), my(q='q+O('q^(N-2)), g= sum(i=2,N+1, q^i/qs(q,q,i-1)*sum(j=1,i-1, q^(2*j)*qs(q^2,q^2,j-2)))); concat([0,0,0,0], Vec(g)))} \\ John Tyler Rascoe, Aug 16 2025

a(n) = A000041(n) - A034296(n).

G.f.: Sum_{i>1} q^i/(q;q){i-1} * Sum{j=1..i-1} (q^2;q^2){j-2} where (a;q)_k = Product{i>=0..k} (1-a*q^i). - John Tyler Rascoe, Aug 16 2025

A350839 Number of integer partitions of n with a difference < -1 and a conjugate difference < -1.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 2, 3, 7, 11, 17, 26, 39, 54, 81, 108, 148, 201, 269, 353, 467, 601, 779, 995, 1272, 1605, 2029, 2538, 3171, 3941, 4881, 6012, 7405, 9058, 11077, 13478, 16373, 19817, 23953, 28850, 34692, 41599, 49802, 59461, 70905, 84321, 100155, 118694

Offset: 0

Gus Wiseman, Jan 24 2022

nonn

We define a difference of a partition to be a difference of two adjacent parts.

			The a(5) = 1 through a(10) = 17 partitions:
  (311)  (411)   (511)    (422)     (522)      (622)
         (3111)  (4111)   (611)     (711)      (811)
                 (31111)  (3311)    (4221)     (4222)
                          (4211)    (4311)     (4411)
                          (5111)    (5211)     (5221)
                          (41111)   (6111)     (5311)
                          (311111)  (33111)    (6211)
                                    (42111)    (7111)
                                    (51111)    (42211)
                                    (411111)   (43111)
                                    (3111111)  (52111)
                                               (61111)
                                               (331111)
                                               (421111)
                                               (511111)
                                               (4111111)
                                               (31111111)

Allowing -1 gives A144300 = non-constant partitions.
Taking one of the two conditions gives A239955, ranked by A073492, A065201.
These partitions are ranked by A350841.
A000041 = integer partitions, strict A000009.
A034296 = flat (contiguous) partitions, strict A001227.
A073491 = numbers whose prime indices have no gaps, strict A137793.
A090858 = partitions with a single hole, ranked by A325284.
A116931 = partitions with differences != -1, strict A003114.
A116932 = partitions with differences != -1 or -2, strict A025157.
A277103 = partitions with the same number of odd parts as their conjugate.
A350837 = partitions with no adjacent doublings, strict A350840.
A350842 = partitions with differences != -2, strict A350844, sets A005314.
Cf. A000070, A000929, A008284, A040039, A183558, A319630, A321440, A350838.

conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],(Min@@Differences[#]<-1)&&(Min@@Differences[conj[#]]<-1)&]],{n,0,30}]

A065200 Numbers of the form m * p^k, with p prime, k >= 0, m squarefree and p > any prime factor of m.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89, 91, 93

Offset: 1

Reinhard Zumkeller, Oct 21 2001

nonn

This sequence does not contain any arithmetic progression. The first 24 terms coincide with A053460.

			a(17) = 18 = 2 * 3^2, whereas A065201(4) = 28 = 2^2 * 7 as 2 < 7.

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

Cf. A005117, A065201, A065202.

q[k_] := Max[Most[FactorInteger[k][[;;, 2]]]] < 2; Select[Range[100], q] (* Amiram Eldar, Mar 19 2025 *)

isok(k) = {my(e = factor(k)[,2]); #e < 2 || vecmax(e[1..#e-1]) == 1;} \\ Amiram Eldar, Mar 19 2025

Edited by Franklin T. Adams-Watters, Oct 27 2006

A350841 Heinz numbers of integer partitions with a difference < -1 and a conjugate difference < -1.

Original entry on oeis.org

20, 28, 40, 44, 52, 56, 63, 68, 76, 80, 84, 88, 92, 99, 100, 104, 112, 116, 117, 124, 126, 132, 136, 140, 148, 152, 153, 156, 160, 164, 168, 171, 172, 176, 184, 188, 189, 196, 198, 200, 204, 207, 208, 212, 220, 224, 228, 232, 234, 236, 244, 248, 252, 260, 261

Offset: 1

Gus Wiseman, Jan 26 2022

nonn

We define a difference of a partition to be a difference of two adjacent parts.

			The terms together with their prime indices begin:
   20: (3,1,1)
   28: (4,1,1)
   40: (3,1,1,1)
   44: (5,1,1)
   52: (6,1,1)
   56: (4,1,1,1)
   63: (4,2,2)
   68: (7,1,1)
   76: (8,1,1)
   80: (3,1,1,1,1)
   84: (4,2,1,1)
   88: (5,1,1,1)
   92: (9,1,1)
   99: (5,2,2)

Heinz number rankings are in parentheses below.
Taking just one condition gives (A073492) and (A065201), counted by A239955.
These partitions are counted by A350839.
A000041 = integer partitions, strict A000009.
A034296 = partitions with no gaps (A073491), strict A001227 (A073485).
A090858 = partitions with a single gap of size 1 (A325284).
A116931 = partitions with no successions (A319630), strict A003114.
A116932 = partitions with no successions or gaps of size 1, strict A025157.
A350842 = partitions with no gaps of size 1, strict A350844, sets A005314.
Cf. A000070, A024619, A026424, A055932, A183558, A277103, A305148, A321440, A350838.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],(Min@@Differences[Reverse[primeMS[#]]]<-1)&&(Min@@Differences[conj[primeMS[#]]]<-1)&]

A375398 Numbers k such that the minima of maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are distinct.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 50, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 82, 83, 85, 86, 87, 89, 90, 91, 93, 94, 95, 97, 98

Offset: 1

Gus Wiseman, Aug 16 2024

nonn

First differs from A375402 in lacking 20.
An anti-run is a sequence with no adjacent equal parts.
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.
Note the prime factors can alternatively be taken in weakly decreasing order.

			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.
The prime factors of 450 are {2,3,3,5,5}, with maximal anti-runs ((2,3),(3,5),(5)), with minima (2,3,5), so 450 is in the sequence.

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

A version for compositions is A374638, counted by A374518.
These are positions of strict rows in A375128, sums A374706, ranks A375400.
Partitions (or reversed partitions) of this type are counted by A375134.
For identical instead of distinct we have A375396, counted by A115029.
The complement is A375399, counted by A375404.
For maxima instead of minima we have A375402, counted by A375133.
The complement for maxima 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. A034296, A036785, A046660, A065200, A065201, A358836, A374632, A374761, A374767, A374768, A375136.

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

A375399 Numbers k such that the minima of maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are not distinct.

Original entry on oeis.org

4, 8, 9, 12, 16, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 52, 54, 56, 60, 63, 64, 68, 72, 76, 80, 81, 84, 88, 92, 96, 99, 100, 104, 108, 112, 116, 117, 120, 121, 124, 125, 128, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 162, 164, 168, 169, 171

Offset: 1

Gus Wiseman, Aug 16 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.
Note the prime factors can alternatively be taken in weakly decreasing order.

			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 prime factors of 450 are {2,3,3,5,5}, with maximal anti-runs ((2,3),(3,5),(5)), with minima (2,3,5), so 450 is not in the sequence.
The terms together with their prime indices begin:
     4: {1,1}
     8: {1,1,1}
     9: {2,2}
    12: {1,1,2}
    16: {1,1,1,1}
    20: {1,1,3}
    24: {1,1,1,2}
    25: {3,3}
    27: {2,2,2}
    28: {1,1,4}
    32: {1,1,1,1,1}
    36: {1,1,2,2}
    40: {1,1,1,3}
    44: {1,1,5}
    45: {2,2,3}
    48: {1,1,1,1,2}

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

The complement for compositions is A374638, counted by A374518.
A version for compositions is A374639, counted by A374678.
Positions of non-strict rows in A375128, sums A374706, ranks A375400.
For identical instead of strict we have A375397, counted by A375405.
The complement is A375398, counted by A375134.
The complement for maxima instead of minima is A375402, counted by A375133.
For maxima instead of minima we have A375403, counted by A375401.
Partitions (or reversed partitions) of this type are counted by A375404.
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. A034296, A046660, A065200, A065201, A115029, A279790, A374632, A374761, A375136, A375396.

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

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

A332832 Heinz numbers of integer partitions whose negated first differences (assuming the last part is zero) are not unimodal.

Original entry on oeis.org

12, 20, 24, 28, 36, 40, 44, 45, 48, 52, 56, 60, 63, 68, 72, 76, 80, 84, 88, 90, 92, 96, 99, 100, 104, 108, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 164, 165, 168, 171, 172, 175, 176, 180, 184, 188, 189, 192, 195, 196, 198

Offset: 1

Gus Wiseman, Mar 02 2020

nonn

First differs from A065201 in having 165.
First differs from A316597 in having 36.
A sequence of integers is unimodal if it is the concatenation of a weakly increasing and a weakly decreasing sequence.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   36: {1,1,2,2}
   40: {1,1,1,3}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   68: {1,1,7}
   72: {1,1,1,2,2}
   76: {1,1,8}
   80: {1,1,1,1,3}
   84: {1,1,2,4}
   88: {1,1,1,5}
   90: {1,2,2,3}
For example, 60 is the Heinz number of (3,2,1,1), with negated 0-appended first-differences (1,1,0,1), which are not unimodal, so 60 is in the sequence.

MathWorld, Unimodal Sequence
Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

The non-negated version is A332287.
The version for of run-lengths (instead of differences) is A332642.
The enumeration of these partitions by sum is A332744.
Unimodal compositions are A001523.
Non-unimodal compositions are A115981.
Heinz numbers of partitions with non-unimodal run-lengths are A332282.
Partitions whose 0-appended first differences are unimodal are A332283.
Compositions whose negation is unimodal are A332578.
Compositions whose negation is not unimodal are A332669.
Cf. A059204, A227038, A332284, A332285, A332286, A332578, A332638, A332639, A332670, A332725, A332728.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]];
Select[Range[100],!unimodQ[Differences[Prepend[primeMS[#],0]]]&]

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

cp's OEIS Frontend

A065202 Characteristic function of A065201: a(n) = if A065201(k) = n for some k then 1 else 0.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

Extensions

A239955 Number of partitions p of n such that (number of distinct parts of p) <= max(p) - min(p).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A350839 Number of integer partitions of n with a difference < -1 and a conjugate difference < -1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A065200 Numbers of the form m * p^k, with p prime, k >= 0, m squarefree and p > any prime factor of m.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A350841 Heinz numbers of integer partitions with a difference < -1 and a conjugate difference < -1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A375398 Numbers k such that the minima of maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are distinct.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A375399 Numbers k such that the minima of maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are not distinct.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords