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