A340828 -id:A340828 - cp's OEIS frontend

A168659 Number of partitions of n such that the number of parts is divisible by the greatest part. Also number of partitions of n such that the greatest part is divisible by the number of parts.

1, 1, 2, 2, 3, 3, 6, 6, 8, 9, 14, 16, 22, 25, 33, 39, 51, 60, 79, 92, 116, 137, 174, 204, 254, 300, 368, 435, 530, 625, 760, 896, 1076, 1267, 1518, 1780, 2121, 2484, 2946, 3444, 4070, 4749, 5594, 6514, 7637, 8879, 10384, 12043, 14040, 16255

Offset: 1

Vladeta Jovovic, Dec 02 2009

nonn

			a(5)=3 because in the partitions [1,1,1,1,1], [1,1,1,2], [1,1,3] the number of parts is divisible by the greatest part; not true for the partitions [1,2,2],[2,3], [1,4], and [5]. - _Emeric Deutsch_, Dec 04 2009
From _Gus Wiseman_, Feb 08 2021: (Start)
The a(1) = 1 through a(10) = 9 partitions of the first type:
  1  11  21   22    311    321     322      332       333        4222
         111  1111  2111   2211    331      2222      4221       4321
                    11111  111111  2221     4211      4311       4411
                                   4111     221111    51111      52111
                                   211111   311111    222111     222211
                                   1111111  11111111  321111     322111
                                                      21111111   331111
                                                      111111111  22111111
                                                                 1111111111
The a(1) = 1 through a(11) = 14 partitions of the second type (A=10, B=11):
  1   2   3    4    5     6     7      8      9       A       B
          21   22   41    42    43     44     63      64      65
                    311   321   61     62     81      82      83
                                322    332    333     622     A1
                                331    611    621     631     632
                                4111   4211   4221    4222    641
                                              4311    4321    911
                                              51111   4411    4322
                                                      52111   4331
                                                              4421
                                                              8111
                                                              52211
                                                              53111
                                                              611111
(End)

Vaclav Kotesovec, Table of n, a(n) for n = 1..5000 (terms 1..301 from Vladeta Jovovic corrected by N. J. A. Sloane, Oct 05 2010, terms 302..1000 from Seiichi Manyama)

Cf. A168656, A168657, A079501, A168655.
Note: A-numbers of Heinz-number sequences are in parentheses below.
The case of equality is A047993 (A106529).
The Heinz numbers of these partitions are A340609/A340610.
If all parts (not just the greatest) are divisors we get A340693 (A340606).
The strict case in the second interpretation is A340828 (A340856).
A006141 = partitions whose length equals their minimum (A324522).
A067538 = partitions whose length/max divides their sum (A316413/A326836).
A200750 = partitions with length coprime to maximum (A340608).
Cf. A003114, A039900, A064173, A064174, A143773, A326837, A340653, A340830, A340851, A340853.
Row sums of A350879.

a := proc (n) local pn, ct, j: with(combinat): pn := partition(n): ct := 0: for j to numbpart(n) do if `mod`(nops(pn[j]), max(seq(pn[j][i], i = 1 .. nops(pn[j])))) = 0 then ct := ct+1 else end if end do: ct end proc: seq(a(n), n = 1 .. 50); # Emeric Deutsch, Dec 04 2009

