OFFSET
0,3
COMMENTS
The Heinz numbers of these partitions are given by A326837.
LINKS
Fausto A. C. Cariboni, Table of n, a(n) for n = 0..180
EXAMPLE
The a(1) = 1 through a(8) = 5 partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (11111) (33) (1111111) (44)
(1111) (222) (2222)
(321) (4211)
(111111) (11111111)
The a(12) = 22 partitions:
(12)
(6,6)
(4,4,4)
(6,3,3)
(6,4,2)
(6,5,1)
(3,3,3,3)
(4,3,3,2)
(4,4,2,2)
(4,4,3,1)
(6,2,2,2)
(6,3,2,1)
(6,4,1,1)
(2,2,2,2,2,2)
(3,2,2,2,2,1)
(3,3,2,2,1,1)
(3,3,3,1,1,1)
(4,2,2,2,1,1)
(4,3,2,1,1,1)
(4,4,1,1,1,1)
(6,2,1,1,1,1)
(1,1,1,1,1,1,1,1,1,1,1,1)
MATHEMATICA
Table[If[n==0, 1, Length[Select[IntegerPartitions[n], Divisible[n, Length[#]]&&Divisible[n, Max[#]]&]]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 26 2019
STATUS
approved