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