Complete Set

Author

Eric W. Weisstein
July 1, 2004

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

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

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

Example

With[{n=10,max=10^4},
Mean[Table[Length[NestWhileList[Union[#,{Random[Integer,{1,n}]}]&,{},Length[#]<n&,2]]-2,{max}]//N]
]//Timing

10HarmonicNumber[10]//N

Counts

#HarmonicNumber[#]&/@Range[10]//InputForm