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