Plot[(x^2 - 4 x + 1) * exp(x),{x,-4-Sqrt[5],4+Sqrt[5]}]