Notebook[List[Cell[BoxData[FormBox[RowBox[List[RowBox[List["R", "(", RowBox[List["m", ",", "n"]], ")"]], "=", RowBox[List["Filter_R", "*", RowBox[List["[", GridBox[List[List[RowBox[List["r", "(", RowBox[List[RowBox[List["m", "-", "1"]], ",", RowBox[List[RowBox[List["2", "n"]], "-", "2"]]]], ")"]], RowBox[List["r", "(", RowBox[List[RowBox[List["m", "-", "1"]], ",", RowBox[List[RowBox[List["2", "n"]], "-", "1"]]]], ")"]], RowBox[List["r", "(", RowBox[List[RowBox[List["m", "-", "1"]], ",", RowBox[List["2", "n"]]]], ")"]]], List[RowBox[List["r", "(", RowBox[List["m", ",", RowBox[List[RowBox[List["2", "n"]], "-", "2"]]]], ")"]], RowBox[List["r", "(", RowBox[List["m", ",", RowBox[List[RowBox[List["2", "n"]], "-", "1"]]]], ")"]], RowBox[List["r", "(", RowBox[List["m", ",", RowBox[List["2", "n"]]]], ")"]]], List[RowBox[List["r", "(", RowBox[List[RowBox[List["m", "+", "1"]], ",", RowBox[List[RowBox[List["2", "n"]], "-", "2"]]]], ")"]], RowBox[List["r", "(", RowBox[List[RowBox[List["m", "+", "1"]], ",", RowBox[List[RowBox[List["2", "n"]], "-", "1"]]]], ")"]], RowBox[List["r", "(", RowBox[List[RowBox[List["m", "+", "1"]], ",", RowBox[List["2", "n"]]]], ")"]]]]], "]"]]]]]], TraditionalForm]], "Input"]]]