A370320 Number of non-condensed integer partitions of n, or partitions where it is not possible to choose a different divisor of each part.
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
Keywords
Examples
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)
Crossrefs
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n], Length[Select[Tuples[Divisors/@#], UnsameQ@@#&]]==0&]],{n,0,30}]
Extensions
a(31)-a(47) from Alois P. Heinz, Mar 03 2024
Comments