A305148 Number of integer partitions of n whose distinct parts are pairwise indivisible.

1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 9, 12, 12, 17, 20, 22, 28, 35, 39, 48, 55, 65, 79, 90, 105, 121, 143, 166, 190, 219, 254, 290, 332, 382, 436, 493, 567, 637, 729, 824, 931, 1052, 1186, 1334, 1504, 1691, 1894, 2123, 2380, 2664, 2968, 3319, 3704, 4119, 4586, 5110

Offset

0,3

Links

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..360 (terms 0..300 from Alois P. Heinz)

Example

The a(9) = 7 integer partitions are (9), (72), (54), (522), (333), (3222), (111111111).

Mathematica

Table[Length[Select[IntegerPartitions[n], Select[Tuples[Union[#], 2], UnsameQ@@#&&Divisible@@#&]=={}&]], {n, 20}]

Crossrefs

Cf. A000837, A001055, A001970, A007359, A007716, A051424, A078374, A100953, A285572, A285573, A302696, A303362, A305079, A305149, A305150.

Sequence in context: A052839 A125894 A091493 * A058724 A029021 A261770

Adjacent sequences: A305145 A305146 A305147 * A305149 A305150 A305151

Keyword

nonn

Author

Gus Wiseman, May 26 2018

Extensions

More terms from Alois P. Heinz, May 26 2018

Status

approved