Integrate[(Integrate[(e^x^2 y)/x^3, x]), {y, Sqrt[y], 1}]