EquationSymbolicSolveRequest[List[Equal[Exponent[s,E],LogN[p]]],List[s]]Solution[{s,ExpressionSetPoint[Exponent[LogN[p],Divide[1,E]],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[Exponent[s,E],LogN[p]]],List[p]]Solution[{p,ExpressionSetPoint[Exponent[ConstE,Product[LogE[10],Exponent[s,E]]],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[Exponent[s,E],LogN[p]]],List[E]]Solution[{E,ExpressionSetPoint[Divide[Sum[LogE[LogN[p]],Product[2,PI,&N_1,&i]],LogE[s]],False,ReservedComplex]}]