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