EquationSymbolicSolveRequest[List[Equal[SeriesSum[n,n,ConstE,x],Product[f,x]]],List[x]]Solution[{x,ExpressionSetPoint[Sum[Negative[Sqrt[Sum[Exponent[Sum[1/2,Negative[f]],2],Exponent[ConstE,2],Negative[ConstE]]]],f,-1/2],False,ReservedComplex]}]Solution[{x,ExpressionSetPoint[Sum[Sqrt[Sum[Exponent[Sum[1/2,Negative[f]],2],Exponent[ConstE,2],Negative[ConstE]]],f,-1/2],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[SeriesSum[n,n,ConstE,x],Product[f,x]]],List[n]]-8EquationSymbolicSolveRequest[List[Equal[SeriesSum[n,n,ConstE,x],Product[f,x]]],List[f]]Solution[{f,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Exponent[x,2],x,ConstE,Negative[Exponent[ConstE,2]]],Product[2,x]],NotEqual[x,0]],False,ReservedComplex]}]