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