A370804 -id:A370804 - cp's OEIS frontend

A239312 Number of condensed integer partitions of n.

1, 1, 1, 2, 3, 3, 5, 6, 9, 10, 14, 16, 23, 27, 33, 41, 51, 62, 75, 93, 111, 134, 159, 189, 226, 271, 317, 376, 445, 520, 609, 714, 832, 972, 1129, 1304, 1520, 1753, 2023, 2326, 2692, 3077, 3540, 4050, 4642, 5298, 6054, 6887, 7854, 8926, 10133, 11501, 13044

Offset: 0

Clark Kimberling, Mar 15 2014

nonn

Suppose that p is a partition of n. Let x(1), x(2), ..., x(k) be the distinct parts of p, and let m(i) be the multiplicity of x(i) in p. Let c(p) be the partition {m(1)*x(1), m(2)*x(2), ..., x(k)*m(k)} of n. Call a partition q of n a condensed partition of n if q = c(p) for some partition p of n. Then a(n) is the number of distinct condensed partitions of n. Note that c(p) = p if and only if p has distinct parts and that condensed partitions can have repeated parts.

Also the number of integer partitions of n such that it is possible to choose a different divisor of each part. For example, the partition (6,4,4,1) has choices (3,2,4,1), (3,4,2,1), (6,2,4,1), (6,4,2,1) so is counted under a(15). - Gus Wiseman, Mar 12 2024

			a(5) = 3 gives the number of partitions of 5 that result from condensations as shown here: 5 -> 5, 41 -> 41, 32 -> 32, 311 -> 32, 221 -> 41, 2111 -> 32, 11111 -> 5.
From _Gus Wiseman_, Mar 12 2024: (Start)
The a(1) = 1 through a(9) = 10 condensed partitions:
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)      (9)
            (2,1)  (2,2)  (3,2)  (3,3)    (4,3)    (4,4)    (5,4)
                   (3,1)  (4,1)  (4,2)    (5,2)    (5,3)    (6,3)
                                 (5,1)    (6,1)    (6,2)    (7,2)
                                 (3,2,1)  (3,2,2)  (7,1)    (8,1)
                                          (4,2,1)  (3,3,2)  (4,3,2)
                                                   (4,2,2)  (4,4,1)
                                                   (4,3,1)  (5,2,2)
                                                   (5,2,1)  (5,3,1)
                                                            (6,2,1)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..100 (first 84 terms from Manfred Scheucher)
Manfred Scheucher, Python Script

The strict case is A000009.
These partitions have ranks A368110, complement A355740.
The complement is counted by A370320.
The version for prime factors (not all divisors) is A370592, ranks A368100.
The complement for prime factors is A370593, ranks A355529.
For a unique choice we have A370595, ranks A370810.
For multiple choices we have A370803, ranks A370811.
The case without ones is A370805, complement A370804.
The version for factorizations is A370814, complement A370813.
A000005 counts divisors.
A000041 counts integer partitions.
A237685 counts partitions of depth 1, or A353837 if we include depth 0.
A355731 counts choices of a divisor of each prime index, firsts A355732.
Cf. A355535, A355733, A355739, A367867, A368097, A368414, A370583, A370584, A370594, A370806, A370808.

b:= proc(n,i) option remember; `if`(n=0, {[]},
      `if`(i=1, {[n]}, {seq(map(x-> `if`(j=0, x,
       sort([x[], i*j])), b(n-i*j, i-1))[], j=0..n/i)}))
    end:
a:= n-> nops(b(n$2)):
seq(a(n), n=0..50);  # Alois P. Heinz, Jul 01 2019

