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