(* 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[      2840,        107]
NotebookOptionsPosition[      2530,         92]
NotebookOutlinePosition[      2891,        108]
CellTagsIndexPosition[      2848,        105]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\:5df2\:77e5\:ff1a", " ", "\:6578\:5217"}], " ", "<", 
   StyleBox[
    RowBox[{"a", 
     StyleBox["n",
      FontSize->10]}]], ">", 
   RowBox[{"\:4e4b", " ", 
    SubscriptBox["a", "1"]}]}], "=", 
  RowBox[{
   RowBox[{"1", 
    SubscriptBox["\:ff0ca", "n"]}], "=", 
   RowBox[{
    RowBox[{"2", 
     SubscriptBox["a", 
      RowBox[{"n", "-", "1"}]]}], "-", 
    RowBox[{"2", "\:ff0c", 
     RowBox[{"(", 
      RowBox[{"n", "\[GreaterEqual]", "2"}], 
      ")"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\:6c42\:89e3\:ff1a", " ", 
   SubscriptBox["a", "4"]}], "=", "\:ff1f"}]}], "Input",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.4409823546875*^9, 3.44098250375*^9}}],

Cell[BoxData[{
 RowBox[{
  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"}]]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["a", "1"], "=", "1"}], ",", 
  RowBox[{"p", "=", "2"}], ",", 
  RowBox[{"q", "=", 
   RowBox[{"-", "2"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["a", "4"], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "1", ")"}], " ", "\[Times]", 
     SuperscriptBox[
      RowBox[{"(", "2", ")"}], 
      RowBox[{"4", "-", "1"}]]}], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"-", "2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["2", 
         RowBox[{"4", "-", "1"}]]}], ")"}]}], 
     RowBox[{"1", "-", "2"}]]}], "=", 
   RowBox[{
    RowBox[{"-", "6"}], "#"}]}]}]}], "Input",
 CellChangeTimes->{{3.44098266121875*^9, 3.44098278115625*^9}, {
   3.44098369775*^9, 3.44098372084375*^9}, 3.4409837676875*^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, 744, 25, 88, "Input"],
Cell[1315, 48, 1211, 42, 168, "Input"]
}
]
*)

(* End of internal cache information *)