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