A383710 Number of integer partitions of n such that it is not possible to choose a family of pairwise disjoint strict integer partitions, one of each part.

0, 0, 1, 1, 3, 4, 6, 10, 15, 22, 29, 42, 59, 79, 108, 140, 190, 247, 324, 417, 541

Offset: 0

Author

Gus Wiseman, May 07 2025

Keywords

• nonn
• more

Comments

Also the number of integer partitions of n whose normal multiset (in which i appears y_i times) is not a Look-and-Say partition.

Examples

			For y = (3,3) we can choose disjoint strict partitions ((2,1),(3)), so (3,3) is not counted under a(6).
The a(2) = 1 through a(8) = 15 partitions:
  (11)  (111)  (22)    (221)    (222)     (322)      (332)
               (211)   (311)    (411)     (331)      (422)
               (1111)  (2111)   (2211)    (511)      (611)
                       (11111)  (3111)    (2221)     (2222)
                                (21111)   (3211)     (3221)
                                (111111)  (4111)     (3311)
                                          (22111)    (4211)
                                          (31111)    (5111)
                                          (211111)   (22211)
                                          (1111111)  (32111)
                                                     (41111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)
		

Crossrefs

These partitions have Heinz numbers A382912.

The number of such families for each Heinz number is A383706.

The complement is counted by A383708, ranks A382913.

Without ones we have A383711, complement A383533.

A048767 is the Look-and-Say transform, fixed points A048768 (counted by A217605).

A098859 counts partitions with distinct multiplicities, compositions A242882.

A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.

A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.

Cf. A044813, A047966, A089259, A116540, A130091, A317141, A318361, A381454, A383013.

Programs

Mathematica

pof[y_]:=Select[Join@@@Tuples[IntegerPartitions/@y], UnsameQ@@#&];
Table[Length[Select[IntegerPartitions[n], pof[#]=={}&]], {n,0,15}]