A110618 -id:A110618 - cp's OEIS frontend

A344293 5-smooth numbers n whose sum of prime indices A056239(n) is at least twice the number of prime indices A001222(n).

1, 3, 5, 9, 10, 15, 25, 27, 30, 45, 50, 75, 81, 90, 100, 125, 135, 150, 225, 243, 250, 270, 300, 375, 405, 450, 500, 625, 675, 729, 750, 810, 900, 1000, 1125, 1215, 1250, 1350, 1500, 1875, 2025, 2187, 2250, 2430, 2500, 2700, 3000, 3125, 3375, 3645, 3750, 4050

Offset: 1

Gus Wiseman, May 16 2021

nonn

A number is 5-smooth if its prime divisors are all <= 5.

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The sequence of terms together with their prime indices begins:
       1: {}            125: {3,3,3}
       3: {2}           135: {2,2,2,3}
       5: {3}           150: {1,2,3,3}
       9: {2,2}         225: {2,2,3,3}
      10: {1,3}         243: {2,2,2,2,2}
      15: {2,3}         250: {1,3,3,3}
      25: {3,3}         270: {1,2,2,2,3}
      27: {2,2,2}       300: {1,1,2,3,3}
      30: {1,2,3}       375: {2,3,3,3}
      45: {2,2,3}       405: {2,2,2,2,3}
      50: {1,3,3}       450: {1,2,2,3,3}
      75: {2,3,3}       500: {1,1,3,3,3}
      81: {2,2,2,2}     625: {3,3,3,3}
      90: {1,2,2,3}     675: {2,2,2,3,3}
     100: {1,1,3,3}     729: {2,2,2,2,2,2}

Allowing any number of parts and sum gives A051037, counted by A001399.
These are Heinz numbers of the partitions counted by A266755.
Allowing parts > 5 gives A344291, counted by A110618.
The non-3-smooth case is A344294, counted by A325691.
Requiring the sum of prime indices to be even gives A344295.
A000070 counts non-multigraphical partitions, ranked by A344292.
A025065 counts partitions of n with >= n/2 parts, ranked by A344296.
A035363 counts partitions of n with n/2 parts, ranked by A340387.
A056239 adds up prime indices, row sums of A112798.
A300061 ranks partitions of even numbers, with 5-smooth case A344297.
Cf. A000041, A000244, A026811, A080193, A244990, A261144, A279622.

