ice2.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3488,        125]
NotebookOptionsPosition[      3179,        109]
NotebookOutlinePosition[      3519,        124]
CellTagsIndexPosition[      3476,        121]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"r", "[", "n_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "/", "2"}], ")"}], "!"}], "^", "2"}], " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "s"}], ")"}], "!"}], 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "-", 
           RowBox[{"2", "s"}]}], ")"}], "!"}], "/", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"s", "!"}], ")"}], "^", "4"}]}], "/", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"n", "/", "2"}], "-", "s"}], ")"}], "!"}], "^", "4"}]}]}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"s", ",", "0", ",", 
       RowBox[{"n", "/", "2"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "[", "n_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], 
      RowBox[{"r", "[", "n", "]"}]}]}], ")"}], "+", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "3"}], ")"}], "^", "k"}], "/", 
       RowBox[{"k", "!"}]}], " ", "n", " ", 
      RowBox[{"Product", "[", 
       RowBox[{
        RowBox[{"n", "-", "m"}], ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", 
          RowBox[{"k", "+", "1"}], ",", 
          RowBox[{
           RowBox[{"2", "k"}], "-", "1"}]}], "}"}]}], "]"}], 
      RowBox[{"r", "[", 
       RowBox[{"n", "-", 
        RowBox[{"2", "k"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "/", "2"}]}], "}"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"q", "[", "n", "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", "n"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "4", ",", "14", ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.776454692360764*^9, 3.7764547576296253`*^9}, {
  3.776454793810297*^9, 3.776454794756907*^9}, {3.776454902148287*^9, 
  3.776454904028754*^9}, {3.776455607681946*^9, 3.7764556105201902`*^9}, {
  3.776456014334464*^9, 3.7764560202431097`*^9}, {3.7764567524637012`*^9, 
  3.776456752553235*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "2", ",", "3", ",", "24", ",", "143", ",", "918"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.776456023544764*^9, 3.776456754511931*^9}]
}, Open  ]]
},
WindowSize->{1758, 911},
WindowMargins->{{94, Automatic}, {37, Automatic}},
FrontEndVersion->"11.0 for Linux x86 (64-bit) (September 21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2395, 78, 80, "Input"],
Cell[2978, 102, 185, 4, 34, "Output"]
}, Open  ]]
}
]
*)