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