Table[Length[Select[IntegerPartitions[n],Divisible[Length[#],Max[#]]&]],{n,30}] (* Gus Wiseman, Feb 08 2021 *)
nmax = 100; s = 0; Do[s += Normal[Series[Sum[x^((m+1)*k - 1) * Product[(1 - x^(m*k + j - 1))/(1 - x^j), {j, 1, k-1}], {k, 1, (1 + nmax)/(1 + m) + 1}], {x, 0, nmax}]], {m, 1, nmax}]; Rest[CoefficientList[s, x]] (* Vaclav Kotesovec, Oct 18 2024 *)

G.f.: Sum_{i>=1} Sum_{j>=1} x^((i+1)*j-1) * Product_{k=1..j-1} (1-x^(i*j+k-1))/(1-x^k). - Seiichi Manyama, Jan 24 2022

a(n) ~ c * exp(Pi*sqrt(2*n/3)) / n^(3/2), where c = 0.04628003... - Vaclav Kotesovec, Nov 16 2024

Extended by Emeric Deutsch, Dec 04 2009

A340610 Numbers whose number of prime factors (A001222) divides their greatest prime index (A061395).

Original entry on oeis.org

2, 3, 5, 6, 7, 9, 11, 13, 14, 17, 19, 20, 21, 23, 26, 29, 30, 31, 35, 37, 38, 39, 41, 43, 45, 47, 49, 50, 52, 53, 56, 57, 58, 59, 61, 65, 67, 71, 73, 74, 75, 78, 79, 83, 84, 86, 87, 89, 91, 92, 95, 97, 101, 103, 106, 107, 109, 111, 113, 117, 122, 125, 126, 127

Offset: 1

Gus Wiseman, Jan 27 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.

			The sequence of terms together with their prime indices begins:
     2: {1}        29: {10}       56: {1,1,1,4}
     3: {2}        30: {1,2,3}    57: {2,8}
     5: {3}        31: {11}       58: {1,10}
     6: {1,2}      35: {3,4}      59: {17}
     7: {4}        37: {12}       61: {18}
     9: {2,2}      38: {1,8}      65: {3,6}
    11: {5}        39: {2,6}      67: {19}
    13: {6}        41: {13}       71: {20}
    14: {1,4}      43: {14}       73: {21}
    17: {7}        45: {2,2,3}    74: {1,12}
    19: {8}        47: {15}       75: {2,3,3}
    20: {1,1,3}    49: {4,4}      78: {1,2,6}
    21: {2,4}      50: {1,3,3}    79: {22}
    23: {9}        52: {1,1,6}    83: {23}
    26: {1,6}      53: {16}       84: {1,1,2,4}

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

Note: Heinz numbers are given in parentheses below.
The case of equality is A047993 (A106529).
The case where all parts are multiples, not just the maximum part, is A143773 (A316428), with strict case A340830, while the case of factorizations is A340853.
These are the Heinz numbers of certain partitions counted by A168659.
The reciprocal version is A340609.
The squarefree case is A340828 (A340856).
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413).
A067538 counts partitions whose maximum divides their sum (A326836).
A112798 lists the prime indices of each positive integer.
A200750 counts partitions with length coprime to maximum (A340608).
A325134 = A001222 + A061395.
A326845 = A056239 * A061395.
Cf. A244990/A244991, A326837, A326849 (A326848), A340653, A340691, A340693 (A340606), A340787/A340788.

filter:= proc(n) local F,m,g,t;
  F:= ifactors(n)[2];
  m:= add(t[2],t=F);
  g:= numtheory:-pi(max(seq(t[1],t=F)));
  g mod m = 0;
end proc:
select(filter, [$2..1000]); # Robert Israel, Feb 08 2021

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

A001222(a(n)) divides A061395(a(n)).

A340609 Numbers whose number of prime factors (A001222) is divisible by their greatest prime index (A061395).

Original entry on oeis.org

2, 4, 6, 8, 9, 16, 20, 24, 30, 32, 36, 45, 50, 54, 56, 64, 75, 81, 84, 96, 125, 126, 128, 140, 144, 160, 176, 189, 196, 210, 216, 240, 256, 264, 294, 315, 324, 350, 360, 384, 396, 400, 416, 440, 441, 486, 490, 512, 525, 540, 576, 594, 600, 616, 624, 660, 686

Offset: 1

Gus Wiseman, Jan 27 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.

If n is a term, then so is n^k for k > 1. - Robert Israel, Feb 08 2021

			The sequence of terms together with their prime indices begins:
      2: {1}             64: {1,1,1,1,1,1}      216: {1,1,1,2,2,2}
      4: {1,1}           75: {2,3,3}            240: {1,1,1,1,2,3}
      6: {1,2}           81: {2,2,2,2}          256: {1,1,1,1,1,1,1,1}
      8: {1,1,1}         84: {1,1,2,4}          264: {1,1,1,2,5}
      9: {2,2}           96: {1,1,1,1,1,2}      294: {1,2,4,4}
     16: {1,1,1,1}      125: {3,3,3}            315: {2,2,3,4}
     20: {1,1,3}        126: {1,2,2,4}          324: {1,1,2,2,2,2}
     24: {1,1,1,2}      128: {1,1,1,1,1,1,1}    350: {1,3,3,4}
     30: {1,2,3}        140: {1,1,3,4}          360: {1,1,1,2,2,3}
     32: {1,1,1,1,1}    144: {1,1,1,1,2,2}      384: {1,1,1,1,1,1,1,2}
     36: {1,1,2,2}      160: {1,1,1,1,1,3}      396: {1,1,2,2,5}
     45: {2,2,3}        176: {1,1,1,1,5}        400: {1,1,1,1,3,3}
     50: {1,3,3}        189: {2,2,2,4}          416: {1,1,1,1,1,6}
     54: {1,2,2,2}      196: {1,1,4,4}          440: {1,1,1,3,5}
     56: {1,1,1,4}      210: {1,2,3,4}          441: {2,2,4,4}

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

Note: Heinz numbers are given in parentheses below.
The case of equality is A047993 (A106529).
These are the Heinz numbers of certain partitions counted by A168659.
The reciprocal version is A340610, with strict case A340828 (A340856).
If all parts (not just the greatest) are divisors we get A340693 (A340606).
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413).
A067538 counts partitions whose maximum divides their sum (A326836).
A112798 lists the prime indices of each positive integer.
A200750 counts partitions with length coprime to maximum (A340608).
A325134 = A001222 + A061395.
A326845 = A056239 * A061395.
Cf. A039900, A064174, A143773, A244990/A244991, A326837, A326849 (A326848), A340653, A340787/A340788.

filter:= proc(n) local F,m,g,t;
  F:= ifactors(n)[2];
  m:= add(t[2],t=F);
  g:= numtheory:-pi(max(seq(t[1],t=F)));
  m mod g = 0;
end proc:
seelect(filter, [$2..1000]); # Robert Israel, Feb 08 2021

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

A061395(a(n)) divides A001222(a(n)).

A340692 Number of integer partitions of n of odd rank.

Original entry on oeis.org

0, 0, 2, 0, 4, 2, 8, 4, 14, 12, 26, 22, 44, 44, 76, 78, 126, 138, 206, 228, 330, 378, 524, 602, 814, 950, 1252, 1466, 1900, 2238, 2854, 3362, 4236, 5006, 6232, 7356, 9078, 10720, 13118, 15470, 18800, 22152, 26744, 31456, 37772, 44368, 53002, 62134, 73894

Offset: 0

Gus Wiseman, Jan 29 2021

nonn

The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

			The a(0) = 0 through a(9) = 12 partitions (empty columns indicated by dots):
  .  .  (2)   .  (4)     (32)   (6)       (52)     (8)         (54)
        (11)     (31)    (221)  (33)      (421)    (53)        (72)
                 (211)          (51)      (3211)   (71)        (432)
                 (1111)         (222)     (22111)  (422)       (441)
                                (411)              (431)       (621)
                                (3111)             (611)       (3222)
                                (21111)            (3221)      (3321)
                                (111111)           (3311)      (5211)
                                                   (5111)      (22221)
                                                   (22211)     (42111)
                                                   (41111)     (321111)
                                                   (311111)    (2211111)
                                                   (2111111)
                                                   (11111111)

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.
The case of length/maximum instead of rank is A027193 (A026424/A244991).
The case of odd positive rank is A101707 is (A340604).
The strict case is A117193.
The even version is A340601 (A340602).
The Heinz numbers of these partitions are (A340603).
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.
A064173 counts partitions of positive/negative rank (A340787/A340788).
A064174 counts partitions of nonpositive/nonnegative rank (A324521/A324562).
A101198 counts partitions of rank 1 (A325233).
A101708 counts partitions of even positive rank (A340605).
A257541 gives the rank of the partition with Heinz number n.
A324520 counts partitions with rank equal to least part (A324519).
- Odd -
A000009 counts partitions into odd parts (A066208).
A026804 counts partitions whose least part is odd.
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.
A340385 counts partitions of odd length and maximum (A340386).
Cf. A003114, A006141, A027187, A039900, A067538, A096401, A117409, A143773, A324518, A325134, A340828, A340854/A340855.

Table[Length[Select[IntegerPartitions[n],OddQ[Max[#]-Length[#]]&]],{n,0,30}]

Having odd rank is preserved under conjugation, and self-conjugate partitions cannot have odd rank, so a(n) = 2*A101707(n) for n > 0.

A340608 The number of prime factors of n (A001222) is relatively prime to the maximum prime index of n (A061395).

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 10, 11, 12, 13, 15, 16, 17, 18, 19, 22, 23, 25, 27, 28, 29, 31, 32, 33, 34, 37, 40, 41, 42, 43, 44, 46, 47, 48, 51, 53, 55, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, 73, 76, 77, 79, 80, 82, 83, 85, 88, 89, 90, 93, 94, 97, 98, 99

Offset: 1

Gus Wiseman, Jan 27 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.

			The sequence of terms together with their prime indices begins:
     2: {1}          22: {1,5}          44: {1,1,5}
     3: {2}          23: {9}            46: {1,9}
     4: {1,1}        25: {3,3}          47: {15}
     5: {3}          27: {2,2,2}        48: {1,1,1,1,2}
     7: {4}          28: {1,1,4}        51: {2,7}
     8: {1,1,1}      29: {10}           53: {16}
    10: {1,3}        31: {11}           55: {3,5}
    11: {5}          32: {1,1,1,1,1}    59: {17}
    12: {1,1,2}      33: {2,5}          60: {1,1,2,3}
    13: {6}          34: {1,7}          61: {18}
    15: {2,3}        37: {12}           62: {1,11}
    16: {1,1,1,1}    40: {1,1,1,3}      63: {2,2,4}
    17: {7}          41: {13}           64: {1,1,1,1,1,1}
    18: {1,2,2}      42: {1,2,4}        66: {1,2,5}
    19: {8}          43: {14}           67: {19}

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

Note: Heinz numbers are given in parentheses below.
These are the Heinz numbers of the partitions counted by A200750.
The case of equality is A047993 (A106529).
The divisible instead of coprime version is A168659 (A340609).
The dividing instead of coprime version is A168659 (A340610), with strict case A340828 (A340856).
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A051424 counts singleton or pairwise coprime partitions (A302569).
A056239 adds up prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413).
A067538 counts partitions whose maximum divides their sum (A326836).
A112798 lists the prime indices of each positive integer.
A259936 counts singleton or pairwise coprime factorizations.
A325134 = A001222 + A061395.
A326845 = A056239 * A061395.
A326849 counts partitions whose sum divides length times maximum (A326848).
A327516 counts pairwise coprime partitions (A302696).
Cf. A003114, A039900, A096401, A244990/A244991, A340606, A340653, A340691, A340787/A340788.

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

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)).

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)).

A340830 Number of strict integer partitions of n such that every part is a multiple of the number of parts.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 3, 1, 4, 1, 4, 1, 6, 1, 5, 2, 6, 1, 8, 1, 7, 4, 7, 1, 12, 1, 8, 6, 9, 1, 16, 1, 10, 9, 11, 1, 21, 1, 12, 13, 12, 1, 28, 1, 13, 17, 16, 1, 33, 1, 19, 22, 15, 1, 45, 1, 16, 28, 25, 1, 47, 1, 28, 34, 18

Offset: 1

Gus Wiseman, Feb 02 2021

nonn

			The a(n) partitions for n = 1, 6, 10, 14, 18, 20, 24, 26, 30:
  1   6     10    14     18      20     24       26      30
      4,2   6,4   8,6    10,8    12,8   16,8     18,8    22,8
            8,2   10,4   12,6    14,6   18,6     20,6    24,6
                  12,2   14,4    16,4   20,4     22,4    26,4
                         16,2    18,2   22,2     24,2    28,2
                         9,6,3          14,10    14,12   16,14
                                        12,9,3   16,10   18,12
                                        15,6,3           20,10
                                                         15,9,6
                                                         18,9,3
                                                         21,6,3
                                                         15,12,3

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A143773 (A316428).
The case where length divides sum also is A340827.
The version for factorizations is A340851.
Factorization of this type are counted by A340853.
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions whose length/max divide sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A102627 counts strict partitions whose length divides sum.
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A340828 counts strict partitions with length divisible by maximum.
A340829 counts strict partitions with Heinz number divisible by sum.
Cf. A114638, A168659, A326641, A326843 (A326837), A326849, A326852 (A326838), A330950 (A324851), A340852.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&And@@IntegerQ/@(#/Length[#])&]],{n,30}]

a(n) = Sum_{d|n} A008289(n/d, d).

A340827 Number of strict integer partitions of n into divisors of n whose length also divides n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 5, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 5, 1, 1, 1, 3, 1, 2, 1, 1, 1, 1, 1, 6, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 25, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 18, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 17, 1, 1, 1, 1, 1, 14, 1, 1, 1, 1, 1, 12, 1, 1, 1, 3, 1, 2, 1, 1, 1

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

The first element not in A326715 that is however a Heinz number of these partitions is 273.

			The a(n) partitions for n = 6, 12, 24, 90, 84:
  6       12        24            90                      84
  3,2,1   6,4,2     12,8,4        45,30,15                42,28,14
          6,3,2,1   12,6,4,2      45,30,9,5,1             42,21,14,7
                    12,8,3,1      45,18,15,9,3            42,28,12,2
                    8,6,4,3,2,1   45,30,10,3,2            42,28,6,4,3,1
                                  45,18,15,10,2           42,28,7,4,2,1
                                  45,30,6,5,3,1           42,14,12,7,6,3
                                  45,30,9,3,2,1           42,21,12,4,3,2
                                  45,15,10,9,6,5          42,21,12,6,2,1
                                  45,18,10,9,5,3          42,21,14,4,2,1
                                  45,18,10,9,6,2          28,21,14,12,6,3
                                  45,18,15,6,5,1          28,21,14,12,7,2
                                  45,18,15,9,2,1          42,21,7,6,4,3,1
                                  30,18,15,10,6,5,3,2,1   42,14,12,7,4,3,2
                                                          42,14,12,7,6,2,1
                                                          28,21,14,12,4,3,2
                                                          28,21,14,12,6,2,1

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 2519 terms from Antti Karttunen)
Antti Karttunen, Scheme program for computing this sequence

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A326842 (A326847).
A018818 = partitions using divisors (A326841).
A047993 = balanced partitions (A106529).
A067538 = partitions whose length/maximum divides sum (A316413/A326836).
A072233 = partitions by sum and length, with strict case A008289.
A102627 = strict partitions whose length divides sum.
A326850 = strict partitions whose maximum part divides sum.
A326851 = strict partitions w/ length and max dividing sum.
A340828 = strict partitions w/ length divisible by max.
A340829 = strict partitions w/ Heinz number divisible by sum.
A340830 = strict partitions w/ parts divisible by length.
Cf. A064173, A143773 (A316428), A168659, A326843 (A326837), A326852, A330950 (A324851), A340851, A340853.

Table[Length[Select[IntegerPartitions[n,All,Divisors[n]],UnsameQ@@#&&Divisible[n,Length[#]]&]],{n,30}]

A340827(n, divsleft=List(divisors(n)), rest=n, len=0) = if(rest<=0, !rest && !(n%len), my(s=0, d); forstep(i=#divsleft, 1, -1, d = divsleft[i]; listpop(divsleft,i); if(rest>=d, s += A340827(n, divsleft, rest-d, 1+len))); (s)); \\ Antti Karttunen, Feb 22 2023

;; See the Links-section. - Antti Karttunen, Feb 22 2023

Data section extended up to a(105) by Antti Karttunen, Feb 22 2023

A340856 Squarefree numbers whose greatest prime index (A061395) is divisible by their number of prime factors (A001222).

Original entry on oeis.org

2, 3, 5, 6, 7, 11, 13, 14, 17, 19, 21, 23, 26, 29, 30, 31, 35, 37, 38, 39, 41, 43, 47, 53, 57, 58, 59, 61, 65, 67, 71, 73, 74, 78, 79, 83, 86, 87, 89, 91, 95, 97, 101, 103, 106, 107, 109, 111, 113, 122, 127, 129, 130, 131, 133, 137, 138, 139, 142, 143, 145

Offset: 1

Gus Wiseman, Feb 05 2021

nonn

Also Heinz numbers of strict integer partitions whose greatest part is divisible by their number of parts. These partitions are counted by A340828.

			The sequence of terms together with their prime indices begins:
      2: {1}         31: {11}       71: {20}
      3: {2}         35: {3,4}      73: {21}
      5: {3}         37: {12}       74: {1,12}
      6: {1,2}       38: {1,8}      78: {1,2,6}
      7: {4}         39: {2,6}      79: {22}
     11: {5}         41: {13}       83: {23}
     13: {6}         43: {14}       86: {1,14}
     14: {1,4}       47: {15}       87: {2,10}
     17: {7}         53: {16}       89: {24}
     19: {8}         57: {2,8}      91: {4,6}
     21: {2,4}       58: {1,10}     95: {3,8}
     23: {9}         59: {17}       97: {25}
     26: {1,6}       61: {18}      101: {26}
     29: {10}        65: {3,6}     103: {27}
     30: {1,2,3}     67: {19}      106: {1,16}

Note: Heinz number sequences are given in parentheses below.
The case of equality, and the reciprocal version, are both A002110.
The non-strict reciprocal version is A168659 (A340609).
The non-strict version is A168659 (A340610).
These are the Heinz numbers of partitions counted by A340828.
A001222 counts prime factors.
A006141 counts partitions whose length equals their minimum (A324522).
A056239 adds up the prime indices.
A061395 selects the maximum prime index.
A067538 counts partitions whose length divides their sum (A316413/A326836).
A112798 lists the prime indices of each positive integer.
A200750 counts partitions with length coprime to maximum (A340608).
A257541 gives the rank of the partition with Heinz number n.
A340830 counts strict partitions whose parts are multiples of the length.
Cf. A039900, A047993 (A106529), A064174, A143773 (A316428), A326837, A326849 (A326848), A340599, A340691.

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

cp's OEIS Frontend

A168659 Number of partitions of n such that the number of parts is divisible by the greatest part. Also number of partitions of n such that the greatest part is divisible by the number of parts.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A340610 Numbers whose number of prime factors (A001222) divides their greatest prime index (A061395).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A340609 Numbers whose number of prime factors (A001222) is divisible by their greatest prime index (A061395).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A340692 Number of integer partitions of n of odd rank.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A340608 The number of prime factors of n (A001222) is relatively prime to the maximum prime index of n (A061395).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A340788 Heinz numbers of integer partitions of negative 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