Select[Range[1000],PrimeOmega[#]<=Total[Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]]/2&&Max@@First/@FactorInteger[#]<=5&]

Intersection of A051037 and A344291.

A344294 5-smooth but not 3-smooth numbers k such that A056239(k) >= 2*A001222(k).

Original entry on oeis.org

5, 10, 15, 25, 30, 45, 50, 75, 90, 100, 125, 135, 150, 225, 250, 270, 300, 375, 405, 450, 500, 625, 675, 750, 810, 900, 1000, 1125, 1215, 1250, 1350, 1500, 1875, 2025, 2250, 2430, 2500, 2700, 3000, 3125, 3375, 3645, 3750, 4050, 4500, 5000, 5625, 6075, 6250

Offset: 1

Gus Wiseman, May 16 2021

nonn

A number is d-smooth iff its prime divisors are all <= d.

A prime index of k is a number m such that prime(m) divides k, and the multiset of prime indices of k is row k of A112798. This row has length A001222(k) and sum A056239(k).

			The sequence of terms together with their prime indices begins:
       5: {3}           270: {1,2,2,2,3}
      10: {1,3}         300: {1,1,2,3,3}
      15: {2,3}         375: {2,3,3,3}
      25: {3,3}         405: {2,2,2,2,3}
      30: {1,2,3}       450: {1,2,2,3,3}
      45: {2,2,3}       500: {1,1,3,3,3}
      50: {1,3,3}       625: {3,3,3,3}
      75: {2,3,3}       675: {2,2,2,3,3}
      90: {1,2,2,3}     750: {1,2,3,3,3}
     100: {1,1,3,3}     810: {1,2,2,2,2,3}
     125: {3,3,3}       900: {1,1,2,2,3,3}
     135: {2,2,2,3}    1000: {1,1,1,3,3,3}
     150: {1,2,3,3}    1125: {2,2,3,3,3}
     225: {2,2,3,3}    1215: {2,2,2,2,2,3}
     250: {1,3,3,3}    1250: {1,3,3,3,3}

Allowing any number of parts and sum gives A080193, counted by A069905.
The partitions with these Heinz numbers are counted by A325691.
Relaxing the smoothness conditions gives A344291, counted by A110618.
Allowing 3-smoothness gives A344293, counted by A266755.
A025065 counts partitions of n with at least n/2 parts, ranked by A344296.
A035363 counts partitions of n whose length is n/2, ranked by A340387.
A051037 lists 5-smooth numbers (complement: A279622).
A056239 adds up prime indices, row sums of A112798.
A257993 gives the least gap of the partition with Heinz number n.
A300061 lists numbers with even sum of prime indices (5-smooth: A344297).
A342050/A342051 list Heinz numbers of partitions with even/odd least gap.
Cf. A000041, A001399, A002865, A027336, A244990, A261144, A344295.

Select[Range[1000],PrimeOmega[#]<=Total[Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]]/2&&Max@@First/@FactorInteger[#]==5&]

Intersection of A080193 and A344291.

A344416 Heinz numbers of integer partitions whose sum is even and is at most twice the greatest part.

Original entry on oeis.org

3, 4, 7, 9, 10, 12, 13, 19, 21, 22, 25, 28, 29, 30, 34, 37, 39, 40, 43, 46, 49, 52, 53, 55, 57, 61, 62, 63, 66, 70, 71, 76, 79, 82, 84, 85, 87, 88, 89, 91, 94, 101, 102, 107, 111, 112, 113, 115, 116, 117, 118, 121, 129, 130, 131, 133, 134, 136, 138, 139, 146

Offset: 1

Gus Wiseman, May 20 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

Also numbers m whose sum of prime indices A056239(m) is even and is at most twice the greatest prime index A061395(m).

			The sequence of terms together with their prime indices begins:
      3: {2}         37: {12}          71: {20}
      4: {1,1}       39: {2,6}         76: {1,1,8}
      7: {4}         40: {1,1,1,3}     79: {22}
      9: {2,2}       43: {14}          82: {1,13}
     10: {1,3}       46: {1,9}         84: {1,1,2,4}
     12: {1,1,2}     49: {4,4}         85: {3,7}
     13: {6}         52: {1,1,6}       87: {2,10}
     19: {8}         53: {16}          88: {1,1,1,5}
     21: {2,4}       55: {3,5}         89: {24}
     22: {1,5}       57: {2,8}         91: {4,6}
     25: {3,3}       61: {18}          94: {1,15}
     28: {1,1,4}     62: {1,11}       101: {26}
     29: {10}        63: {2,2,4}      102: {1,2,7}
     30: {1,2,3}     66: {1,2,5}      107: {28}
     34: {1,7}       70: {1,3,4}      111: {2,12}

These partitions are counted by A000070 = even-indexed terms of A025065.
The opposite version appears to be A320924, counted by A209816.
The opposite version with odd weights allowed appears to be A322109.
The conjugate opposite version allowing odds is A344291, counted by A110618.
The conjugate version is A344296, also counted by A025065.
The conjugate opposite version is A344413, counted by A209816.
Allowing odd weight gives A344414.
The case of equality is A344415, counted by A035363.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A265640 lists Heinz numbers of palindromic partitions.
A301987 lists numbers whose sum of prime indices equals their product.
A334201 adds up all prime indices except the greatest.
A340387 lists Heinz numbers of partitions whose sum is twice their length.
Cf. A001414, A074761, A316413, A316428, A325037, A325038, A325044, A330950, A344293, A344294, A344297.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[primeMS[#]]]&&Max[primeMS[#]]>=Total[primeMS[#]]/2&]

Intersection of A300061 and A344414.

A322109 Heinz numbers of integer partitions that are the vertex-degrees of some set multipartition (multiset of nonempty sets) with no singletons.

Original entry on oeis.org

1, 4, 8, 9, 12, 16, 18, 24, 25, 27, 30, 32, 36, 40, 45, 48, 49, 50, 54, 60, 63, 64, 70, 72, 75, 80, 81, 84, 90, 96, 98, 100, 105, 108, 112, 120, 121, 125, 126, 128, 135, 140, 144, 147, 150, 154, 160, 162, 165, 168, 169, 175, 180, 189, 192, 196, 198, 200, 210

Offset: 1

Gus Wiseman, Nov 26 2018

nonn

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

Also Heinz numbers of partitions whose greatest part is less than or equal to half the sum of parts, i.e., numbers n whose sum of prime indices A056239(n) is at least twice the greatest prime index A061395(n). - Gus Wiseman, May 23 2021

			Each term paired with its Heinz partition and a realizing set multipartition with no singletons:
   1:      (): {}
   4:    (11): {{1,2}}
   8:   (111): {{1,2,3}}
   9:    (22): {{1,2},{1,2}}
  12:   (211): {{1,2},{1,3}}
  16:  (1111): {{1,2,3,4}}
  18:   (221): {{1,2},{1,2,3}}
  24:  (2111): {{1,2},{1,3,4}}
  25:    (33): {{1,2},{1,2},{1,2}}
  27:   (222): {{1,2,3},{1,2,3}}
  30:   (321): {{1,2},{1,2},{1,3}}
  32: (11111): {{1,2,3,4,5}}
  36:  (2211): {{1,2},{1,2,3,4}}
  40:  (3111): {{1,2},{1,3},{1,4}}

These partitions are counted by A110618.
The even-weight version is A320924.
The conjugate case of equality is A340387.
The conjugate version is A344291.
The opposite conjugate version is A344296.
The opposite version is A344414.
The case of equality is A344415.
The opposite even-weight version is A344416.
A000070 counts non-multigraphical partitions.
A025065 counts palindromic partitions.
A035363 counts partitions into even parts.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A334201 adds up all prime indices except the greatest.
Cf. A000041, A000569, A265640, A283877, A306005, A318361, A320922, A320923, A320925.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
sqnopfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqnopfacs[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],!PrimeQ[#]&&SquareFreeQ[#]&]}]]
Select[Range[100],Length[sqnopfacs[Times@@Prime/@nrmptn[#]]]>0&]

A061395(a(n)) <= A056239(a(n))/2.

A344413 Numbers n whose sum of prime indices A056239(n) is even and is at least twice the number of prime factors A001222(n).

Original entry on oeis.org

1, 3, 7, 9, 10, 13, 19, 21, 22, 25, 27, 28, 29, 30, 34, 37, 39, 43, 46, 49, 52, 53, 55, 57, 61, 62, 63, 66, 70, 71, 75, 76, 79, 81, 82, 84, 85, 87, 88, 89, 90, 91, 94, 100, 101, 102, 107, 111, 113, 115, 116, 117, 118, 121, 129, 130, 131, 133, 134, 136, 138

Offset: 1

Gus Wiseman, May 19 2021

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Also Heinz numbers of integer partitions of even numbers m with at most m/2 parts, counted by A209816 riffled with zeros, or A110618 with odd positions zeroed out.

			The sequence of terms together with their prime indices begins:
      1: {}          37: {12}        75: {2,3,3}
      3: {2}         39: {2,6}       76: {1,1,8}
      7: {4}         43: {14}        79: {22}
      9: {2,2}       46: {1,9}       81: {2,2,2,2}
     10: {1,3}       49: {4,4}       82: {1,13}
     13: {6}         52: {1,1,6}     84: {1,1,2,4}
     19: {8}         53: {16}        85: {3,7}
     21: {2,4}       55: {3,5}       87: {2,10}
     22: {1,5}       57: {2,8}       88: {1,1,1,5}
     25: {3,3}       61: {18}        89: {24}
     27: {2,2,2}     62: {1,11}      90: {1,2,2,3}
     28: {1,1,4}     63: {2,2,4}     91: {4,6}
     29: {10}        66: {1,2,5}     94: {1,15}
     30: {1,2,3}     70: {1,3,4}    100: {1,1,3,3}
     34: {1,7}       71: {20}       101: {26}
For example, 75 has 3 prime indices {2,3,3} with sum 8 >= 2*3, so 75 is in the sequence.

Robert Israel, Table of n, a(n) for n = 1..10000

These are the Heinz numbers of partitions counted by A209816 and A110618.
A subset of A300061 (sum of prime indices is even).
The conjugate version appears to be A320924 (allowing odd weights: A322109).
The case of equality is A340387.
Allowing odd weights gives A344291.
The 5-smooth case is A344295, or A344293 allowing odd weights.
The opposite version allowing odd weights is A344296.
The conjugate opposite version allowing odd weights is A344414.
The case of equality in the conjugate case is A344415.
The conjugate opposite version is A344416, counted by A000070.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A301987 lists numbers whose sum of prime indices equals their product.
A330950 counts partitions of n with Heinz number divisible by n.
A334201 adds up all prime indices except the greatest.
Cf. A001414, A025065, A067538, A301988, A316413, A316428, A325037, A325038, A325044, A338914, A344294, A344297.

filter:= proc(n) local F,a,t;
  F:= ifactors(n)[2];
  a:= add((numtheory:-pi(t[1])-2)*t[2],t=F);
  a::even and a >= 0
end proc:
select(filter, [$1..300]); # Robert Israel, Oct 10 2024

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[primeMS[#]]]&&PrimeOmega[#]<=Total[primeMS[#]]/2&]

Members m of A300061 such that A056239(m) >= 2*A001222(m).

A366319 Numbers k such that the sum of prime indices of k is not twice the maximum prime index of k, meaning A056239(k) != 2 * A061395(k).

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 8, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76

Offset: 1

Gus Wiseman, Oct 10 2023

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Also Heinz numbers of integer partitions containing n/2, where n is the sum of all parts.

			The prime indices of 90 are {1,2,2,3}, with sum 8 and twice maximum 6, so 90 is in the sequence.

Partitions of this type are counted by A086543.
For length instead of maximum we have the complement of A340387.
The complement is A344415, counted by A035363.
A001221 counts distinct prime factors, A001222 with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A334201 adds up all prime indices except the greatest.
A344291 lists numbers m with A001222(m) <= A056239(m)/2, counted by A110618.
A344296 lists numbers m with A001222(m) >= A056239(m)/2, counted by A025065.
Cf. A001414, A100959, A238628, A300061, A301987, A316413, A320924, A344414, A344416, A366318.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Max[prix[#]]!=Total[prix[#]]/2&]

A344295 Heinz numbers of partitions of 2*n with at most n parts, none greater than 3, for some n.

Original entry on oeis.org

1, 3, 9, 10, 25, 27, 30, 75, 81, 90, 100, 225, 243, 250, 270, 300, 625, 675, 729, 750, 810, 900, 1000, 1875, 2025, 2187, 2250, 2430, 2500, 2700, 3000, 5625, 6075, 6250, 6561, 6750, 7290, 7500, 8100, 9000, 10000, 15625, 16875, 18225, 18750, 19683, 20250, 21870

Offset: 1

Gus Wiseman, May 15 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
      1: {}
      3: {2}
      9: {2,2}
     10: {1,3}
     25: {3,3}
     27: {2,2,2}
     30: {1,2,3}
     75: {2,3,3}
     81: {2,2,2,2}
     90: {1,2,2,3}
    100: {1,1,3,3}
    225: {2,2,3,3}
    243: {2,2,2,2,2}
    250: {1,3,3,3}
    270: {1,2,2,2,3}
    300: {1,1,2,3,3}

These partitions are counted by A001399.
Allowing any number of parts and sum gives A051037.
Allowing parts > 3 and any length gives A300061.
Not requiring the sum of prime indices to be even gives A344293.
Allowing any number of parts (but still with even sum) gives A344297.
Allowing parts > 3 gives A344413.
A001358 lists semiprimes.
A025065 counts partitions of n with at least n/2 parts, ranked by A344296.
A035363 counts partitions of n of length n/2, ranked by A340387.
A056239 adds up prime indices, row sums of A112798.
A110618 counts partitions of n with at most n/2 parts, ranked by A344291.
A344414 counts partitions of n with all parts >= n/2, ranked by A344296.
Cf. A030229, A080193, A244990, A261144, A266755, A279622, A334433, A344294.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],EvenQ[Total[primeMS[#]]]&&PrimeOmega[#]<=Total[primeMS[#]]/2&&Max@@primeMS[#]<=3&]

Intersection of A300061 (even Heinz weight), A344291 (Omega > half Heinz weight), and A051037 (5-smooth).

A238495 Number of partitions p of n such that min(p) + (number of parts of p) is not a part of p.

Original entry on oeis.org

1, 2, 3, 4, 7, 9, 14, 19, 27, 36, 51, 66, 90, 118, 156, 201, 264, 336, 434, 550, 700, 880, 1112, 1385, 1733, 2149, 2666, 3283, 4049, 4956, 6072, 7398, 9009, 10922, 13237, 15970, 19261, 23147, 27790, 33260, 39776, 47425, 56497, 67133, 79685, 94371, 111653

Offset: 1

Clark Kimberling, Feb 27 2014

Also the number of integer partitions of n + 1 with median > 1, or with no more 1's than non-1 parts. - Gus Wiseman, Jul 10 2023

			a(6) = 9 counts all the 11 partitions of 6 except 42 and 411.
From _Gus Wiseman_, Jul 10 2023 (Start)
The a(2) = 1 through a(8) = 14 partitions:
  (2)  (3)   (4)   (5)    (6)     (7)     (8)
       (21)  (22)  (32)   (33)    (43)    (44)
             (31)  (41)   (42)    (52)    (53)
                   (221)  (51)    (61)    (62)
                          (222)   (322)   (71)
                          (321)   (331)   (332)
                          (2211)  (421)   (422)
                                  (2221)  (431)
                                  (3211)  (521)
                                          (2222)
                                          (3221)
                                          (3311)
                                          (4211)
                                          (22211)
(End)

Cf. A096373.
For mean instead of median we have A000065, ranks A057716.
The complement is counted by A027336, ranks A364056.
Rows sums of A359893 if we remove the first column.
These partitions have ranks A364058.
A000041 counts integer partitions.
A008284 counts partitions by length, A058398 by mean.
A025065 counts partitions with low mean 1, ranks A363949.
A124943 counts partitions by low median, high A124944.
A241131 counts partitions with low mode 1, ranks A360015.
Cf. A000070, A000975, A002865, A110618, A237984, A363488.

Table[Count[IntegerPartitions[n], p_ /; ! MemberQ[p, Length[p] + Min[p]]], {n, 50}]
Table[Length[Select[IntegerPartitions[n+1],Median[#]>1&]],{n,30}] (* Gus Wiseman, Jul 10 2023 *)

From Gus Wiseman, Jul 11 2023: (Start)
a(n>2) = A000041(n) - A096373(n-2).
a(n>1) = A000041(n-2) + A002865(n+1).
a(n) = A000041(n+1) - A027336(n).
(End)

Formula corrected by Gus Wiseman, Jul 11 2023

A344292 Numbers m whose sum of prime indices A056239(m) is even and is at most twice the number of prime factors counted with multiplicity A001222(m).

Original entry on oeis.org

1, 3, 4, 9, 10, 12, 16, 27, 28, 30, 36, 40, 48, 64, 81, 84, 88, 90, 100, 108, 112, 120, 144, 160, 192, 208, 243, 252, 256, 264, 270, 280, 300, 324, 336, 352, 360, 400, 432, 448, 480, 544, 576, 624, 640, 729, 756, 768, 784, 792, 810, 832, 840, 880, 900, 972

Offset: 1

Gus Wiseman, May 22 2021

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Also Heinz numbers of integer partitions of even numbers m with at least m/2 parts, counted by A000070 riffled with 0's, or A025065 with odd positions zeroed out.

			The sequence of terms together with their prime indices begins:
       1: {}                 84: {1,1,2,4}
       3: {2}                88: {1,1,1,5}
       4: {1,1}              90: {1,2,2,3}
       9: {2,2}             100: {1,1,3,3}
      10: {1,3}             108: {1,1,2,2,2}
      12: {1,1,2}           112: {1,1,1,1,4}
      16: {1,1,1,1}         120: {1,1,1,2,3}
      27: {2,2,2}           144: {1,1,1,1,2,2}
      28: {1,1,4}           160: {1,1,1,1,1,3}
      30: {1,2,3}           192: {1,1,1,1,1,1,2}
      36: {1,1,2,2}         208: {1,1,1,1,6}
      40: {1,1,1,3}         243: {2,2,2,2,2}
      48: {1,1,1,1,2}       252: {1,1,2,2,4}
      64: {1,1,1,1,1,1}     256: {1,1,1,1,1,1,1,1}
      81: {2,2,2,2}         264: {1,1,1,2,5}

These are the Heinz numbers of partitions counted by A000070 and A025065.
A subset of A300061 (sum of prime indices is even).
The conjugate opposite version is A320924, counted by A209816.
The conjugate opposite version allowing odds is A322109, counted by A110618.
The case of equality is A340387, counted by A000041.
The opposite version allowing odd weights is A344291, counted by A110618.
Allowing odd weights gives A344296, counted by A025065.
The opposite version is A344413, counted by A209816.
The conjugate version allowing odd weights is A344414, counted by A025065.
The case of equality in the conjugate case is A344415, counted by A035363.
The conjugate version is A344416, counted by A000070.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A056239 adds up prime indices, row sums of A112798.
A058696 counts partitions of even numbers, ranked by A300061.
A301987 lists numbers whose sum of prime indices equals their product.
A330950 counts partitions of n with Heinz number divisible by n.
A334201 adds up all prime indices except the greatest.
Cf. A001414, A067538, A316413, A316428, A325037, A325038, A325044, A338914, A344294, A344297.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],EvenQ[Total[primeMS[#]]]&&PrimeOmega[#]>=Total[primeMS[#]]/2&]

Members m of A300061 such that A056239(m) <= 2*A001222(m).

A366318 Heinz numbers of integer partitions that are of length 2 or begin with n/2, where n is the sum of all parts.

Original entry on oeis.org

4, 6, 9, 10, 12, 14, 15, 21, 22, 25, 26, 30, 33, 34, 35, 38, 39, 40, 46, 49, 51, 55, 57, 58, 62, 63, 65, 69, 70, 74, 77, 82, 84, 85, 86, 87, 91, 93, 94, 95, 106, 111, 112, 115, 118, 119, 121, 122, 123, 129, 133, 134, 141, 142, 143, 145, 146, 154, 155, 158, 159

Offset: 1

Gus Wiseman, Oct 08 2023

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The terms together with their prime indices begin:
     4: {1,1}      38: {1,8}         77: {4,5}
     6: {1,2}      39: {2,6}         82: {1,13}
     9: {2,2}      40: {1,1,1,3}     84: {1,1,2,4}
    10: {1,3}      46: {1,9}         85: {3,7}
    12: {1,1,2}    49: {4,4}         86: {1,14}
    14: {1,4}      51: {2,7}         87: {2,10}
    15: {2,3}      55: {3,5}         91: {4,6}
    21: {2,4}      57: {2,8}         93: {2,11}
    22: {1,5}      58: {1,10}        94: {1,15}
    25: {3,3}      62: {1,11}        95: {3,8}
    26: {1,6}      63: {2,2,4}      106: {1,16}
    30: {1,2,3}    65: {3,6}        111: {2,12}
    33: {2,5}      69: {2,9}        112: {1,1,1,1,4}
    34: {1,7}      70: {1,3,4}      115: {3,9}
    35: {3,4}      74: {1,12}       118: {1,17}

The first condition alone is A001358, counted by A004526.
The complement of the first condition is A100959, counted by A058984.
The partitions with these Heinz numbers are counted by A238628.
The second condition alone is A344415, counted by A035363.
The complement of the second condition is A366319, counted by A086543.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A322109 ranks partitions of n with no part > n/2, counted by A110618.
A334201 adds up all prime indices except the greatest.
A344296 solves for k in A001222(k) >= A056239(k)/2, counted by A025065.
Cf. A001414, A316413, A320924, A325044, A340387, A344414, A344416.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Length[prix[#]]==2||MemberQ[prix[#],Total[prix[#]]/2]&]

Union of A001358 and A344415.

cp's OEIS Frontend

A344293 5-smooth numbers n whose sum of prime indices A056239(n) is at least twice the number of prime indices A001222(n).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A344294 5-smooth but not 3-smooth numbers k such that A056239(k) >= 2*A001222(k).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A344416 Heinz numbers of integer partitions whose sum is even and is at most twice the greatest part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A322109 Heinz numbers of integer partitions that are the vertex-degrees of some set multipartition (multiset of nonempty sets) with no singletons.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A344413 Numbers n whose sum of prime indices A056239(n) is even and is at least twice the number of prime factors A001222(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A366319 Numbers k such that the sum of prime indices of k is not twice the maximum prime index of k, meaning A056239(k) != 2 * A061395(k).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A344295 Heinz numbers of partitions of 2*n with at most n parts, none greater than 3, for some n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A238495 Number of partitions p of n such that min(p) + (number of parts of p) is not a part of p.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs