DSolve[Derivative[1][y][x] == -(y[x]*(-(Log[y[x]]/x) + Cot[x]*Log[y[x]] - _F1[x])),y[x],x]