A370803 -id:A370803 - cp's OEIS frontend

A371172 Number of integer partitions of n with as many submultisets as distinct divisors of parts.

0, 0, 1, 1, 0, 1, 0, 3, 2, 3, 1, 4, 2, 1, 2, 3, 4, 2, 4, 1, 5, 2, 7, 5, 9, 4, 9, 15, 18, 16, 24, 13, 17, 23, 23, 22, 34, 17, 30, 31, 36, 29, 43, 21, 30, 35, 44, 28, 47, 19, 44

Offset: 0

Gus Wiseman, Mar 16 2024

nonn

The Heinz numbers of these partitions are given by A371165.

			The partition (8,6,6) has 6 submultisets {(8,6,6),(8,6),(6,6),(8),(6),()} and 6 distinct divisors of parts {1,2,3,4,6,8}, so is counted under a(20).
The a(17) = 2 through a(24) = 9 partitions:
  (17)    (9,9)     (19)  (11,9)    (14,7)  (13,9)    (23)       (21,3)
  (13,4)  (15,3)          (15,5)    (17,4)  (21,1)    (19,4)     (22,2)
          (6,6,6)         (8,6,6)           (8,8,6)   (22,1)     (8,8,8)
          (12,3,3)        (12,4,4)          (10,6,6)  (15,4,4)   (10,8,6)
                          (18,1,1)          (16,3,3)  (12,10,1)  (12,6,6)
                                            (18,2,2)             (12,7,5)
                                            (20,1,1)             (18,3,3)
                                                                 (20,2,2)
                                                                 (12,10,2)

The RHS is represented by A370820.
Counting parts on the LHS gives A371130 (ranks A370802), strict A371128.
These partitions are ranked by A371165.
A000005 counts divisors.
A355731 counts choices of a divisor of each prime index, firsts A355732.
Choosable partitions: A239312 (A368110), A355740 (A370320), A370592 (A368100), A370593 (A355529).
Cf. A003963, A319055, A355739, A370803, A370808, A370813, A370814, A371166.

