|
|
A305148
|
|
Number of integer partitions of n whose distinct parts are pairwise indivisible.
|
|
34
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|