A344296 -id:A344296 - cp's OEIS frontend

A363945 Triangle read by rows where T(n,k) is the number of integer partitions of n with low mean k.

1, 0, 1, 0, 1, 1, 0, 2, 0, 1, 0, 2, 2, 0, 1, 0, 4, 2, 0, 0, 1, 0, 4, 3, 3, 0, 0, 1, 0, 7, 4, 3, 0, 0, 0, 1, 0, 7, 10, 0, 4, 0, 0, 0, 1, 0, 12, 6, 7, 4, 0, 0, 0, 0, 1, 0, 12, 16, 8, 0, 5, 0, 0, 0, 0, 1, 0, 19, 21, 10, 0, 5, 0, 0, 0, 0

Offset: 0

Gus Wiseman, Jun 30 2023

Extending the terminology of A124943, the "low mean" of a multiset is its mean rounded down.

			Triangle begins:
  1
  0  1
  0  1  1
  0  2  0  1
  0  2  2  0  1
  0  4  2  0  0  1
  0  4  3  3  0  0  1
  0  7  4  3  0  0  0  1
  0  7 10  0  4  0  0  0  1
  0 12  6  7  4  0  0  0  0  1
  0 12 16  8  0  5  0  0  0  0  1
  0 19 21 10  0  5  0  0  0  0  0  1
  0 19 24 15 12  0  6  0  0  0  0  0  1
  0 30 32 18 14  0  6  0  0  0  0  0  0  1
  0 30 58 23 16  0  0  7  0  0  0  0  0  0  1
  0 45 47 57  0 19  0  7  0  0  0  0  0  0  0  1
Row k = 8 counts the following partitions:
  .  (41111)     (611)   .  (71)  .  .  .  (8)
     (32111)     (521)      (62)
     (311111)    (5111)     (53)
     (22211)     (431)      (44)
     (221111)    (422)
     (2111111)   (4211)
     (11111111)  (332)
                 (3311)
                 (3221)
                 (2222)

Row sums are A000041.
Column k = 1 is A025065, ranks A363949.
For median instead of mean we have triangle A124943, high A124944.
Column k = 2 is A363745.
For median instead of mean we have rank statistic A363941, high A363942.
The rank statistic for this triangle is A363943.
The high version is A363946, rank statistic A363944.
For mode instead of mean we have A363952, rank statistic A363486.
For high mode instead of mean we have A363953, rank statistic A363487.
A008284 counts partitions by length, A058398 by mean.
A051293 counts subsets with integer mean, median A000975.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
A349156 counts partitions with non-integer mean, ranks A348551.
Cf. A002865, A026905, A237984, A327472, A327482, A344296, A362612, A363723, A363724, A363731, A363951.

