DSolve[2*x*y[x] + 2*a*x^3*y[x]^3 + Derivative[1][y][x] == 0,y[x],x]