EquationSymbolicSolveRequest[List[Equal[m,Sum[Exponent[ConstE,2],n]]],List[n]]Solution[{n,ExpressionSetPoint[Sum[m,Negative[Exponent[ConstE,2]]],False,ReservedComplex]}]1Eq.1Var.1Inst.19EquationSymbolicSolveRequest[List[Equal[m,Sum[Exponent[ConstE,2],n]]],List[m]]Solution[{m,ExpressionSetPoint[Sum[n,Exponent[ConstE,2]],False,ReservedComplex]}]1Eq.1Var.1Inst.19WorksheetAssign[m,Sum[Exponent[ConstE,2],n]]Sum[n,Exponent[ConstE,2]]Assign[m,Sum[n,Exponent[ConstE,2]]]