Descubra nuevos resultados 

Encuentre una forma cerrada para el número de árboles de expansión de un gráfico de rueda.

In[1]:=

X g = WheelGraph[4];

In[2]:=

X TuttePolynomial[g, {1, 1}]

Out[2]=

Una forma cerrada.

In[3]:=

X Table[TuttePolynomial[WheelGraph[n], {1, 1}], {n, 2, 10}]

Out[3]=

In[4]:=

X Table[TuttePolynomial[WheelGraph[n], {1, 1}], {n, 2, 10}]; FindSequenceFunction[%, n - 1]

Out[4]=

Muestre los árboles de expansión.