meandown[y_]:=If[Length[y]==0,0,Floor[Mean[y]]];
Table[Length[Select[IntegerPartitions[n],meandown[#]==k&]],{n,0,15},{k,0,n}]

A344414 Heinz numbers of integer partitions whose sum is at most twice their greatest part.

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 19, 20, 21, 22, 23, 25, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 49, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 77, 78, 79, 82, 83, 84, 85

Offset: 1

Gus Wiseman, May 19 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:
     2: {1}        20: {1,1,3}    39: {2,6}
     3: {2}        21: {2,4}      40: {1,1,1,3}
     4: {1,1}      22: {1,5}      41: {13}
     5: {3}        23: {9}        42: {1,2,4}
     6: {1,2}      25: {3,3}      43: {14}
     7: {4}        26: {1,6}      44: {1,1,5}
     9: {2,2}      28: {1,1,4}    46: {1,9}
    10: {1,3}      29: {10}       47: {15}
    11: {5}        30: {1,2,3}    49: {4,4}
    12: {1,1,2}    31: {11}       51: {2,7}
    13: {6}        33: {2,5}      52: {1,1,6}
    14: {1,4}      34: {1,7}      53: {16}
    15: {2,3}      35: {3,4}      55: {3,5}
    17: {7}        37: {12}       56: {1,1,1,4}
    19: {8}        38: {1,8}      57: {2,8}
For example, 56 has prime indices {1,1,1,4} and 7 <= 2*4, so 56 is in the sequence. On the other hand, 224 has prime indices {1,1,1,1,1,4} and 9 > 2*4, so 224 is not in the sequence.

These partitions are counted by A025065 but are different from palindromic partitions, which have Heinz numbers A265640.
The opposite even-weight version appears to be A320924, counted by A209816.
The opposite version appears to be A322109, counted by A110618.
The case of equality in the conjugate version is A340387.
The conjugate opposite version is A344291, counted by A110618.
The conjugate opposite 5-smooth case is A344293, counted by A266755.
The conjugate version is A344296, also counted by A025065.
The case of equality is A344415.
The even-weight case is A344416.
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.
A334201 adds up all prime indices except the greatest.
Cf. A001414, A067538, A301988, A316413, A316428, A325037, A325038, A325044, A330950, A344294, A344297.

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

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

A363950 Numbers whose prime indices have rounded-up mean 2.

Original entry on oeis.org

3, 6, 9, 10, 12, 18, 20, 24, 27, 28, 30, 36, 40, 48, 54, 56, 60, 72, 80, 81, 84, 88, 90, 96, 100, 108, 112, 120, 144, 160, 162, 168, 176, 180, 192, 200, 208, 216, 224, 240, 243, 252, 264, 270, 280, 288, 300, 320, 324, 336, 352, 360, 384, 400, 416, 432, 448

Offset: 1

Gus Wiseman, Jul 05 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.

			The terms together with their prime indices begin:
     3: {2}
     6: {1,2}
     9: {2,2}
    10: {1,3}
    12: {1,1,2}
    18: {1,2,2}
    20: {1,1,3}
    24: {1,1,1,2}
    27: {2,2,2}
    28: {1,1,4}
    30: {1,2,3}
    36: {1,1,2,2}
    40: {1,1,1,3}
    48: {1,1,1,1,2}
    54: {1,2,2,2}
    56: {1,1,1,4}
    60: {1,1,2,3}
    72: {1,1,1,2,2}
    80: {1,1,1,1,3}
    81: {2,2,2,2}

For mean 1 we have A000079 except 1.
Partitions of this type are counted by A026905 redoubled.
Equals the complement of A000079 in A344296.
Positions of 2's in A363944 (counted by column 2 of A363946).
For rounded mean 1 we have A363948, counted by A363947.
For rounded-down mean 1 we have A363949, counted by A025065.
The rounded-down or low version is A363954, counted by A363745.
A316413 ranks partitions with integer mean, counted by A067538.
A112798 lists prime indices, length A001222, sum A056239.
A326567/A326568 gives mean of prime indices.
A363941 gives low median of prime indices, triangle A124943.
A363942 gives high median of prime indices, triangle A124944.
Cf. A327473, A327476, A359889, A360005, A360013, A360015, A363727, A363943.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],Ceiling[Mean[prix[#]]]==2&]

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

Original entry on oeis.org

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.

A363488 Even numbers whose prime factorization has at least as many 2's as non-2's.

Original entry on oeis.org

2, 4, 6, 8, 10, 12, 14, 16, 20, 22, 24, 26, 28, 32, 34, 36, 38, 40, 44, 46, 48, 52, 56, 58, 60, 62, 64, 68, 72, 74, 76, 80, 82, 84, 86, 88, 92, 94, 96, 100, 104, 106, 112, 116, 118, 120, 122, 124, 128, 132, 134, 136, 140, 142, 144, 146, 148, 152, 156, 158, 160

Offset: 1

Gus Wiseman, Jul 06 2023

nonn

The multiset of prime factors of n is row n of A027746.

Also numbers whose prime factors have low median 2, where the low median (see A124943) is either the middle part (for odd length), or the least of the two middle parts (for even length).

			The terms together with their prime indices begin:
     2: {1}            34: {1,7}             72: {1,1,1,2,2}
     4: {1,1}          36: {1,1,2,2}         74: {1,12}
     6: {1,2}          38: {1,8}             76: {1,1,8}
     8: {1,1,1}        40: {1,1,1,3}         80: {1,1,1,1,3}
    10: {1,3}          44: {1,1,5}           82: {1,13}
    12: {1,1,2}        46: {1,9}             84: {1,1,2,4}
    14: {1,4}          48: {1,1,1,1,2}       86: {1,14}
    16: {1,1,1,1}      52: {1,1,6}           88: {1,1,1,5}
    20: {1,1,3}        56: {1,1,1,4}         92: {1,1,9}
    22: {1,5}          58: {1,10}            94: {1,15}
    24: {1,1,1,2}      60: {1,1,2,3}         96: {1,1,1,1,1,2}
    26: {1,6}          62: {1,11}           100: {1,1,3,3}
    28: {1,1,4}        64: {1,1,1,1,1,1}    104: {1,1,1,6}
    32: {1,1,1,1,1}    68: {1,1,7}          106: {1,16}

Partitions of this type are counted by A027336.
The case without high median > 1 is A072978.
For mode instead of median we have A360015, high A360013.
Positions of 1's in A363941.
For mean instead of median we have A363949, high A000079.
The high version is A364056, positions of 1's in A363942.
A067538 counts partitions with integer mean, ranks A316413.
A112798 lists prime indices, length A001222, sum A056239.
A124943 counts partitions by low median, high A124944.
A363943 gives low mean of prime indices, triangle A363945.
Cf. A025065, A215366, A238495, A326567/A326568, A344296, A359889, A359908, A360005, A363486, A363487, A363944.

Select[Range[100],EvenQ[#]&&PrimeOmega[#]<=2*FactorInteger[#][[1,2]]&]

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

cp's OEIS Frontend

A363945 Triangle read by rows where T(n,k) is the number of integer partitions of n with low mean k.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A344414 Heinz numbers of integer partitions whose sum is at most twice their greatest part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A363950 Numbers whose prime indices have rounded-up mean 2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

A363488 Even numbers whose prime factorization has at least as many 2's as non-2's.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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