OFFSET
0,7
EXAMPLE
The a(4) = 1 through a(11) = 8 partitions:
(4) (4,1) (6) (4,3) (8) (9) (10) (6,5)
(4,2) (6,1) (6,2) (5,4) (8,2) (7,4)
(4,2,1) (4,3,1) (6,3) (9,1) (8,3)
(8,1) (5,4,1) (9,2)
(4,3,2) (6,3,1) (10,1)
(6,2,1) (4,3,2,1) (5,4,2)
(6,3,2)
(8,2,1)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Count[#, _?CompositeQ]==1&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 25 2024
STATUS
approved
