|
%I #14 Jan 29 2021 19:00:11
%S 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,
%T 143,166,190,219,254,290,332,382,436,493,567,637,729,824,931,1052,
%U 1186,1334,1504,1691,1894,2123,2380,2664,2968,3319,3704,4119,4586,5110
%N Number of integer partitions of n whose distinct parts are pairwise indivisible.
%H Fausto A. C. Cariboni, <a href="/A305148/b305148.txt">Table of n, a(n) for n = 0..360</a> (terms 0..300 from Alois P. Heinz)
%e The a(9) = 7 integer partitions are (9), (72), (54), (522), (333), (3222), (111111111).
%t Table[Length[Select[IntegerPartitions[n],Select[Tuples[Union[#],2],UnsameQ@@#&&Divisible@@#&]=={}&]],{n,20}]
%Y Cf. A000837, A001055, A001970, A007359, A007716, A051424, A078374, A100953, A285572, A285573, A302696, A303362, A305079, A305149, A305150.
%K nonn
%O 0,3
%A _Gus Wiseman_, May 26 2018
%E More terms from _Alois P. Heinz_, May 26 2018
|
