Planted Tree

Author

Eric W. Weisstein
June 2, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/PlantedTree.nb.

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

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

Usage

?PlantedTrees

Enumeration

Length/@(planted=Select[#,First[Degrees[#]]==1&]&/@RootedTrees/@Range[12])//Timing

Length/@PlantedTrees/@Range[12]//Timing

ShowGraphArray[DeleteCases[Take[planted,6],{}],
VertexStyle->Disk[.17]]