cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 12 results. Next

A370808 Greatest number of multisets that can be obtained by choosing a divisor of each part of an integer partition of n.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 5, 6, 7, 10, 11, 14, 17, 19, 23, 29, 30, 39, 41, 51, 58, 66, 78, 82, 102, 110, 132, 144, 162, 186, 210, 228, 260, 296, 328, 366, 412, 462, 512, 560, 638, 692, 764, 860, 924, 1028, 1122, 1276, 1406, 1528, 1721, 1898, 2056, 2318, 2506, 2812, 3020, 3442
Offset: 0

Views

Author

Gus Wiseman, Mar 05 2024

Keywords

Examples

			For the partitions of 5 we have the following choices:
      (5): {{1},{5}}
     (41): {{1,1},{1,2},{1,4}}
     (32): {{1,1},{1,2},{1,3},{2,3}}
    (311): {{1,1,1},{1,1,3}}
    (221): {{1,1,1},{1,1,2},{1,2,2}}
   (2111): {{1,1,1,1},{1,1,1,2}}
  (11111): {{1,1,1,1,1}}
So a(5) = 4.

Crossrefs

For just prime factors we have A370809.
The version for factorizations is A370816, for just prime factors A370817.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A239312 counts condensed partitions, ranks A368110.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355733 counts choices of divisors of prime indicec.
A370320 counts non-condensed partitions, ranks A355740.
A370592 counts factor-choosable partitions, complement A370593.
Cf. A000792, A048249, A066739, A319055, A355737, A355739, A370348, A370595, A370803, A370810.

