A325134 -id:A325134 - cp's OEIS frontend

A340656 Numbers without a twice-balanced factorization.

4, 6, 8, 9, 10, 14, 15, 16, 21, 22, 25, 26, 27, 30, 32, 33, 34, 35, 38, 39, 42, 46, 48, 49, 51, 55, 57, 58, 60, 62, 64, 65, 66, 69, 70, 72, 74, 77, 78, 80, 81, 82, 84, 85, 86, 87, 90, 91, 93, 94, 95, 96, 102, 105, 106, 108, 110, 111, 112, 114, 115, 118, 119

Offset: 1

Gus Wiseman, Jan 16 2021

nonn

We define a factorization of n into factors > 1 to be twice-balanced if it is empty or the following are equal:
(1) the number of factors;
(2) the maximum image of A001222 over the factors;
(3) A001221(n).

			The sequence of terms together with their prime indices begins:
     4: {1,1}          33: {2,5}          64: {1,1,1,1,1,1}
     6: {1,2}          34: {1,7}          65: {3,6}
     8: {1,1,1}        35: {3,4}          66: {1,2,5}
     9: {2,2}          38: {1,8}          69: {2,9}
    10: {1,3}          39: {2,6}          70: {1,3,4}
    14: {1,4}          42: {1,2,4}        72: {1,1,1,2,2}
    15: {2,3}          46: {1,9}          74: {1,12}
    16: {1,1,1,1}      48: {1,1,1,1,2}    77: {4,5}
    21: {2,4}          49: {4,4}          78: {1,2,6}
    22: {1,5}          51: {2,7}          80: {1,1,1,1,3}
    25: {3,3}          55: {3,5}          81: {2,2,2,2}
    26: {1,6}          57: {2,8}          82: {1,13}
    27: {2,2,2}        58: {1,10}         84: {1,1,2,4}
    30: {1,2,3}        60: {1,1,2,3}      85: {3,7}
    32: {1,1,1,1,1}    62: {1,11}         86: {1,14}
For example, the factorizations of 48 with (2) and (3) equal are: (2*2*2*6), (2*2*3*4), (2*4*6), (3*4*4), but since none of these has length 2, the sequence contains 48.

