EquationSymbolicSolveRequest[List[Equal[Exponent[t,E],LogN[k]]],List[t]]Solution[{t,ExpressionSetPoint[ExpressionWithCondition[Exponent[LogN[k],Divide[1,E]],GreaterThan[k,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Exponent[t,E],LogN[k]]],List[k]]Solution[{k,ExpressionSetPoint[Exponent[ConstE,Product[LogE[10],Exponent[t,E]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Exponent[t,E],LogN[k]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[LogB[t,LogN[k]],GreaterThan[k,0]],False,ReservedReal]}]