DSolve[(a + a^2*x^3)*y[x] + (-1 + 2*a*x^3)*Derivative[1][y][x] + x*Derivative[2][y][x] == 0,y[x],x]