4 Sep
2005
4 Sep
'05
5:59 a.m.
Odd-Strict partitions <--> Self Conjugate partitions OEIS : A000700 the Ferrer's plots are a dead give-away: start from a self-conjugate partition with its symmetric Ferrer's plot, peel the onion by taking away its first row and column, repeat on the rest until nothing left. The lengths of the peels (obviously different, obviously odd) are the corresponding odd-strict partition. Mma: peel[par:{__Integer}]:=-1+2*Map[First,Drop[FixedPointList[DeleteCases[Rest[#]-1,0|{}]&,par,SameTest-
( #2==={}&)],-1]]
joinpeels[rinds:{__Integer}]:=Flatten[{#,Drop[TransposePartition[#],Length[#]]}]&[(1+rinds)/2+Range[ 0,Length[rinds]-1] ] Partitions in more than one part, you *got* to love them. W.