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