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