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