OFFSET
1,16
COMMENTS
A partition is separable if there is an ordering of its parts in which no consecutive parts are identical. See A325534 for a guide to related sequences.
EXAMPLE
a(16) counts these 2 partitions: [6,4,3,2,1], [5,4,3,1,2,1].
MATHEMATICA
(separable=Table[Map[#[[1]]&, Select[Map[{#, Quotient[(1+Length[#]), Max[Map[Length, Split[#]]]]}&, IntegerPartitions[nn]], #[[2]]>1&]], {nn, 35}]);
Map[Length[Select[Map[{#, Length[Union[#]]}&, #], #[[2]]==5&]]&, separable]
(* Peter J. C. Moses, May 08 2019 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 16 2019
STATUS
approved