DSolve[Derivative[1][y][x] == (Coth[1 + x] + x^2*Coth[1 + x] - Log[-1 + x] + 2*x*Coth[1 + x]*y[x] + Coth[1 + x]*y[x]^2)/Log[-1 + x],y[x],x]
dsolve(diff(y(x),x) = -(ln(x-1)-coth(1+x)*x^2-2*coth(1+x)*x*y(x)-coth(1+x)-coth(1+x)*y(x)^2)/ln(x-1),y(x))
, could not solve
dsolve(diff(y(x),x) = -(ln(x-1)-coth(1+x)*x^2-2*coth(1+x)*x*y(x)-coth(1+x)-coth(1+x)*y(x)^2)/ln(x-1),y(x))