Solve[2EllipticE[k]==EllipticK[k],k]