(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     20677,        750]
NotebookOptionsPosition[     18941,        689]
NotebookOutlinePosition[     19302,        705]
CellTagsIndexPosition[     19259,        702]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"\:8a2d", " ", 
   SubscriptBox["a", 
    RowBox[{"n", "+", "1"}]]}], "=", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "n"], "+", 
    RowBox[{"f", 
     RowBox[{"(", "n", ")"}], "\:ff0c\:5247", " ", 
     SubscriptBox["a", "n"]}]}], "=", 
   RowBox[{
    SubscriptBox["a", "1"], "+", 
    RowBox[{"f", 
     RowBox[{"(", "1", ")"}]}], "+", 
    RowBox[{"f", 
     RowBox[{"(", "2", ")"}]}], "+", "\[CenterEllipsis]", "+", 
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.44097861234375*^9, 3.4409787351875*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", 
   RowBox[{"n", "+", "1"}]], "=", 
  RowBox[{
   SubscriptBox["a", "n"], "+", 
   RowBox[{"f", 
    RowBox[{"(", "n", ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4409789080625*^9, 3.4409789260625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"ReplaceAll", "[", 
     RowBox[{
      RowBox[{
       SubscriptBox["a", 
        RowBox[{"n", "+", "1"}]], "==", 
       RowBox[{
        SubscriptBox["a", "n"], "+", 
        RowBox[{"f", "[", "n", "]"}]}]}], ",", 
      RowBox[{"n", "\[Rule]", "i"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "6"}], "}"}]}], "]"}]], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{
  3.440978940078125*^9, {3.440979032890625*^9, 3.440979119421875*^9}, {
   3.440979183125*^9, 3.440979234453125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "2"], "\[Equal]", 
  RowBox[{
   RowBox[{"f", "[", "1", "]"}], "+", 
   SubscriptBox["a", "1"]}]}]], "Print",
 CellChangeTimes->{{3.44097921453125*^9, 3.440979236796875*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "3"], "\[Equal]", 
  RowBox[{
   RowBox[{"f", "[", "2", "]"}], "+", 
   SubscriptBox["a", "2"]}]}]], "Print",
 CellChangeTimes->{{3.44097921453125*^9, 3.440979236796875*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "4"], "\[Equal]", 
  RowBox[{
   RowBox[{"f", "[", "3", "]"}], "+", 
   SubscriptBox["a", "3"]}]}]], "Print",
 CellChangeTimes->{{3.44097921453125*^9, 3.440979236796875*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "5"], "\[Equal]", 
  RowBox[{
   RowBox[{"f", "[", "4", "]"}], "+", 
   SubscriptBox["a", "4"]}]}]], "Print",
 CellChangeTimes->{{3.44097921453125*^9, 3.440979236796875*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "6"], "\[Equal]", 
  RowBox[{
   RowBox[{"f", "[", "5", "]"}], "+", 
   SubscriptBox["a", "5"]}]}]], "Print",
 CellChangeTimes->{{3.44097921453125*^9, 3.440979236796875*^9}}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "7"], "\[Equal]", 
  RowBox[{
   RowBox[{"f", "[", "6", "]"}], "+", 
   SubscriptBox["a", "6"]}]}]], "Print",
 CellChangeTimes->{{3.44097921453125*^9, 3.440979236796875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["a", "2"], "+", 
   SubscriptBox["a", "3"], "+", "\[CenterEllipsis]", "+", 
   SubscriptBox["a", "6"], "+", 
   SubscriptBox["a", "7"]}], "=", 
  RowBox[{
   SubscriptBox["a", "1"], "+", 
   SubscriptBox["a", "2"], "+", "\[CenterEllipsis]", "+", 
   SubscriptBox["a", "6"], "+", 
   RowBox[{"f", "[", "1", "]"}], "+", 
   RowBox[{"f", "[", "2", "]"}], "+", "\[CenterEllipsis]", "+", 
   RowBox[{"f", "[", "6", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[DoubleLongRightArrow]", 
   SubscriptBox["a", "7"]}], "=", 
  RowBox[{
   SubscriptBox["a", "1"], "+", 
   RowBox[{"f", "[", "1", "]"}], "+", 
   RowBox[{"f", "[", "2", "]"}], "+", "\[CenterEllipsis]", "+", 
   RowBox[{"f", "[", "6", "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.44097932371875*^9, 3.44097949571875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[DoubleLongRightArrow]", 
   SubscriptBox["a", "n"]}], "=", 
  RowBox[{
   SubscriptBox["a", "1"], "+", 
   RowBox[{"f", "[", "1", "]"}], "+", 
   RowBox[{"f", "[", "2", "]"}], "+", "\[CenterEllipsis]", "+", 
   RowBox[{"f", "[", 
    RowBox[{"n", "-", "1"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.44097960371875*^9, 3.440979608875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\:8a2d", " ", 
   SubscriptBox["a", 
    RowBox[{"n", "+", "1"}]]}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"p", " ", 
      SubscriptBox["a", "n"]}], "+", 
     RowBox[{"q\:ff0c\:5176\:4e2d", " ", "p"}]}], "\[NotEqual]", 
    RowBox[{"1", "\:ff0cq"}], "\[NotEqual]", 
    RowBox[{"0", "\:ff0c\:5247", " ", 
     SubscriptBox["a", "n"]}]}], "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SuperscriptBox["p", 
      RowBox[{"n", "-", "1"}]]}], "+", 
    FractionBox[
     RowBox[{"q", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["p", 
         RowBox[{"n", "-", "1"}]]}], ")"}]}], 
     RowBox[{"1", "-", "p"}]]}]}]}]], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.440979810765625*^9, 3.44097994578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"ReplaceAll", "[", 
     RowBox[{
      RowBox[{
       SubscriptBox["a", 
        RowBox[{"n", "+", "1"}]], "==", 
       RowBox[{
        RowBox[{"p", " ", 
         SubscriptBox["a", "n"]}], "+", "q"}]}], ",", 
      RowBox[{"n", "\[Rule]", "i"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.440980028828125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "2"], "\[Equal]", 
  RowBox[{"q", "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "1"]}]}]}]], "Print",
 CellChangeTimes->{3.440980037859375*^9, 3.44098008115625*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "3"], "\[Equal]", 
  RowBox[{"q", "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "2"]}]}]}]], "Print",
 CellChangeTimes->{3.440980037859375*^9, 3.440980081171875*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "4"], "\[Equal]", 
  RowBox[{"q", "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "3"]}]}]}]], "Print",
 CellChangeTimes->{3.440980037859375*^9, 3.440980081171875*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "5"], "\[Equal]", 
  RowBox[{"q", "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "4"]}]}]}]], "Print",
 CellChangeTimes->{3.440980037859375*^9, 3.440980081171875*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "6"], "\[Equal]", 
  RowBox[{"q", "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "5"]}]}]}]], "Print",
 CellChangeTimes->{3.440980037859375*^9, 3.440980081171875*^9}],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "7"], "\[Equal]", 
  RowBox[{"q", "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "6"]}]}]}]], "Print",
 CellChangeTimes->{3.440980037859375*^9, 3.440980081171875*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["a", "2"], "-", 
   SubscriptBox["a", "1"]}], "\[Equal]", 
  RowBox[{
   SubscriptBox["a", "2"], "-", 
   SubscriptBox["a", "1"]}]}]], "Input",
 CellChangeTimes->{3.4409820276875*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"ReplaceAll", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["a", 
         RowBox[{"n", "+", "1"}]], "-", 
        SubscriptBox["a", "n"]}], "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"p", " ", 
           SubscriptBox["a", "n"]}]}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"p", " ", 
           SubscriptBox["a", 
            RowBox[{"n", "-", "1"}]]}]}], ")"}]}], "==", 
       RowBox[{
        SuperscriptBox["p", 
         RowBox[{"n", "-", "1"}]], 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["a", "2"], "-", 
          SubscriptBox["a", "1"]}], ")"}]}]}], ",", 
      RowBox[{"n", "\[Rule]", "i"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "2", ",", "6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.440980818671875*^9, 3.44098087540625*^9}, {
  3.440980918921875*^9, 3.440980938234375*^9}, {3.440980972171875*^9, 
  3.440981001546875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SubscriptBox["a", "2"]}], "+", 
   SubscriptBox["a", "3"]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "p"}], " ", 
    SubscriptBox["a", "1"]}], "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "2"]}]}], "\[Equal]", 
  RowBox[{"p", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "1"]}], "+", 
     SubscriptBox["a", "2"]}], ")"}]}]}]], "Print",
 CellChangeTimes->{
  3.44098094*^9, {3.440980973671875*^9, 3.440981003109375*^9}, 
   3.440981997078125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SubscriptBox["a", "3"]}], "+", 
   SubscriptBox["a", "4"]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "p"}], " ", 
    SubscriptBox["a", "2"]}], "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "3"]}]}], "\[Equal]", 
  RowBox[{
   SuperscriptBox["p", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "1"]}], "+", 
     SubscriptBox["a", "2"]}], ")"}]}]}]], "Print",
 CellChangeTimes->{
  3.44098094*^9, {3.440980973671875*^9, 3.440981003109375*^9}, 
   3.440981997078125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SubscriptBox["a", "4"]}], "+", 
   SubscriptBox["a", "5"]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "p"}], " ", 
    SubscriptBox["a", "3"]}], "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "4"]}]}], "\[Equal]", 
  RowBox[{
   SuperscriptBox["p", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "1"]}], "+", 
     SubscriptBox["a", "2"]}], ")"}]}]}]], "Print",
 CellChangeTimes->{
  3.44098094*^9, {3.440980973671875*^9, 3.440981003109375*^9}, 
   3.440981997078125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SubscriptBox["a", "5"]}], "+", 
   SubscriptBox["a", "6"]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "p"}], " ", 
    SubscriptBox["a", "4"]}], "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "5"]}]}], "\[Equal]", 
  RowBox[{
   SuperscriptBox["p", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "1"]}], "+", 
     SubscriptBox["a", "2"]}], ")"}]}]}]], "Print",
 CellChangeTimes->{
  3.44098094*^9, {3.440980973671875*^9, 3.440981003109375*^9}, 
   3.440981997078125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SubscriptBox["a", "6"]}], "+", 
   SubscriptBox["a", "7"]}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "p"}], " ", 
    SubscriptBox["a", "5"]}], "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "6"]}]}], "\[Equal]", 
  RowBox[{
   SuperscriptBox["p", "5"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["a", "1"]}], "+", 
     SubscriptBox["a", "2"]}], ")"}]}]}]], "Print",
 CellChangeTimes->{
  3.44098094*^9, {3.440980973671875*^9, 3.440981003109375*^9}, 
   3.440981997078125*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["a", "7"], "-", 
   SubscriptBox["a", "1"]}], "\[Equal]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["p", "1"], "+", "\[CenterEllipsis]", "+", 
     SuperscriptBox["p", "5"]}], ")"}], 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["a", "2"], "-", 
     SubscriptBox["a", "1"]}], ")"}]}], "==", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["p", "1"], "+", "\[CenterEllipsis]", "+", 
     SuperscriptBox["p", "5"]}], ")"}], 
   RowBox[{"(", 
    RowBox[{"q", "+", 
     RowBox[{"p", " ", 
      SubscriptBox["a", "1"]}], "-", 
     SubscriptBox["a", "1"]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"==", 
  RowBox[{
   FractionBox[
    RowBox[{"1", "\[Times]", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["p", "6"]}], ")"}]}], 
    RowBox[{"1", "-", "p"}]], 
   RowBox[{"(", 
    RowBox[{"q", "+", 
     RowBox[{"p", " ", 
      SubscriptBox["a", "1"]}], "-", 
     SubscriptBox["a", "1"]}], ")"}]}], "==", 
  RowBox[{
   FractionBox[
    RowBox[{"q", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["p", "6"]}], ")"}]}], 
    RowBox[{"1", "-", "p"}]], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["p", "6"]}], ")"}], 
     RowBox[{"1", "-", "p"}]], 
    RowBox[{"(", 
     RowBox[{"p", "-", "1"}], ")"}], 
    SubscriptBox["a", "1"]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["a", "7"], "==", 
  RowBox[{
   FractionBox[
    RowBox[{"q", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["p", "6"]}], ")"}]}], 
    RowBox[{"1", "-", "p"}]], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["p", "6"]}], ")"}], 
    SubscriptBox["a", "1"]}], "+", 
   SubscriptBox["a", "1"]}], "==", 
  RowBox[{
   RowBox[{
    SubscriptBox["a", "1"], 
    SuperscriptBox["p", "6"]}], "+", 
   FractionBox[
    RowBox[{"q", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["p", "6"]}], ")"}]}], 
    RowBox[{"1", "-", "p"}]]}]}]}], "Input",
 CellChangeTimes->{
  3.4409810365*^9, {3.44098106740625*^9, 3.440981146203125*^9}, {
   3.440981178140625*^9, 3.44098126640625*^9}, {3.44098129928125*^9, 
   3.440981397*^9}, {3.440981458546875*^9, 3.44098152028125*^9}, {
   3.440981556296875*^9, 3.440981592171875*^9}, {3.44098203196875*^9, 
   3.440982035328125*^9}}],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"\[Therefore]", 
    SubscriptBox["a", "n"]}], "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "1"], " ", 
     SuperscriptBox["p", 
      RowBox[{"n", "-", "1"}]]}], "+", 
    FractionBox[
     RowBox[{"q", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["p", 
         RowBox[{"n", "-", "1"}]]}], ")"}]}], 
     RowBox[{"1", "-", "p"}]]}]}]}]], "Input",
 CellChangeTimes->{3.440982133984375*^9}],

