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