Maximize[{x^(-2) (1 - Exp[-x^3]), x > 0}, x]