WorksheetIndefiniteIntegral[Divide[1,λ],λ]Sum[LogE[Abs[λ]],&c]EquationSymbolicSolveRequest[List[Equal[IndefiniteIntegral[Divide[1.058,λ],λ],d]],List[λ]]Solution[{λ,ExpressionSetPoint[Exponent[ConstE,Divide[Sum[Product[500,d],Negative[Product[500,&c]]],529]],False,ReservedReal]}]Solution[{λ,ExpressionSetPoint[Negative[Exponent[ConstE,Divide[Sum[Product[500,d],Negative[Product[500,&c]]],529]]],False,ReservedReal]}]