Root[x^3 - 5 x^2 + 100 x - 400, 1]

Root[-400 + 100 #1 - 5 #1^2 + #1^3&, 1]


Created by Mathematica  (April 17, 2008)