Programs

  • Mathematica
    Table[Max[Length[Union[Sort/@Tuples[Divisors/@#]]]&/@IntegerPartitions[n]],{n,0,30}]

Extensions

Terms a(31) onward from Max Alekseyev, Sep 17 2024

A371130 Number of integer partitions of n such that the number of parts is equal to the number of distinct divisors of parts.

Original entry on oeis.org

1, 1, 0, 1, 2, 0, 4, 2, 4, 5, 5, 11, 10, 16, 17, 21, 26, 32, 44, 53, 69, 71, 101, 110, 148, 168, 205, 249, 289, 356, 418, 502, 589, 716, 812, 999, 1137, 1365, 1566, 1873, 2158, 2537, 2942, 3449, 4001, 4613, 5380, 6193, 7220, 8224, 9575, 10926, 12683, 14430
Offset: 0

Views

Author

Gus Wiseman, Mar 17 2024

Keywords

Comments

The Heinz numbers of these partitions are given by A370802.

Examples

			The partition (6,2,2,1) has 4 parts and 4 distinct divisors of parts {1,2,3,6} so is counted under a(11).
The a(1) = 1 through a(11) = 11 partitions:
  (1)  .  (21)  (22)  .  (33)   (322)  (71)   (441)   (55)    (533)
                (31)     (51)   (421)  (332)  (522)   (442)   (722)
                         (321)         (422)  (531)   (721)   (731)
                         (411)         (521)  (4311)  (4321)  (911)
                                              (6111)  (6211)  (4322)
                                                              (4331)
                                                              (5321)
                                                              (5411)
                                                              (6221)
                                                              (6311)
                                                              (8111)

Crossrefs

The LHS is represented by A001222, distinct A000021.
These partitions are ranked by A370802.
The RHS is represented by A370820, for prime factors A303975.
The strict case is A371128.
For (greater than) instead of (equal to) we have A371171, ranks A370348.
For submultisets instead of parts on the LHS we have A371172.
For (less than) instead of (equal to) we have A371173, ranked by A371168.
Counting only distinct parts on the LHS gives A371178, ranks A371177.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
Choosable partitions: A239312 (A368110), A355740 (A370320), A370592 (A368100), A370593 (A355529).
Cf. A003963, A319055, A355731, A370803, A370808, A370809, A370813, A370814.

Programs

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

A371128 Number of strict integer partitions of n containing all distinct divisors of all parts.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 2, 1, 2, 1, 2, 2, 3, 3, 3, 5, 3, 5, 6, 7, 7, 8, 8, 9, 12, 13, 13, 14, 15, 16, 19, 23, 25, 26, 26, 27, 36, 37, 40, 42, 46, 50, 55, 66, 65, 71, 71, 82, 90, 102, 103, 114, 117, 130, 147, 154, 166, 176, 182, 194, 228, 239, 259, 267, 287, 307, 336
Offset: 0

Views

Author

Gus Wiseman, Mar 18 2024

Keywords

Comments

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

Examples

			The a(9) = 1 through a(19) = 7 partitions (A..H = 10..17):
  531  721   731   B1    751   D1    B31    D21    B51    H1     B71
       4321  5321  5421  931   B21   7521   7531   D31    9531   D51
                   6321  7321  7421  8421   64321  B321   A521   B521
                                     9321          65321  B421   D321
                                     54321         74321  75321  75421
                                                          84321  76321
                                                                 94321

Crossrefs

The LHS is represented by A001221, distinct case of A001222.
The RHS is represented by A370820, for prime factors A303975.
Strict case of A371130 (ranks A370802) and A371178 (ranks A371177).
The complement is counted by A371180, non-strict A371132.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
A305148 counts partitions without divisors, strict A303362, ranks A316476.
Cf. A000837, A003963, A239312, A285573, A319055, A370803, A370808, A371171, A371172, A371173.

Programs

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

A371171 Number of integer partitions of n with more parts than distinct divisors of parts.

Original entry on oeis.org

0, 0, 1, 1, 2, 4, 5, 9, 12, 18, 26, 34, 50, 65, 92, 121, 161, 209, 274, 353, 456, 590, 745, 950, 1195, 1507, 1885, 2350, 2923, 3611, 4465, 5485, 6735, 8223, 10050, 12195, 14822, 17909, 21653, 26047, 31340, 37557, 44990, 53708, 64068, 76241, 90583, 107418
Offset: 1

Views

Author

Gus Wiseman, Mar 16 2024

Keywords

Comments

The Heinz numbers of these partitions are given by A370348.

Examples

			The partition (3,2,1,1) has 4 parts {1,2,3,4} and 3 distinct divisors of parts {1,2,3}, so is counted under a(7).
The a(0) = 0 through a(8) = 12 partitions:
  .  .  (11)  (111)  (211)   (221)    (222)     (331)      (2222)
                     (1111)  (311)    (2211)    (511)      (3221)
                             (2111)   (3111)    (2221)     (3311)
                             (11111)  (21111)   (3211)     (4211)
                                      (111111)  (4111)     (5111)
                                                (22111)    (22211)
                                                (31111)    (32111)
                                                (211111)   (41111)
                                                (1111111)  (221111)
                                                           (311111)
                                                           (2111111)
                                                           (11111111)

Crossrefs

The partitions are ranked by A370348.
The opposite version is A371173, ranked by A371168.
The RHS is represented by A370820, positions of twos A371127.
The version for equality is A371130 (ranks A370802), strict A371128.
For submultisets instead of parts on the LHS we get ranks A371167.
A000005 counts divisors.
Choosable partitions: A239312 (A368110), A355740 (A370320), A370592 (A368100), A370593 (A355529).
Cf. A003963, A319055, A355731, A370803, A370808, A370809, A370813, A370814.

Programs

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

A371173 Number of 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, 6, 7, 11, 11, 17, 20, 26, 34, 44, 56, 67, 84, 102, 131, 156, 195, 232, 283, 346, 411, 506, 598, 721, 855, 1025, 1204, 1448, 1689, 2018, 2363, 2796, 3265, 3840, 4489, 5242, 6104, 7106, 8280, 9595, 11143, 12862, 14926, 17197, 19862, 22841
Offset: 0

Views

Author

Gus Wiseman, Mar 16 2024

Keywords

Comments

The Heinz numbers of these partitions are given by A371168.

Examples

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

Crossrefs

The RHS is represented by A370820.
The version for equality is A371130 (ranks A370802), strict A371128.
For submultisets instead of parts on the LHS we get ranks A371166.
These partitions are ranked by A371168.
The opposite version is A371171, ranks A370348.
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, A370809, A370813, A370814.

Programs

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

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

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Mar 16 2024

Keywords

Comments

The Heinz numbers of these partitions are given by A371165.

Examples

			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)

Crossrefs

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.

Programs

  • Mathematica
    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

Views

Author

Gus Wiseman, Mar 17 2024

Keywords

Comments

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.

Examples

			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)

Crossrefs

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.

Programs

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

A370809 Greatest number of multisets that can be obtained by choosing a prime factor of each part of an integer partition of n.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 3, 2, 3, 3, 4, 3, 4, 4, 4, 4, 6, 4, 6, 6, 6, 6, 8, 6, 8, 8, 9, 8, 10, 9, 12, 10, 12, 12, 12, 12, 16, 13, 16, 16, 18, 16, 20, 18, 20, 20, 24, 20, 24, 24, 24, 26, 30, 26, 30, 30, 32, 32, 36, 32, 36, 36, 40, 38, 42, 40, 45, 44, 48
Offset: 0

Views

Author

Gus Wiseman, Mar 05 2024

Keywords

Examples

			For the partition (10,6,3,2) there are 4 choices: {2,2,2,3}, {2,2,3,3}, {2,2,3,5}, {2,3,3,5} so a(21) >= 4.
For the partitions of 6 we have the following choices:
  (6): {{2},{3}}
  (51): {}
  (42): {{2,2}}
  (411): {}
  (33): {{3,3}}
  (321): {}
  (3111): {}
  (222): {{2,2,2}}
  (2211): {}
  (21111): {}
  (111111): {}
So a(6) = 2.

Crossrefs

For just all divisors (not just prime factors) we have A370808.
The version for factorizations is A370817, for all divisors A370816.
A000041 counts integer partitions, strict A000009.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A355741, A355744, A355745 choose prime factors of prime indices.
A368413 counts non-choosable factorizations, complement A368414.
A370320 counts non-condensed partitions, ranks A355740.
A370592, A370593, A370594, `A370807 count non-choosable partitions.
Cf. A000792, A048249, A063834, A239312, A319055, A339095, A355529, A355733, A367771, A368100, A370585.

Programs

  • Mathematica
    Table[Max[Length[Union[Sort /@ Tuples[If[#==1,{},First/@FactorInteger[#]]& /@ #]]]&/@IntegerPartitions[n]],{n,0,30}]

Extensions

Terms a(31) onward from Max Alekseyev, Sep 17 2024

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

Views

Author

Gus Wiseman, Mar 06 2024

Keywords

Examples

			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.

Links

Crossrefs

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.

Programs

  • Mathematica
    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}]

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

Views

Author

Gus Wiseman, Mar 17 2024

Keywords

Comments

The Heinz numbers of these partitions are given by A371179.

Examples

			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)

Crossrefs

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.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Length[Union[#]] < Length[Union@@Divisors/@#]&]],{n,0,30}]
Showing 1-10 of 12 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.