Liouville Polynomial Identity

Author

Eric W. Weisstein
October 26, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Algebra/LiouvillePolynomialIdentity.nb.

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

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

Identity

t=Subsets[Array[x,4],{2}]

expr=Total[Plus@@@t^4]+Total[Subtract@@@t^4]

Factor[expr]

FullSimplify[expr]