FindSpanningTree Examples

G=GraphData["HoffmanSingletonGraph","Graph"];
HighlightGraph[G,FindSpanningTree[{G,1}],
GraphHighlightStyle->"DehighlightFade",
EdgeStyle->Flatten[Table[Table[k<->j->Hue[j/50],
{k,50}],{j,2,50}]],ImageSize->500]