Compute the Tutte polynomial of a graph
TuttePolynomial[g, {x, y}]
TuttePolynomial[{v -> w, …}, …]
TuttePolynomial[CycleGraph[5], {x, y}]
→ x + x^2 + x^3 + x^4 + yTable[TuttePolynomial[CycleGraph[n], {1, 1}], {n, 1, 10}]
→ {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}Table[TuttePolynomial[WheelGraph[n], {1, 1}], {n, 1, 10}]
→ {1, 1, 5, 16, 45, 121, 320, 841, 2205, 5776}