Positions of zeros in A340655.
The complement is A340657.
A001055 counts factorizations.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A045778 counts strict factorizations.
A303975 counts distinct prime factors in prime indices.
A316439 counts factorizations by product and length.
Other balance-related sequences:
- A010054 counts balanced strict partitions.
- A047993 counts balanced partitions.
- A098124 counts balanced compositions.
- A106529 lists Heinz numbers of balanced partitions.
- A340596 counts co-balanced factorizations.
- A340597 lists numbers with an alt-balanced factorization.
- A340598 counts balanced set partitions.
- A340599 counts alt-balanced factorizations.
- A340600 counts unlabeled balanced multiset partitions.
- A340652 counts unlabeled twice-balanced multiset partitions.
- A340653 counts balanced factorizations.
- A340654 counts cross-balanced factorizations.
Cf. A112798, A117409, A325134, A339846, A339890, A340607, A340689, A340690.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[100],Select[facs[#],#=={}||Length[#]==PrimeNu[Times@@#]==Max[PrimeOmega/@#]&]=={}&]

A340657 Numbers with a twice-balanced factorization.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 12, 13, 17, 18, 19, 20, 23, 24, 28, 29, 31, 36, 37, 40, 41, 43, 44, 45, 47, 50, 52, 53, 54, 56, 59, 61, 63, 67, 68, 71, 73, 75, 76, 79, 83, 88, 89, 92, 97, 98, 99, 100, 101, 103, 104, 107, 109, 113, 116, 117, 120, 124, 127, 131, 135, 136, 137

Offset: 1

Gus Wiseman, Jan 17 2021

nonn

We define a factorization of n into factors > 1 to be twice-balanced if it is empty or the following are equal:
(1) the number of factors;
(2) the maximum image of A001222 over the factors;
(3) A001221(n).

			The sequence of terms together with their prime indices begins:
      1: {}            29: {10}          59: {17}
      2: {1}           31: {11}          61: {18}
      3: {2}           36: {1,1,2,2}     63: {2,2,4}
      5: {3}           37: {12}          67: {19}
      7: {4}           40: {1,1,1,3}     68: {1,1,7}
     11: {5}           41: {13}          71: {20}
     12: {1,1,2}       43: {14}          73: {21}
     13: {6}           44: {1,1,5}       75: {2,3,3}
     17: {7}           45: {2,2,3}       76: {1,1,8}
     18: {1,2,2}       47: {15}          79: {22}
     19: {8}           50: {1,3,3}       83: {23}
     20: {1,1,3}       52: {1,1,6}       88: {1,1,1,5}
     23: {9}           53: {16}          89: {24}
     24: {1,1,1,2}     54: {1,2,2,2}     92: {1,1,9}
     28: {1,1,4}       56: {1,1,1,4}     97: {25}
The twice-balanced factorizations of 1920 (with prime indices {1,1,1,1,1,1,1,2,3}) are (8*8*30) and (8*12*20), so 1920 is in the sequence.

The alt-balanced version is A340597.
Positions of nonzero terms in A340655.
The complement is A340656.
A001055 counts factorizations.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A045778 counts strict factorizations.
A303975 counts distinct prime factors in prime indices.
A316439 counts factorizations by product and length.
Other balance-related sequences:
- A010054 counts balanced strict partitions.
- A047993 counts balanced partitions.
- A098124 counts balanced compositions.
- A106529 lists Heinz numbers of balanced partitions.
- A340596 counts co-balanced factorizations.
- A340598 counts balanced set partitions.
- A340599 counts alt-balanced factorizations.
- A340600 counts unlabeled balanced multiset partitions.
- A340652 counts unlabeled twice-balanced multiset partitions.
- A340653 counts balanced factorizations.
- A340654 counts cross-balanced factorizations.
Cf. A005117, A056239, A112798, A117409, A320325, A325134, A339846, A339890, A340607, A340689, A340690.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[100],Select[facs[#],#=={}||Length[#]==PrimeNu[Times@@#]==Max[PrimeOmega/@#]&]!={}&]

A340788 Heinz numbers of integer partitions of negative rank.

Original entry on oeis.org

4, 8, 12, 16, 18, 24, 27, 32, 36, 40, 48, 54, 60, 64, 72, 80, 81, 90, 96, 100, 108, 112, 120, 128, 135, 144, 150, 160, 162, 168, 180, 192, 200, 216, 224, 225, 240, 243, 250, 252, 256, 270, 280, 288, 300, 320, 324, 336, 352, 360, 375, 378, 384, 392, 400, 405

Offset: 1

Gus Wiseman, Jan 29 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 Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

			The sequence of partitions together with their Heinz numbers begins:
      4: (1,1)             80: (3,1,1,1,1)
      8: (1,1,1)           81: (2,2,2,2)
     12: (2,1,1)           90: (3,2,2,1)
     16: (1,1,1,1)         96: (2,1,1,1,1,1)
     18: (2,2,1)          100: (3,3,1,1)
     24: (2,1,1,1)        108: (2,2,2,1,1)
     27: (2,2,2)          112: (4,1,1,1,1)
     32: (1,1,1,1,1)      120: (3,2,1,1,1)
     36: (2,2,1,1)        128: (1,1,1,1,1,1,1)
     40: (3,1,1,1)        135: (3,2,2,2)
     48: (2,1,1,1,1)      144: (2,2,1,1,1,1)
     54: (2,2,2,1)        150: (3,3,2,1)
     60: (3,2,1,1)        160: (3,1,1,1,1,1)
     64: (1,1,1,1,1,1)    162: (2,2,2,2,1)
     72: (2,2,1,1,1)      168: (4,2,1,1,1)

Freeman J. Dyson, A new symmetry of partitions, Journal of Combinatorial Theory 7.1 (1969): 56-61.
FindStat, St000145: The Dyson rank of a partition

Note: A-numbers of Heinz-number sequences are in parentheses below.
These partitions are counted by A064173.
The odd case is A101707 is (A340929).
The even case is A101708 is (A340930).
The positive version is (A340787).
A001222 counts prime factors.
A061395 selects the maximum prime index.
A072233 counts partitions by sum and length.
A168659 counts partitions whose length is divisible by maximum.
A200750 counts partitions whose length and maximum are relatively prime.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A063995/A105806 count partitions by Dyson rank.
A064174 counts partitions of nonnegative/nonpositive rank (A324562/A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A324518 counts partitions with rank equal to greatest part (A324517).
A324520 counts partitions with rank equal to least part (A324519).
A340601 counts partitions of even rank (A340602), with strict case A117192.
A340692 counts partitions of odd rank (A340603), with strict case A117193.
Cf. A003114, A006141, A039900, A056239, A096401, A112798, A117409, A316413, A325134, A326845, A340604, A340605, A340828.

Select[Range[2,100],PrimePi[FactorInteger[#][[-1,1]]]

For all terms A061395(a(n)) < A001222(a(n)).

A340603 Heinz numbers of integer partitions of odd rank.

Original entry on oeis.org

3, 4, 7, 10, 12, 13, 15, 16, 18, 19, 22, 25, 27, 28, 29, 33, 34, 37, 40, 42, 43, 46, 48, 51, 52, 53, 55, 60, 61, 62, 63, 64, 69, 70, 71, 72, 76, 77, 78, 79, 82, 85, 88, 89, 90, 93, 94, 98, 100, 101, 105, 107, 108, 112, 113, 114, 115, 116, 117, 118, 119, 121

Offset: 1

Gus Wiseman, Jan 21 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its number of parts. The rank of an empty partition is 0.

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 sequence of partitions with their Heinz numbers begins:
      3: (2)           33: (5,2)           63: (4,2,2)
      4: (1,1)         34: (7,1)           64: (1,1,1,1,1,1)
      7: (4)           37: (12)            69: (9,2)
     10: (3,1)         40: (3,1,1,1)       70: (4,3,1)
     12: (2,1,1)       42: (4,2,1)         71: (20)
     13: (6)           43: (14)            72: (2,2,1,1,1)
     15: (3,2)         46: (9,1)           76: (8,1,1)
     16: (1,1,1,1)     48: (2,1,1,1,1)     77: (5,4)
     18: (2,2,1)       51: (7,2)           78: (6,2,1)
     19: (8)           52: (6,1,1)         79: (22)
     22: (5,1)         53: (16)            82: (13,1)
     25: (3,3)         55: (5,3)           85: (7,3)
     27: (2,2,2)       60: (3,2,1,1)       88: (5,1,1,1)
     28: (4,1,1)       61: (18)            89: (24)
     29: (10)          62: (11,1)          90: (3,2,2,1)

FindStat, St000145: The Dyson rank of a partition

Note: Heinz numbers are given in parentheses below.
These partitions are counted by A340692.
The complement is A340602, counted by A340601.
The case of positive rank is A340604.
- Rank -
A001222 gives number of prime indices.
A047993 counts partitions of rank 0 (A106529).
A061395 gives maximum prime index.
A101198 counts partitions of rank 1 (A325233).
A101707 counts partitions of odd positive rank (A340604).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts (A066208).
A027193 counts partitions of odd length (A026424).
A027193 (also) counts partitions of odd maximum (A244991).
A058695 counts partitions of odd numbers (A300063).
A067659 counts strict partitions of odd length (A030059).
A160786 counts odd-length partitions of odd numbers (A300272).
A339890 counts factorizations of odd length.
A340102 counts odd-length factorizations into odd factors.
A340385 counts partitions of odd length and maximum (A340386).
Cf. A001221, A006141, A056239, A112798, A168659, A200750, A316413, A325134, A340608, A340609, A340610.

Select[Range[100],OddQ[PrimePi[FactorInteger[#][[-1,1]]]-PrimeOmega[#]]&]

A061395(a(n)) - A001222(a(n)) is odd.

A340787 Heinz numbers of integer partitions of positive rank.

Original entry on oeis.org

3, 5, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 77, 78, 79, 82, 83, 85, 86, 87, 88, 89, 91, 92, 93, 94, 95

Offset: 1

Gus Wiseman, Jan 29 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 Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

			The sequence of partitions together with their Heinz numbers begins:
     3: (2)      28: (4,1,1)    49: (4,4)      69: (9,2)
     5: (3)      29: (10)       51: (7,2)      70: (4,3,1)
     7: (4)      31: (11)       52: (6,1,1)    71: (20)
    10: (3,1)    33: (5,2)      53: (16)       73: (21)
    11: (5)      34: (7,1)      55: (5,3)      74: (12,1)
    13: (6)      35: (4,3)      57: (8,2)      76: (8,1,1)
    14: (4,1)    37: (12)       58: (10,1)     77: (5,4)
    15: (3,2)    38: (8,1)      59: (17)       78: (6,2,1)
    17: (7)      39: (6,2)      61: (18)       79: (22)
    19: (8)      41: (13)       62: (11,1)     82: (13,1)
    21: (4,2)    42: (4,2,1)    63: (4,2,2)    83: (23)
    22: (5,1)    43: (14)       65: (6,3)      85: (7,3)
    23: (9)      44: (5,1,1)    66: (5,2,1)    86: (14,1)
    25: (3,3)    46: (9,1)      67: (19)       87: (10,2)
    26: (6,1)    47: (15)       68: (7,1,1)    88: (5,1,1,1)

Freeman J. Dyson, A new symmetry of partitions, Journal of Combinatorial Theory 7.1 (1969): 56-61.
FindStat, St000145: The Dyson rank of a partition

Note: A-numbers of Heinz-number sequences are in parentheses below.
These partitions are counted by A064173.
The odd case is A101707 (A340604).
The even case is A101708 (A340605).
The negative version is (A340788).
A001222 counts prime factors.
A061395 selects the maximum prime index.
A072233 counts partitions by sum and length.
A168659 = partitions whose greatest part divides their length (A340609).
A168659 = partitions whose length divides their greatest part (A340610).
A200750 = partitions whose length and maximum are relatively prime.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A063995/A105806 count partitions by Dyson rank.
A064174 counts partitions of nonnegative/nonpositive rank (A324562/A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A324520 counts partitions with rank equal to least part (A324519).
A340601 counts partitions of even rank (A340602), with strict case A117192.
A340692 counts partitions of odd rank (A340603), with strict case A117193.
Cf. A003114, A006141, A039900, A056239, A096401, A112798, A117409, A316413, A324517, A325134, A326845, A340828.

Select[Range[2,100],PrimePi[FactorInteger[#][[-1,1]]]>PrimeOmega[#]&]

For all terms A061395(a(n)) > A001222(a(n)).

A325135 Size of the integer partition with Heinz number n after its inner lining, or, equivalently, its largest hook, is removed.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 2, 0, 2, 0, 0, 1, 0, 0, 1, 0, 2, 1, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 0, 3, 2, 1, 0, 0, 2, 2, 0, 1, 0, 0, 1, 0, 0, 2, 0, 2, 1, 0, 0, 1, 2, 0, 1, 0, 0, 3, 0, 3, 1, 0, 0, 3, 0, 0, 1, 2, 0, 1, 0, 0, 2, 3, 0, 1, 0, 2, 0, 0, 3, 2, 2, 0, 1, 0, 0, 3

Offset: 1

Gus Wiseman, Apr 02 2019

nonn

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

			The partition with Heinz number 715 is (6,5,3), with diagram
  o o o o o o
  o o o o o
  o o o
which has inner lining
          o o
      o o o
  o o o
or largest hook
  o o o o o o
  o
  o
both of which have complement
  o o o o
  o o
which has size 6, so a(715) = 6.

Antti Karttunen, Table of n, a(n) for n = 1..20000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Cf. A000720, A001222, A052126, A056239, A061395, A093641, A112798, A252464, A257990, A325133, A325134.

Table[If[n==1,0,Total[Most[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]-1]],{n,100}]

A056239(n) = { my(f); if(1==n, 0, f=factor(n); sum(i=1, #f~, f[i,2] * primepi(f[i,1]))); }
A061395(n) = if(1==n, 0, primepi(vecmax(factor(n)[, 1])));
A325135(n) = if(1==n,0,(1+A056239(n)-bigomega(n)-A061395(n))); \\ Antti Karttunen, Apr 14 2019

a(n) = A056239(A325133(n)).
For n > 1:
a(n) = A056239(n) - A001222(n) - A061395(n) + 1.
a(n) = A056239(n) - A252464(n).
a(n) = A056239(n) - A325134(n) + 1.

More terms from Antti Karttunen, Apr 14 2019

A325224 Sum of prime indices of n minus the lesser of the number of prime factors of n counted with multiplicity and the maximum prime index of n.

Original entry on oeis.org

0, 0, 1, 1, 2, 1, 3, 2, 2, 2, 4, 2, 5, 3, 3, 3, 6, 3, 7, 2, 4, 4, 8, 3, 4, 5, 4, 3, 9, 3, 10, 4, 5, 6, 5, 4, 11, 7, 6, 3, 12, 4, 13, 4, 4, 8, 14, 4, 6, 4, 7, 5, 15, 5, 6, 3, 8, 9, 16, 4, 17, 10, 5, 5, 7, 5, 18, 6, 9, 5, 19, 5, 20, 11, 5, 7, 7, 6, 21, 4, 6, 12

Offset: 1

Gus Wiseman, Apr 12 2019

nonn

A prime index of n is a number m such that prime(m) divides n.

Also the number of squares in the Young diagram of the integer partition with Heinz number n after the first row or the first column, whichever is smaller, is removed. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			88 has 4 prime indices {1,1,1,5} with sum 8 and maximum 5, so a(88) = 8 - min(4,5) = 4.

FindStat, St000533: The maximal number of non-attacking rooks on a Ferrers shape

The number of times k appears in the sequence is A325232(k).

Cf. A001222, A052126, A056239, A061395, A064989, A065770, A112798, A174090, A257990, A263297, A325134, A325169, A325223, A325225, A325227.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[If[n==1,0,Total[primeMS[n]]-Min[Length[primeMS[n]],Max[primeMS[n]]]],{n,100}]

a(n) = A056239(n) - min(A001222(n), A061395(n)) = A056239(n) - A325225(n).

A325133 Heinz number of the integer partition obtained by removing the inner lining, or, equivalently, the largest hook, of the integer partition with Heinz number n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 3, 1, 4, 1, 1, 2, 1, 1, 2, 1, 3, 2, 1, 1, 2, 1, 1, 2, 1, 1, 4, 1, 1, 1, 5, 3, 2, 1, 1, 4, 3, 1, 2, 1, 1, 2, 1, 1, 4, 1, 3, 2, 1, 1, 2, 3, 1, 2, 1, 1, 6, 1, 5, 2, 1, 1, 8, 1, 1, 2, 3, 1, 2, 1, 1, 4, 5, 1, 2, 1, 3, 1, 1, 5, 4, 3, 1, 2, 1, 1, 6

Offset: 1

Gus Wiseman, Apr 02 2019

nonn

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

			The partition with Heinz number 715 is (6,5,3), with diagram
  o o o o o o
  o o o o o
  o o o
which has inner lining
          o o
      o o o
  o o o
or largest hook
  o o o o o o
  o
  o
both of which have complement
  o o o o
  o o
which is the partition (4,2) with Heinz number 21, so a(715) = 21.

Antti Karttunen, Table of n, a(n) for n = 1..20000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Positions of ones are A093641 (Heinz numbers of hooks). The number of iterations required to reach 1 starting with n is A257990(n).

Cf. A000720, A001222, A046660, A052126, A056239, A061395, A064989, A112798, A243055, A252464, A325134, A325135.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[If[n==1,1,Times@@Prime/@DeleteCases[Most[primeMS[n]]-1,0]],{n,100}]

A052126(n) = if(1==n,n,n/vecmax(factor(n)[, 1]));
A064989(n) = { my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f) };
A325133(n) = A052126(A064989(n)); \\ Antti Karttunen, Apr 14 2019

a(n) = A064989(A052126(n)) = A052126(A064989(n)).

More terms from Antti Karttunen, Apr 14 2019

A340689 Numbers with a factorization of length 2^k into factors > 1, where k is the greatest factor.

Original entry on oeis.org

1, 16, 384, 576, 864, 1296, 1944, 2916, 4374, 6561, 131072, 196608, 262144, 294912, 393216, 442368, 524288, 589824, 663552, 786432, 884736, 995328, 1048576, 1179648, 1327104, 1492992, 1572864, 1769472, 1990656, 2097152, 2239488, 2359296, 2654208, 2985984, 3145728

Offset: 1

Gus Wiseman, Jan 28 2021

nonn

			The initial terms and a valid factorization of each are:
         1 =
        16 = 2*2*2*2
       384 = 2*2*2*2*2*2*2*3
       576 = 2*2*2*2*2*2*3*3
       864 = 2*2*2*2*2*3*3*3
      1296 = 2*2*2*2*3*3*3*3
      1944 = 2*2*2*3*3*3*3*3
      2916 = 2*2*3*3*3*3*3*3
      4374 = 2*3*3*3*3*3*3*3
      6561 = 3*3*3*3*3*3*3*3
    131072 = 2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*4
    196608 = 2*2*2*2*2*2*2*2*2*2*2*2*2*2*3*4
    262144 = 2*2*2*2*2*2*2*2*2*2*2*2*2*2*4*4
    294912 = 2*2*2*2*2*2*2*2*2*2*2*2*2*3*3*4

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Partitions of the prescribed type are counted by A340611.
The conjugate version is A340690.
A001055 counts factorizations, with strict case A045778.
A047993 counts balanced partitions.
A316439 counts factorizations by product and length.
A340596 counts co-balanced factorizations.
A340597 lists numbers with an alt-balanced factorization.
A340653 counts balanced factorizations.
Cf. A106529, A117409, A200750, A325134, A340386, A340387, A340599, A340607, A340654, A340655, A340656, A340657.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[1000],Select[facs[#],Length[#]==2^Max@@#&]!={}&]

More terms from Chai Wah Wu, Feb 01 2021

A340690 Numbers with a factorization whose greatest factor is 2^k, where k is the number of factors.

Original entry on oeis.org

2, 8, 12, 16, 32, 48, 64, 72, 80, 96, 112, 120, 128, 144, 160, 168, 192, 200, 224, 240, 256, 280, 288, 320, 336, 384, 392, 432, 448, 480, 512, 576, 640, 672, 704, 720, 768, 800, 832, 864, 896, 960, 1008, 1024, 1056, 1120, 1152, 1200, 1248, 1280, 1296, 1344

Offset: 1

Gus Wiseman, Jan 28 2021

nonn

			The initial terms and a valid factorization of each:
      2 = 2           168 = 3*7*8        512 = 2*2*2*2*32
      8 = 2*4         192 = 2*2*3*16     576 = 2*2*9*16
     12 = 3*4         200 = 5*5*8        640 = 2*2*10*16
     16 = 4*4         224 = 4*7*8        672 = 2*3*7*16
     32 = 2*2*8       240 = 5*6*8        704 = 2*2*11*16
     48 = 2*3*8       256 = 2*2*4*16     720 = 3*3*5*16
     64 = 2*4*8       280 = 5*7*8        768 = 2*2*2*3*32
     72 = 3*3*8       288 = 2*3*3*16     800 = 2*5*5*16
     80 = 2*5*8       320 = 2*2*5*16     832 = 2*2*13*16
     96 = 2*6*8       336 = 6*7*8        864 = 2*3*9*16
    112 = 2*7*8       384 = 2*2*6*16     896 = 2*2*14*16
    120 = 3*5*8       392 = 7*7*8        960 = 2*2*15*16
    128 = 2*2*2*16    432 = 3*3*3*16    1008 = 3*3*7*16
    144 = 3*6*8       448 = 2*2*7*16    1024 = 2*2*2*4*32
    160 = 4*5*8       480 = 2*3*5*16    1056 = 2*3*11*16

Partitions of the prescribed type are counted by A340611.
The conjugate version is A340689.
A001055 counts factorizations, with strict case A045778.
A047993 counts balanced partitions.
A316439 counts factorizations by product and length.
A340596 counts co-balanced factorizations.
A340597 lists numbers with an alt-balanced factorization.
A340653 counts balanced factorizations.
Cf. A106529, A117409, A200750, A325134, A340386, A340387, A340599, A340607, A340654, A340655, A340656, A340657.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[1000],Select[facs[#],2^Length[#]==Max@@#&]!={}&]

cp's OEIS Frontend

A340656 Numbers without a twice-balanced factorization.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340657 Numbers with a twice-balanced factorization.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A340788 Heinz numbers of integer partitions of negative rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A340603 Heinz numbers of integer partitions of odd rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A340787 Heinz numbers of integer partitions of positive rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A325135 Size of the integer partition with Heinz number n after its inner lining, or, equivalently, its largest hook, is removed.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A325224 Sum of prime indices of n minus the lesser of the number of prime factors of n counted with multiplicity and the maximum prime index of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A325133 Heinz number of the integer partition obtained by removing the inner lining, or, equivalently, the largest hook, of the integer partition with Heinz number n.

Views

Author

Keywords