EquationSymbolicSolveRequest[List[Equal[Root[M,E],x]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Exponent[M,Divide[1,E]],NotEqual[E,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Root[18.01528,2260],λ]],List[λ]]Solution[{λ,ExpressionSetPoint[Root[18.01528,2260],False,ReservedReal],1.0012801196664}]EquationSymbolicSolveRequest[List[Equal[Root[M,E],LogN[c]]],List[c]]Solution[{c,ExpressionSetPoint[ExpressionWithCondition[Exponent[ConstE,Product[LogE[10],Exponent[M,Divide[1,E]]]],NotEqual[E,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Root[18.01528,E],LogN[Divide[299792458,Exponent[1,2]]]]],List[E]]Solution[{E,ExpressionSetPoint[LogB[LogN[299792458],18.01528],False,ReservedReal],1.3527218059817}]