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