Cell[BoxData[RowBox[List[RowBox[List[SubscriptBox["\[CapitalRho]", "n"], "\[Equal]", RowBox[List[RowBox[List["(", " ", RowBox[List["-", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["j", "=", "1"]], "n"], RowBox[List[SubscriptBox["\[Eta]", RowBox[List["j", "-", "1"]]], RowBox[List["Binomial", "[", RowBox[List["n", ",", "j"]], "]"]]]]]]]], ")"]], "+", "\[IndentingNewLine]", "1", "-", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["Log", "[", RowBox[List["4", "Pi"]], "]"]], "+", "EulerGamma"]], ")"]], FractionBox["n", "2"]]], "-", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["j", "=", "2"]], "n"], RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], RowBox[List["j", "-", "1"]]], RowBox[List["Binomial", "[", RowBox[List["n", ",", "j"]], "]"]], RowBox[List["(", RowBox[List["1", "-", SuperscriptBox["2", RowBox[List["-", "j"]]]]], ")"]], RowBox[List["Zeta", "[", "j", "]"]]]]]]]]]], "/;", RowBox[List[RowBox[List[SubscriptBox["\[CapitalRho]", "n"], "\[Equal]", RowBox[List["Limit", "[", RowBox[List[RowBox[List[RowBox[List[UnderscriptBox["\[Sum]", RowBox[List[RowBox[List["\[LeftBracketingBar]", SubscriptBox["\[Rho]", "k"], "\[RightBracketingBar]"]], "<", "T"]]], "1"]], "-", SuperscriptBox[RowBox[List["(", RowBox[List["1", "-", FractionBox["1", SubscriptBox["\[Rho]", "k"]]]], ")"]], "n"]]], ",", RowBox[List["T", "\[Rule]", "\[Infinity]"]]]], "]"]]]], "\[And]", RowBox[List[RowBox[List["Zeta", "[", SubscriptBox["\[Rho]", "k"], "]"]], "\[Equal]", "0"]], "\[And]", RowBox[List[RowBox[List["Re", "[", SubscriptBox["\[Rho]", "k"], "]"]], "\[NotEqual]", "0"]], "\[And]", RowBox[List["n", "\[Element]", "Integers"]], "\[And]", RowBox[List["n", ">", "0"]], "\[And]", RowBox[List[RowBox[List["Log", "[", RowBox[List["s", " ", RowBox[List["Zeta", "[", RowBox[List["1", "+", "s"]], "]"]]]], "]"]], "\[Equal]", RowBox[List["-", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["k", "=", "0"]], "\[Infinity]"], FractionBox[RowBox[List[SubscriptBox["\[Eta]", "k"], " ", SuperscriptBox["s", RowBox[List["k", "+", "1"]]]]], RowBox[List["k", "+", "1"]]]]]]]]]]]]]]]
|