Cell[CellGroupData[{

Cell[BoxData["\:4e0a\:8ff0\:516c\:5f0f\:4e4b\:610f\:7fa9"], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.440983482421875*^9, 3.44098350209375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "2"], "\[Equal]", 
  RowBox[{"q", "+", 
   RowBox[{"p", " ", 
    SubscriptBox["a", "1"]}]}]}]], "Print",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{3.440980037859375*^9, 3.44098008115625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["a", "3"], "\[Equal]", 
   RowBox[{"q", "+", 
    RowBox[{"p", " ", 
     RowBox[{"(", 
      RowBox[{"q", "+", 
       RowBox[{"p", " ", 
        SubscriptBox["a", "1"]}]}], ")"}]}]}]}], "=", 
  RowBox[{
   RowBox[{
    SuperscriptBox["p", "2"], 
    SubscriptBox["a", "1"]}], "+", "q", "+", 
   "pq"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["a", "4"], "\[Equal]", 
   RowBox[{"q", "+", 
    RowBox[{"p", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["p", "2"], 
        SubscriptBox["a", "1"]}], "+", "q", "+", "pq"}], ")"}]}]}]}], "=", 
  RowBox[{
   RowBox[{
    SuperscriptBox["p", "3"], 
    SubscriptBox["a", "1"]}], "+", "q", "+", "pq", "+", 
   RowBox[{
    SuperscriptBox["p", "2"], "q"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["a", "5"], "\[Equal]", 
   RowBox[{"q", "+", 
    RowBox[{"p", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["p", "3"], 
        SubscriptBox["a", "1"]}], "+", "q", "+", "pq", "+", 
       RowBox[{
        SuperscriptBox["p", "2"], "q"}]}], ")"}]}]}]}], "=", 
  RowBox[{
   RowBox[{
    SuperscriptBox["p", "4"], 
    SubscriptBox["a", "1"]}], "+", "q", "+", "pq", "+", 
   RowBox[{
    SuperscriptBox["p", "2"], "q"}], "+", 
   RowBox[{
    SuperscriptBox["p", "3"], "q"}]}]}], "\n", 
 RowBox[{
  RowBox[{
   SubscriptBox["a", "6"], "\[Equal]", 
   RowBox[{"q", "+", 
    RowBox[{"p", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["p", "4"], 
        SubscriptBox["a", "1"]}], "+", "q", "+", "pq", "+", 
       RowBox[{
        SuperscriptBox["p", "2"], "q"}], "+", 
       RowBox[{
        SuperscriptBox["p", "3"], "q"}]}], ")"}]}]}]}], "=", 
  RowBox[{
   RowBox[{
    SuperscriptBox["p", "5"], 
    SubscriptBox["a", "1"]}], "+", "q", "+", "pq", "+", 
   RowBox[{
    SuperscriptBox["p", "2"], "q"}], "+", 
   RowBox[{
    SuperscriptBox["p", "3"], "q"}], "+", 
   RowBox[{
    SuperscriptBox["p", "4"], "q"}]}]}], "\n", 
 RowBox[{
  RowBox[{
   SubscriptBox["a", "7"], "\[Equal]", 
   RowBox[{"q", "+", 
    RowBox[{"p", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["p", "5"], 
        SubscriptBox["a", "1"]}], "+", "q", "+", "pq", "+", 
       RowBox[{
        SuperscriptBox["p", "2"], "q"}], "+", 
       RowBox[{
        SuperscriptBox["p", "3"], "q"}], "+", 
       RowBox[{
        SuperscriptBox["p", "4"], "q"}]}], ")"}]}]}]}], "=", 
  RowBox[{
   RowBox[{
    SuperscriptBox["p", "6"], 
    SubscriptBox["a", "1"]}], "+", "q", "+", "pq", "+", 
   RowBox[{
    SuperscriptBox["p", "2"], "q"}], "+", 
   RowBox[{
    SuperscriptBox["p", "3"], "q"}], "+", 
   RowBox[{
    SuperscriptBox["p", "4"], "q"}], "+", 
   RowBox[{
    SuperscriptBox["p", "5"], "q"}]}]}]}], "Print",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.440980037859375*^9, 3.440980081171875*^9, {3.440983008984375*^9, 
   3.440983046453125*^9}, {3.440983128234375*^9, 3.44098329440625*^9}, {
   3.440983377578125*^9, 3.4409834435625*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"\[Therefore]", 
    SubscriptBox["a", 
     RowBox[{"n", "+", "1"}]]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"p", " ", 
      SubscriptBox["a", "n"]}], "+", 
     RowBox[{"q", " ", "\[DoubleLongRightArrow]", " ", 
      SubscriptBox["a", "n"]}]}], "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["a", "1"], " ", 
      SuperscriptBox["p", 
       RowBox[{"n", "-", "1"}]]}], "+", 
     FractionBox[
      RowBox[{"q", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["p", 
          RowBox[{"n", "-", "1"}]]}], ")"}]}], 
      RowBox[{"1", "-", "p"}]]}]}]}]}]], "Input",
 CellChangeTimes->{{3.440983518328125*^9, 3.440983539765625*^9}, {
  3.44098360071875*^9, 3.440983621890625*^9}}]
},
WindowSize->{1016, 666},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 645, 21, 60, "Input"],
Cell[1216, 44, 247, 8, 43, "Input"],
Cell[CellGroupData[{
Cell[1488, 56, 602, 18, 56, "Input"],
Cell[CellGroupData[{
Cell[2115, 78, 218, 6, 32, "Print"],
Cell[2336, 86, 218, 6, 32, "Print"],
Cell[2557, 94, 218, 6, 32, "Print"],
Cell[2778, 102, 218, 6, 32, "Print"],
Cell[2999, 110, 218, 6, 32, "Print"],
Cell[3220, 118, 218, 6, 32, "Print"]
}, Open  ]]
}, Open  ]],
Cell[3465, 128, 839, 22, 71, "Input"],
Cell[4307, 152, 378, 10, 43, "Input"],
Cell[4688, 164, 823, 27, 95, "Input"],
Cell[CellGroupData[{
Cell[5536, 195, 470, 15, 43, "Input"],
Cell[CellGroupData[{
Cell[6031, 214, 212, 6, 32, "Print"],
Cell[6246, 222, 213, 6, 32, "Print"],
Cell[6462, 230, 213, 6, 32, "Print"],
Cell[6678, 238, 213, 6, 32, "Print"],
Cell[6894, 246, 213, 6, 32, "Print"],
Cell[7110, 254, 213, 6, 32, "Print"]
}, Open  ]]
}, Open  ]],
Cell[7350, 264, 234, 8, 43, "Input"],
Cell[CellGroupData[{
Cell[7609, 276, 1095, 33, 77, "Input"],
Cell[CellGroupData[{
Cell[8729, 313, 555, 20, 32, "Print"],
Cell[9287, 335, 580, 21, 35, "Print"],
Cell[9870, 358, 580, 21, 35, "Print"],
Cell[10453, 381, 580, 21, 35, "Print"],
Cell[11036, 404, 580, 21, 35, "Print"]
}, Open  ]]
}, Open  ]],
Cell[11643, 429, 2434, 83, 178, "Input"],
Cell[14080, 514, 476, 17, 78, "Input"],
Cell[CellGroupData[{
Cell[14581, 535, 163, 2, 58, "Input"],
Cell[CellGroupData[{
Cell[14769, 541, 244, 7, 44, "Print"],
Cell[15016, 550, 3123, 108, 152, "Print"]
}, Open  ]]
}, Open  ]],
Cell[18166, 662, 771, 25, 78, "Input"]
}
]
*)

(* End of internal cache information *)