Cell[BoxData[RowBox[List[RowBox[List[RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["k", "=", "1"]], "n"], RowBox[List["Cosh", "[", SubscriptBox["z", "k"], "]"]]]], "\[Equal]", RowBox[List[SuperscriptBox["2", RowBox[List["-", "n"]]], RowBox[List[UnderoverscriptBox["\[Sum]", UnderscriptBox[RowBox[List[SubscriptBox["k", "1"], "=", RowBox[List["-", "1"]]]], RowBox[List[RowBox[List["\[CapitalDelta]", " ", SubscriptBox["k", "1"]]], "=", "2"]]], "1"], RowBox[List[UnderoverscriptBox["\[Sum]", UnderscriptBox[RowBox[List[SubscriptBox["k", "2"], "=", RowBox[List["-", "1"]]]], RowBox[List[RowBox[List["\[CapitalDelta]", " ", SubscriptBox["k", "2"]]], "=", "2"]]], "1"], RowBox[List["\[Ellipsis]", RowBox[List[UnderoverscriptBox["\[Sum]", UnderscriptBox[RowBox[List[SubscriptBox["k", "n"], "=", RowBox[List["-", "1"]]]], RowBox[List[RowBox[List["\[CapitalDelta]", " ", SubscriptBox["k", "n"]]], "=", "2"]]], "1"], RowBox[List["Cosh", "[", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["j", "=", "1"]], "n"], RowBox[List[SubscriptBox["k", "j"], SubscriptBox["z", "j"]]]]], "]"]]]]]]]]]]]]]], "/;", RowBox[List[RowBox[List["n", "\[Element]", "Integers"]], "\[And]", RowBox[List["n", ">", "0"]]]]]]]]
|