u[n_, k_] := u[n, k] = Map[Total, Split[IntegerPartitions[n][[k]]]]; t[n_] := t[n] = DeleteDuplicates[Table[Sort[u[n, k]], {k, 1, PartitionsP[n]}]]; Table[Length[t[n]], {n, 0,   30}]
Table[Length[Select[IntegerPartitions[n], Length[Select[Tuples[Divisors/@#],UnsameQ@@#&]]>0&]], {n,0,30}] (* Gus Wiseman, Mar 12 2024 *)

Typo in definition corrected by Manfred Scheucher, May 29 2015

Name edited by Gus Wiseman, Mar 13 2024

A370813 Number of non-condensed integer factorizations of n into unordered factors > 1.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 04 2024

nonn

A multiset is condensed iff it is possible to choose a different divisor of each element.

			The a(96) = 4 factorizations: (2*2*2*2*2*3), (2*2*2*2*6), (2*2*2*3*4), (2*2*2*12).

Partitions not of this type are counted by A239312, ranks A368110.
Factors instead of divisors: A368413, complement A368414, unique A370645.
Partitions of this type are counted by A370320, ranks A355740.
Subsets of this type: A370583 and A370637, complement A370582 and A370636.
The complement is counted by A370814, partitions A370592, ranks A368100.
For a unique choice we have A370815, partitions A370595, ranks A370810.
A000005 counts divisors.
A001055 counts factorizations, strict A045778.
A355731 counts choices of a divisor of each prime index, firsts A355732.
Cf. A340596, A340653, A355529, A355739, A355741, A370804, A370807.

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[Select[Tuples[Divisors /@ #],UnsameQ@@#&]]==0&]],{n,100}]

A370320 Number of non-condensed integer partitions of n, or partitions where it is not possible to choose a different divisor of each part.

Original entry on oeis.org

0, 0, 1, 1, 2, 4, 6, 9, 13, 20, 28, 40, 54, 74, 102, 135, 180, 235, 310, 397, 516, 658, 843, 1066, 1349, 1687, 2119, 2634, 3273, 4045, 4995, 6128, 7517, 9171, 11181, 13579, 16457, 19884, 23992, 28859, 34646, 41506, 49634, 59211, 70533, 83836, 99504, 117867

Offset: 0

Gus Wiseman, Mar 02 2024

nonn

Includes all partitions containing 1.

			The a(0) = 0 through a(8) = 13 partitions:
  .  .  (11)  (111)  (211)   (221)    (222)     (331)      (611)
                     (1111)  (311)    (411)     (511)      (2222)
                             (2111)   (2211)    (2221)     (3221)
                             (11111)  (3111)    (3211)     (3311)
                                      (21111)   (4111)     (4211)
                                      (111111)  (22111)    (5111)
                                                (31111)    (22211)
                                                (211111)   (32111)
                                                (1111111)  (41111)
                                                           (221111)
                                                           (311111)
                                                           (2111111)
                                                           (11111111)

The complement is counted by A239312 (condensed partitions).
These partitions have ranks A355740.
Factorizations in the case of prime factors are A368413, complement A368414.
The complement for prime factors is A370592, ranks A368100.
The version for prime factors (not all divisors) is A370593, ranks A355529.
For a unique choice we have A370595, ranks A370810.
For multiple choices we have A370803, ranks A370811.
The case without ones is A370804, complement A370805.
The version for factorizations is A370813, complement A370814.
A000005 counts divisors.
A000041 counts integer partitions.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741 chooses prime factors of prime indices, variations A355744, A355745.
Cf. A355535, A355739, A367867, A368097, A368110, A370583, A370584, A370594, A370806, A370807, A370808.

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

a(31)-a(47) from Alois P. Heinz, Mar 03 2024

A370814 Number of condensed integer factorizations of n into unordered factors > 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 4, 1, 2, 2, 4, 1, 4, 1, 4, 2, 2, 1, 6, 2, 2, 2, 4, 1, 5, 1, 5, 2, 2, 2, 8, 1, 2, 2, 6, 1, 5, 1, 4, 4, 2, 1, 10, 2, 4, 2, 4, 1, 6, 2, 6, 2, 2, 1, 11, 1, 2, 4, 7, 2, 5, 1, 4, 2, 5, 1, 14, 1, 2, 4, 4, 2, 5, 1, 10, 4, 2, 1, 11, 2

Offset: 1

Gus Wiseman, Mar 04 2024

nonn

A multiset is condensed iff it is possible to choose a different divisor of each element.

			The a(36) = 7 factorizations: (2*2*9), (2*3*6), (2*18), (3*3*4), (3*12), (4*9), (6*6), (36).

Partitions of this type are counted by A239312, ranks A368110.
Factors instead of divisors: A368414, complement A368413, unique A370645.
Partitions not of this type are counted by A370320, ranks A355740.
Subsets of this type: A370582 and A370636, complement A370583 and A370637.
The complement is counted by A370813, partitions A370593, ranks A355529.
For a unique choice we have A370815, partitions A370595, ranks A370810.
A000005 counts divisors.
A001055 counts factorizations, strict A045778.
A355731 counts choices of a divisor of each prime index, firsts A355732.
Cf. A340596, A340653, A355739, A370592, A370803, A370804, A370805.

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[Select[Tuples[Divisors /@ #],UnsameQ@@#&]]>0&]],{n,100}]

A370803 Number of integer partitions of n such that more than one set can be obtained by choosing a different divisor of each part.

Original entry on oeis.org

0, 0, 1, 1, 1, 3, 2, 4, 5, 7, 10, 11, 15, 18, 25, 28, 39, 45, 59, 66, 83, 101, 123, 150, 176, 213, 252, 301, 352, 426, 497, 589, 684, 802, 939, 1095, 1270, 1480, 1718, 1985, 2289, 2645, 3056, 3489, 4019, 4590, 5289, 6014, 6877, 7817, 8955, 10134, 11551, 13085

Offset: 0

Gus Wiseman, Mar 03 2024

nonn

			The partition (6,4,4,1) has two choices, namely {1,2,4,6} and {1,2,3,4}, so is counted under a(15).
The a(0) = 0 through a(13) = 18 partitions (A..D = 10..13):
  .  .  2   3   4   5    6    7    8     9     A     B     C     D
                    32   42   43   44    54    64    65    66    76
                    41        52   53    63    73    74    75    85
                              61   62    72    82    83    84    94
                                   431   81    91    92    93    A3
                                         432   433   A1    A2    B2
                                         621   532   443   543   C1
                                               541   542   633   544
                                               622   632   642   643
                                               631   641   651   652
                                                     821   732   661
                                                           741   742
                                                           822   832
                                                           831   841
                                                           921   922
                                                                 A21
                                                                 5431
                                                                 6421

Including partitions with one choice gives A239312, complement A370320.
For a unique choice we have A370595, ranks A370810.
These partitions have ranks A370811.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355733 counts divisor-choices of prime indices.
A355741, A355744, A355745 choose prime factors of prime indices.
A370592 counts factor-choosable partitions, ranks A368100.
A370593 counts non-factor-choosable partitions, ranks A355529.
Cf. A355739, A368110, A370594, A370804, A370805, A370808, A370814.

Table[Length[Select[IntegerPartitions[n],Length[Union[Sort /@ Select[Tuples[Divisors/@#],UnsameQ@@#&]]]>1&]],{n,0,30}]

a(n) = A239312(n) - A370595(n). - Jinyuan Wang, Feb 14 2025

More terms from Jinyuan Wang, Feb 14 2025

A370595 Number of integer partitions of n such that only one set can be obtained by choosing a different divisor of each part.

Original entry on oeis.org

1, 1, 0, 1, 2, 0, 3, 2, 4, 3, 4, 5, 8, 9, 8, 13, 12, 17, 16, 27, 28, 33, 36, 39, 50, 58, 65, 75, 93, 94, 112, 125, 148, 170, 190, 209, 250, 273, 305, 341, 403, 432, 484, 561, 623, 708, 765, 873, 977, 1109, 1178, 1367, 1493, 1669, 1824, 2054, 2265, 2521, 2770

Offset: 0

Gus Wiseman, Mar 03 2024

nonn

For example, the only choice for the partition (9,9,6,6,6) is {1,2,3,6,9}.

			The a(1) = 1 through a(15) = 13 partitions (A = 10, B = 11, C = 12, D = 13):
  1  .  21  22  .  33   322  71   441  55    533   B1    553   77    933
            31     51   421  332  522  442   722   444   733   D1    B22
                   321       422  531  721   731   552   751   B21   B31
                             521       4321  4322  4332  931   4433  4443
                                             5321  4431  4432  5441  5442
                                                   5322  5332  6332  5532
                                                   5421  5422  7322  6621
                                                   6321  6322  7421  7332
                                                         7321        7422
                                                                     7521
                                                                     8421
                                                                     9321
                                                                     54321

For no choices we have A370320, complement A239312.
The version for prime factors (not all divisors) is A370594, ranks A370647.
For multiple choices we have A370803, ranks A370811.
These partitions have ranks A370810.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
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.
A370592 counts partitions with choosable prime factors, ranks A368100.
A370593 counts partitions without choosable prime factors, ranks A355529.
A370804 counts non-condensed partitions with no ones, complement A370805.
A370814 counts factorizations with choosable divisors, complement A370813.
Cf. A355535, A355739, A355740, A367867, A367904, A368110, A370583, A370584, A370806, A370808.

Table[Length[Select[IntegerPartitions[n],Length[Union[Sort /@ Select[Tuples[Divisors/@#],UnsameQ@@#&]]]==1&]],{n,0,30}]

More terms from Jinyuan Wang, Feb 14 2025

A370805 Number of condensed integer partitions of n into parts > 1.

Original entry on oeis.org

1, 0, 1, 1, 2, 2, 3, 4, 6, 6, 9, 11, 15, 18, 22, 27, 34, 41, 51, 62, 75, 90, 109, 129, 153, 185, 217, 258, 307, 359, 421, 493, 577, 675, 788, 909, 1062, 1227, 1418, 1633, 1894, 2169, 2497, 2860, 3285, 3754, 4298, 4894, 5587, 6359, 7230, 8215, 9331, 10567, 11965

Offset: 0

Gus Wiseman, Mar 04 2024

nonn

These are partitions without ones such that it is possible to choose a different divisor of each part.

			The a(0) = 1 through a(9) = 6 partitions:
  ()  .  (2)  (3)  (4)    (5)    (6)    (7)      (8)      (9)
                   (2,2)  (3,2)  (3,3)  (4,3)    (4,4)    (5,4)
                                 (4,2)  (5,2)    (5,3)    (6,3)
                                        (3,2,2)  (6,2)    (7,2)
                                                 (3,3,2)  (4,3,2)
                                                 (4,2,2)  (5,2,2)

The version with ones is A239312, complement A370320.
These partitions have as ranks the odd terms of A368110, complement A355740.
The version for prime factors is A370592, complement A370593, post A370807.
The complement without ones is A370804, ranked by the odd terms of A355740.
The version for factorizations is A370814, complement A370813.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A355731 counts choices of a divisor of each prime index, firsts A355732.
Cf. A355529, A355739, A367867, A367901, A368110, A368413, A370595, A370806, A370808, A370810.

Table[Length[Select[IntegerPartitions[n],FreeQ[#,1] && Length[Select[Tuples[Divisors/@#],UnsameQ@@#&]]>0&]],{n,0,30}]

More terms from Jinyuan Wang, Feb 14 2025

A370806 Number of non-strict condensed integer partitions of n.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 1, 1, 3, 2, 4, 4, 8, 9, 11, 14, 19, 24, 29, 39, 47, 58, 70, 85, 104, 129, 152, 184, 223, 264, 313, 374, 442, 524, 617, 719, 852, 993, 1159, 1344, 1579, 1817, 2114, 2440, 2826, 3250, 3750, 4297, 4944, 5662, 6475, 7404, 8462, 9634, 10972, 12480

Offset: 0

Gus Wiseman, Mar 04 2024

nonn

These are non-strict partitions such that it is possible to choose a different divisor of each part.

			The a(4) = 1 through a(13) = 9 partitions:
  (22)  .  (33)  (322)  (44)   (441)  (55)   (443)   (66)    (544)
                        (332)  (522)  (433)  (533)   (444)   (553)
                        (422)         (442)  (722)   (552)   (661)
                                      (622)  (4322)  (633)   (733)
                                                     (822)   (922)
                                                     (4332)  (4432)
                                                     (4431)  (5332)
                                                     (5322)  (5422)
                                                             (6322)

This is the non-strict case of A239312, complement A370320.
These partitions have as ranks the nonsquarefree terms of A368110.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A370592 counts factor-choosable partitions, complement A370593.
A370814 counts condensed factorizations, complement A370813.
Cf. A355739, A355740, A370595, A370804, A370808, A370810.

Table[Length[Select[IntegerPartitions[n],!UnsameQ@@# && Length[Select[Tuples[Divisors/@#],UnsameQ@@#&]]>0&]],{n,0,30}]

More terms from Jinyuan Wang, Feb 14 2025

A370807 Number of integer partitions of n into parts > 1 such that it is not possible to choose a different prime factor of each part.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 3, 1, 4, 4, 8, 9, 15, 17, 25, 30, 43, 54, 72, 87, 115, 139, 181, 224, 283, 342, 429, 519, 647, 779, 967

Offset: 0

Gus Wiseman, Mar 04 2024

			The a(0) = 0 through a(11) = 9 partitions:
  .  .  .  .  (22)  .  (33)   (322)  (44)    (333)   (55)     (443)
                       (42)          (332)   (432)   (82)     (533)
                       (222)         (422)   (522)   (433)    (542)
                                     (2222)  (3222)  (442)    (632)
                                                     (622)    (722)
                                                     (3322)   (3332)
                                                     (4222)   (4322)
                                                     (22222)  (5222)
                                                              (32222)

These partitions are ranked by the odd terms of A355529, complement A368100.
The version for set-systems is A367903, complement A367902.
The version for factorizations is A368413, complement A368414.
With ones allowed we have A370593, complement A370592.
For a unique choice we have A370594, ranks A370647.
The version for divisors instead of factors is A370804, complement A370805.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A239312 counts condensed partitions, ranks A368110.
A355741 counts choices of a prime factor of each prime index.
Cf. A000040, A000720, A133686, A355739, A355740, A367771, A367867, A367905, A370583, A370585, A370586, A370636.

Table[Length[Select[IntegerPartitions[n],FreeQ[#,1] && Length[Select[Tuples[If[#==1,{},First/@FactorInteger[#]]&/@#],UnsameQ@@#&]]==0&]],{n,0,30}]

A387328 Number of integer partitions of n whose parts have choosable sets of integer partitions.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 5, 7, 10, 13, 17, 22, 28, 36, 46, 58, 73, 91, 114, 141, 174, 214, 262, 320, 389, 472, 571, 688, 828, 993, 1189, 1419, 1690, 2009, 2383, 2821, 3334, 3931, 4628, 5439, 6381, 7474, 8741, 10207, 11902, 13858, 16114, 18710, 21698, 25130, 29070

Offset: 0

Gus Wiseman, Sep 01 2025

First differs from A052335 at A052335(20) = 173, a(20) = 174, corresponding to the partition (4,4,4,4,4).
a(n) is the number of integer partitions of n such that it is possible to choose a sequence of distinct integer partitions, one of each part.
Also the number of integer partitions y of n with no part k whose multiplicity in y exceeds A000041(k).

			The a(1) = 1 through a(9) = 13 partitions:
  (1)  (2)  (3)   (4)   (5)    (6)    (7)    (8)     (9)
            (21)  (22)  (32)   (33)   (43)   (44)    (54)
                  (31)  (41)   (42)   (52)   (53)    (63)
                        (221)  (51)   (61)   (62)    (72)
                               (321)  (322)  (71)    (81)
                                      (331)  (332)   (333)
                                      (421)  (422)   (432)
                                             (431)   (441)
                                             (521)   (522)
                                             (3221)  (531)
                                                     (621)
                                                     (3321)
                                                     (4221)

The strict case is A000009.
For initial intervals instead of partitions we have A238873, complement A387118.
For divisors instead of partitions we have A239312, complement A370320.
For prime factors instead of partitions we have A370592, ranks A368100.
The complement for prime factors is A370593, ranks A355529.
The complement is counted by A387134, ranks A387577.
For sets of strict partitions we have A387178, complement A387137.
These partitions are ranked by A387576.
A000005 counts divisors.
A000041 counts integer partitions.
Cf. A052335, A052337, A335433, A367771, A370585, A370804.

Table[Length[Select[IntegerPartitions[n],Select[Tuples[IntegerPartitions/@#],UnsameQ@@#&]!={}&]],{n,0,15}]

cp's OEIS Frontend

A239312 Number of condensed integer partitions of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A370813 Number of non-condensed integer factorizations of n into unordered factors > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370320 Number of non-condensed integer partitions of n, or partitions where it is not possible to choose a different divisor of each part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A370814 Number of condensed integer factorizations of n into unordered factors > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A370803 Number of integer partitions of n such that more than one set can be obtained by choosing a different divisor of each part.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A370595 Number of integer partitions of n such that only one set can be obtained by choosing a different divisor of each part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A370805 Number of condensed integer partitions of n into parts > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A370806 Number of non-strict condensed integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica