[seqfan] Re: next partition into distinct parts

[Ray Chandler]

Needs ["Combinatorica`"];
NextPartition[{11, 4, 2}]

gives {11, 4, 1, 1}

Ray

> Does anyone out there have a Mathematica program which will give the next
> partition into distinct parts?
> 
> For example given the partition    {11 , 4 , 2}  as input, it should
> output  {11  ,3  ,2 , 1}.
> 
> If someone has such a program or can  easily write one, I'd like to have
it.
>