OFFSET
0,5
COMMENTS
Includes all partitions containing 1.
EXAMPLE
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)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], Length[Select[Tuples[Divisors/@#], UnsameQ@@#&]]==0&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 02 2024
EXTENSIONS
a(31)-a(47) from Alois P. Heinz, Mar 03 2024
STATUS
approved