EquationSymbolicSolveRequest[List[Equal[ConstE,LogN[a]]],List[a]]Solution[{a,ExpressionSetPoint[Exponent[ConstE,Product[ConstE,LogE[10]]],False,ReservedComplex],522.7352996704365}]EquationSymbolicSolveRequest[List[Equal[Product[ConstE,x],LogN[y]]],List[x]]Solution[{x,ExpressionSetPoint[Divide[LogN[y],ConstE],False,ReservedComplex]}]GraphingShow2D[PlotEq2D[Equal[Product[ConstE,Aggregate[x]],LogN[y]]]]