Stanley's Theorem

Author

Eric W. Weisstein
April 10, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Combinatorics/StanleysTheorem.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/StanleysTheorem.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Initialization

<<DiscreteMath`Combinatorica`

Counts

Table[Count[Flatten[Partitions[n]],1],{n,15}]

Table[Plus@@Length/@Union/@Partitions[n],{n,15}]

Rest[FoldList[Plus,0,PartitionsP[Range[0,14]]]]