Table[Length[Select[IntegerPartitions[n], Length[Divisors[Times@@Prime/@#]] == Length[Union@@Divisors/@#]&]],{n,0,30}]

A371178 Number of integer partitions of n containing all divisors of all parts.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 6, 9, 12, 16, 21, 28, 37, 48, 62, 80, 101, 127, 162, 202, 252, 312, 386, 475, 585, 713, 869, 1056, 1278, 1541, 1859, 2232, 2675, 3196, 3811, 4534, 5386, 6379, 7547, 8908, 10497, 12345, 14501, 16999, 19897, 23253, 27135, 31618, 36796, 42756

Offset: 0

Gus Wiseman, Mar 17 2024

nonn

The Heinz numbers of these partitions are given by A371177.

Also partitions such that the number of distinct parts is equal to the number of distinct divisors of parts.

			The partition (4,2,1,1) contains all distinct divisors {1,2,4}, so is counted under a(8).
The partition (4,4,3,2,2,2,1) contains all distinct divisors {1,2,3,4} so is counted under 4 + 4 + 3 + 2 + 2 + 2 + 1 = 18. - _David A. Corneth_, Mar 18 2024
The a(0) = 1 through a(8) = 12 partitions:
  ()  (1)  (11)  (21)   (31)    (221)    (51)      (331)      (71)
                 (111)  (211)   (311)    (321)     (421)      (521)
                        (1111)  (2111)   (2211)    (511)      (3221)
                                (11111)  (3111)    (2221)     (3311)
                                         (21111)   (3211)     (4211)
                                         (111111)  (22111)    (5111)
                                                   (31111)    (22211)
                                                   (211111)   (32111)
                                                   (1111111)  (221111)
                                                              (311111)
                                                              (2111111)
                                                              (11111111)

The LHS is represented by A001221, distinct case of A001222.
For partitions with no divisors of parts we have A305148, ranks A316476.
The RHS is represented by A370820, for prime factors A303975.
The strict case is A371128.
Counting all parts on the LHS gives A371130, ranks A370802.
The complement is counted by A371132.
For submultisets instead of distinct parts we have A371172, ranks A371165.
These partitions have ranks A371177.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
Cf. A000837, A003963, A239312, A285573, A305148, A319055, A355529, A370803, A370808, A370813, A371168, A371171, A371173.

Table[Length[Select[IntegerPartitions[n],SubsetQ[#,Union@@Divisors/@#]&]],{n,0,30}]

A370816 Greatest number of multisets that can be obtained by choosing a divisor of each factor in an integer factorization of n into unordered factors > 1.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 7, 2, 4, 4, 7, 2, 7, 2, 7, 4, 4, 2, 11, 3, 4, 5, 7, 2, 8, 2, 10, 4, 4, 4, 12, 2, 4, 4, 11, 2, 8, 2, 7, 7, 4, 2, 17, 3, 7, 4, 7, 2, 11, 4, 11, 4, 4, 2, 15, 2, 4, 7, 14, 4, 8, 2, 7, 4, 8, 2, 20, 2, 4, 7, 7, 4, 8, 2, 17, 7, 4, 2

Offset: 1

Gus Wiseman, Mar 06 2024

nonn

			For the factorizations of 12 we have the following choices:
  (2*2*3): {{1,1,1},{1,1,2},{1,1,3},{1,2,2},{1,2,3},{2,2,3}}
    (2*6): {{1,1},{1,2},{1,3},{1,6},{2,2},{2,3},{2,6}}
    (3*4): {{1,1},{1,2},{1,3},{1,4},{2,3},{3,4}}
     (12): {{1},{2},{3},{4},{6},{12}}
So a(12) = 7.

Max Alekseyev, Table of n, a(n) for n = 1..10000

The version for partitions is A370808, for just prime factors A370809.
For just prime factors we have A370817.
A000005 counts divisors.
A001055 counts factorizations, strict A045778.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A368413 counts non-choosable factorizations, complement A368414.
A370813 counts non-divisor-choosable factorizations, complement A370814.
Cf. A000792, A048249, A066739, A319055, A319057, A355737, A355739, A355740, A355741, A368110, A370803.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Max[Length[Union[Sort/@Tuples[Divisors/@#]]]&/@facs[n]],{n,100}]

A371284 Number of integer partitions of n whose distinct parts form the set of divisors of some number.

Original entry on oeis.org

0, 1, 1, 2, 3, 4, 5, 8, 9, 11, 12, 16, 18, 23, 25, 32, 36, 42, 47, 57, 62, 73, 81, 96, 106, 123, 132, 154, 168, 190, 207, 240, 259, 293, 317, 359, 388, 434, 469, 529, 574, 635, 688, 768, 826, 915, 987, 1093, 1181, 1302, 1397, 1540, 1662, 1818, 1959, 2149, 2309

Offset: 0

Gus Wiseman, Mar 22 2024

nonn

The Heinz numbers of these partitions are given by A371288.

			The partition y = (10,5,5,5,2,2,1) has distinct parts {1,2,5,10}, which form the set of divisors of 10, so y is counted under a(30).
The a(1) = 1 through a(8) = 9 partitions:
  (1)  (11)  (21)   (31)    (221)    (51)      (331)      (71)
             (111)  (211)   (311)    (2211)    (421)      (3311)
                    (1111)  (2111)   (3111)    (511)      (4211)
                            (11111)  (21111)   (2221)     (5111)
                                     (111111)  (22111)    (22211)
                                               (31111)    (221111)
                                               (211111)   (311111)
                                               (1111111)  (2111111)
                                                          (11111111)

The strict case is A054973, ranks A371283 (unsorted version A275700).
These partitions have ranks A371288.
A000005 counts divisors, row-lengths of A027750.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
Cf. A001221, A002865, A239312, A370803, A371172, A371286, A371285.

Table[Length[Select[IntegerPartitions[n], Union[#]==Divisors[Max[#]]&]],{n,0,30}]

A370811 Numbers such that more than one set can be obtained by choosing a different divisor of each prime index.

Original entry on oeis.org

3, 5, 7, 11, 13, 14, 15, 17, 19, 21, 23, 26, 29, 31, 33, 35, 37, 38, 39, 41, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 65, 67, 69, 70, 71, 73, 74, 77, 78, 79, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 105, 106, 107, 109, 111, 113, 114, 115, 117, 119

Offset: 1

Gus Wiseman, Mar 13 2024

nonn

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

			The prime indices of 70 are {1,3,4}, with choices (1,3,4) and (1,3,2), so 70 is in the sequence.
The terms together with their prime indices begin:
     3: {2}      43: {14}        79: {22}       115: {3,9}
     5: {3}      46: {1,9}       83: {23}       117: {2,2,6}
     7: {4}      47: {15}        85: {3,7}      119: {4,7}
    11: {5}      49: {4,4}       86: {1,14}     122: {1,18}
    13: {6}      51: {2,7}       87: {2,10}     123: {2,13}
    14: {1,4}    53: {16}        89: {24}       127: {31}
    15: {2,3}    55: {3,5}       91: {4,6}      129: {2,14}
    17: {7}      57: {2,8}       93: {2,11}     130: {1,3,6}
    19: {8}      58: {1,10}      94: {1,15}     131: {32}
    21: {2,4}    59: {17}        95: {3,8}      133: {4,8}
    23: {9}      61: {18}        97: {25}       137: {33}
    26: {1,6}    65: {3,6}      101: {26}       138: {1,2,9}
    29: {10}     67: {19}       103: {27}       139: {34}
    31: {11}     69: {2,9}      105: {2,3,4}    141: {2,15}
    33: {2,5}    70: {1,3,4}    106: {1,16}     142: {1,20}
    35: {3,4}    71: {20}       107: {28}       143: {5,6}
    37: {12}     73: {21}       109: {29}       145: {3,10}
    38: {1,8}    74: {1,12}     111: {2,12}     146: {1,21}
    39: {2,6}    77: {4,5}      113: {30}       149: {35}
    41: {13}     78: {1,2,6}    114: {1,2,8}    151: {36}

For no choices we have A355740, counted by A370320.
For at least one choice we have A368110, counted by A239312.
Partitions of this type are counted by A370803.
For a unique choice we have A370810, counted by A370595 and A370815.
A000005 counts divisors.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741, A355744, A355745 choose prime factors of prime indices.
A370814 counts factorizations with choosable divisors, complement A370813.
Cf. A133686, A355529, A355739, A355749, A367771, A367904, A370584, A370592, A370594, A370647, A370808, A370816.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Length[Union[Sort /@ Select[Tuples[Divisors/@prix[#]],UnsameQ@@#&]]]>1&]

A371132 Number of integer partitions of n with fewer distinct parts than distinct divisors of parts.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 5, 6, 10, 14, 21, 28, 40, 53, 73, 96, 130, 170, 223, 288, 375, 480, 616, 780, 990, 1245, 1567, 1954, 2440, 3024, 3745, 4610, 5674, 6947, 8499, 10349, 12591, 15258, 18468, 22277, 26841, 32238, 38673, 46262, 55278, 65881, 78423, 93136, 110477

Offset: 0

Gus Wiseman, Mar 17 2024

nonn

The Heinz numbers of these partitions are given by A371179.

			The partition (4,3,1,1) has 3 distinct parts {1,3,4} and 4 distinct divisors of parts {1,2,3,4}, so is counted under a(9).
The a(0) = 0 through a(9) = 14 partitions:
  .  .  (2)  (3)  (4)   (5)   (6)    (7)     (8)      (9)
                  (22)  (32)  (33)   (43)    (44)     (54)
                        (41)  (42)   (52)    (53)     (63)
                              (222)  (61)    (62)     (72)
                              (411)  (322)   (332)    (81)
                                     (4111)  (422)    (333)
                                             (431)    (432)
                                             (611)    (441)
                                             (2222)   (522)
                                             (41111)  (621)
                                                      (3222)
                                                      (4311)
                                                      (6111)
                                                      (411111)

The LHS is represented by A001221, distinct case of A001222.
The RHS is represented by A370820, for prime factors A303975.
The complement counting all parts on the LHS is A371172, ranks A371165.
Counting all parts on the LHS gives A371173, ranks A371168.
The complement is counted by A371178, ranks A371177.
These partitions are ranked by A371179.
The strict case is A371180, complement A371128.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
Cf. A003963, A239312, A319055, A355740, A370802, A370803, A370808, A370813, A371130, A371171.

Table[Length[Select[IntegerPartitions[n],Length[Union[#]] < Length[Union@@Divisors/@#]&]],{n,0,30}]

A370815 Number of integer factorizations of n into unordered factors > 1, such that only one set can be obtained by choosing a different divisor of each factor.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 06 2024

nonn

			The a(432) = 3 factorizations: (2*2*3*4*9), (2*3*3*4*6), (2*6*6*6).

For partitions and prime factors we have A370594, ranks A370647.
Partitions of this type are counted by A370595, ranks A370810.
For prime factors we have A370645, subsets A370584.
A000005 counts divisors.
A001055 counts factorizations, strict A045778.
A239312 counts condensed partitions, ranks A355740, complement A370320.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A368414 counts factor-choosable factorizations, complement A368413.
A370814 counts divisor-choosable factorizations, complement A370813.
Cf. A340596, A340653, A355529, A355739, A368110, A370592, A370638, A370803.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&, Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],Length[Union[Sort /@ Select[Tuples[Divisors/@#],UnsameQ@@#&]]]==1&]],{n,100}]

A371179 Positive integers with fewer distinct prime factors (A001221) than distinct divisors of prime indices (A370820).

Original entry on oeis.org

3, 5, 7, 9, 11, 13, 14, 15, 17, 19, 21, 23, 25, 26, 27, 28, 29, 31, 33, 35, 37, 38, 39, 41, 43, 45, 46, 47, 49, 51, 52, 53, 55, 56, 57, 58, 59, 61, 63, 65, 67, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 81, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95, 97, 98, 99, 101

Offset: 1

Gus Wiseman, Mar 19 2024

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}        28: {1,1,4}    52: {1,1,6}      74: {1,12}
     5: {3}        29: {10}       53: {16}         75: {2,3,3}
     7: {4}        31: {11}       55: {3,5}        76: {1,1,8}
     9: {2,2}      33: {2,5}      56: {1,1,1,4}    77: {4,5}
    11: {5}        35: {3,4}      57: {2,8}        78: {1,2,6}
    13: {6}        37: {12}       58: {1,10}       79: {22}
    14: {1,4}      38: {1,8}      59: {17}         81: {2,2,2,2}
    15: {2,3}      39: {2,6}      61: {18}         83: {23}
    17: {7}        41: {13}       63: {2,2,4}      85: {3,7}
    19: {8}        43: {14}       65: {3,6}        86: {1,14}
    21: {2,4}      45: {2,2,3}    67: {19}         87: {2,10}
    23: {9}        46: {1,9}      69: {2,9}        89: {24}
    25: {3,3}      47: {15}       70: {1,3,4}      91: {4,6}
    26: {1,6}      49: {4,4}      71: {20}         92: {1,1,9}
    27: {2,2,2}    51: {2,7}      73: {21}         93: {2,11}

The LHS is A001221, distinct case of A001222.
The RHS is A370820, for prime factors A303975.
Partitions of this type are counted by A371132, strict A371180.
Counting all prime indices on the LHS gives A371168, counted by A371173.
The complement is A371177, counted by A371178, strict A371128.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
A305148 counts pairwise indivisible (stable) partitions, ranks A316476.
Cf. A003963, A239312, A285573, A355529, A370802, A370803, A371130, A371165, A371171, A371172.

Mathematica
```
Select[Range[100],PrimeNu[#]
				
```

A001221(a(n)) < A370820(a(n)).

A371180 Number of strict integer partitions of n with fewer parts than distinct divisors of parts.

Original entry on oeis.org

0, 0, 1, 1, 1, 3, 2, 4, 4, 7, 8, 10, 12, 15, 19, 22, 29, 33, 40, 47, 57, 68, 81, 95, 110, 129, 152, 178, 207, 240, 277, 317, 365, 422, 486, 558, 632, 723, 824, 940, 1067, 1210, 1371, 1544, 1751, 1977, 2233, 2508, 2820, 3162, 3555, 3983, 4465, 4990, 5571, 6224

Offset: 0

Gus Wiseman, Mar 18 2024

nonn

			The strict partition (6,4,2,1) has 4 parts and 5 distinct divisors of parts {1,2,3,4,5}, so is counted under a(13).
The a(2) = 1 through a(11) = 10 partitions:
  (2)  (3)  (4)  (5)    (6)    (7)    (8)      (9)      (10)     (11)
                 (3,2)  (4,2)  (4,3)  (5,3)    (5,4)    (6,4)    (6,5)
                 (4,1)         (5,2)  (6,2)    (6,3)    (7,3)    (7,4)
                               (6,1)  (4,3,1)  (7,2)    (8,2)    (8,3)
                                               (8,1)    (9,1)    (9,2)
                                               (4,3,2)  (5,3,2)  (10,1)
                                               (6,2,1)  (5,4,1)  (5,4,2)
                                                        (6,3,1)  (6,3,2)
                                                                 (6,4,1)
                                                                 (8,2,1)

The LHS is represented by A001221, distinct case of A001222.
The RHS is represented by A370820, for prime factors A303975.
The version for equality is A371128.
The non-strict version is A371132, ranks A371179.
The non-strict complement is A371178, ranks A371177.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
Cf. A003963, A239312, A319055, A355529, A370803, A370808, A370813, A371130 (A370802), A371171, A371172 (A371165), A371173 (A371168).

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Length[Union[#]] < Length[Union@@Divisors/@#]&]],{n,0,30}]

cp's OEIS Frontend

A371172 Number of integer partitions of n with as many submultisets as distinct divisors of parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371178 Number of integer partitions of n containing all divisors of all parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370816 Greatest number of multisets that can be obtained by choosing a divisor of each factor in an integer factorization of n into unordered factors > 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A371284 Number of integer partitions of n whose distinct parts form the set of divisors of some number.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370811 Numbers such that more than one set can be obtained by choosing a different divisor of each prime index.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371132 Number of integer partitions of n with fewer distinct parts than distinct divisors of parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370815 Number of integer factorizations of n into unordered factors > 1, such that only one set can be obtained by choosing a different divisor of each factor.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A371179 Positive integers with fewer distinct prime factors (A001221) than distinct divisors of prime indices (A370820).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A371180 Number of strict integer partitions of n with fewer parts than distinct divisors of parts.

Views

Author

Keywords

Examples

Crossrefs

Programs