(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     21795,        733]
NotebookOptionsPosition[     20687,        692]
NotebookOutlinePosition[     21030,        707]
CellTagsIndexPosition[     20987,        704]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Part", " ", 
    RowBox[{"(", "a", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Series", "[", " ", 
    RowBox[{
     FractionBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{
         FractionBox["1", "2"], "B"}]}], ")"}], 
      RowBox[{"1", "-", "B"}]], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Series", "[", " ", 
    RowBox[{
     FractionBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "B"}], ")"}], 
      RowBox[{"1", "-", 
       RowBox[{
        FractionBox["1", "2"], "B"}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5260391937566786`*^9, 3.5260392128975487`*^9}, {
  3.5260398530776176`*^9, 3.5260398554370227`*^9}, {3.5260401376281347`*^9, 
  3.526040145143856*^9}, {3.5260404054284377`*^9, 3.526040410412876*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox["B", "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "2"], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "3"], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "4"], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "5"], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "6"], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "7"], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "8"], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "9"], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "10"], "2"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[1, 2], 
    Rational[1, 2], 
    Rational[1, 2], 
    Rational[1, 2], 
    Rational[1, 2], 
    Rational[1, 2], 
    Rational[1, 2], 
    Rational[1, 2], 
    Rational[1, 2], 
    Rational[1, 2]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5261336377309484`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   FractionBox["B", "2"], "-", 
   FractionBox[
    SuperscriptBox["B", "2"], "4"], "-", 
   FractionBox[
    SuperscriptBox["B", "3"], "8"], "-", 
   FractionBox[
    SuperscriptBox["B", "4"], "16"], "-", 
   FractionBox[
    SuperscriptBox["B", "5"], "32"], "-", 
   FractionBox[
    SuperscriptBox["B", "6"], "64"], "-", 
   FractionBox[
    SuperscriptBox["B", "7"], "128"], "-", 
   FractionBox[
    SuperscriptBox["B", "8"], "256"], "-", 
   FractionBox[
    SuperscriptBox["B", "9"], "512"], "-", 
   FractionBox[
    SuperscriptBox["B", "10"], "1024"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[-1, 2], 
    Rational[-1, 4], 
    Rational[-1, 8], 
    Rational[-1, 16], 
    Rational[-1, 32], 
    Rational[-1, 64], 
    Rational[-1, 128], 
    Rational[-1, 256], 
    Rational[-1, 512], 
    Rational[-1, 1024]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5261336377309484`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Part", " ", 
    RowBox[{"(", "b", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Series", "[", " ", 
    RowBox[{
     FractionBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{
         FractionBox["1", "5"], "B"}]}], ")"}], 
      RowBox[{"1", "-", "B"}]], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Series", "[", " ", 
    RowBox[{
     FractionBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "B"}], ")"}], 
      RowBox[{"1", "-", 
       RowBox[{
        FractionBox["1", "5"], "B"}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5260391937566786`*^9, 3.5260392128975487`*^9}, {
  3.5260398530776176`*^9, 3.5260398554370227`*^9}, {3.5260401376281347`*^9, 
  3.526040145143856*^9}, {3.5260404054284377`*^9, 3.5260404352881947`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"4", " ", "B"}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "2"]}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "3"]}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "4"]}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "5"]}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "6"]}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "7"]}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "8"]}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "9"]}], "5"], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "10"]}], "5"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[4, 5], 
    Rational[4, 5], 
    Rational[4, 5], 
    Rational[4, 5], 
    Rational[4, 5], 
    Rational[4, 5], 
    Rational[4, 5], 
    Rational[4, 5], 
    Rational[4, 5], 
    Rational[4, 5]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5260404356475744`*^9, 3.5261336378715754`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   FractionBox[
    RowBox[{"4", " ", "B"}], "5"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "2"]}], "25"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "3"]}], "125"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "4"]}], "625"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "5"]}], "3125"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "6"]}], "15625"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "7"]}], "78125"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "8"]}], "390625"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "9"]}], "1953125"], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["B", "10"]}], "9765625"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[-4, 5], 
    Rational[-4, 25], 
    Rational[-4, 125], 
    Rational[-4, 625], 
    Rational[-4, 3125], 
    Rational[-4, 15625], 
    Rational[-4, 78125], 
    Rational[-4, 390625], 
    Rational[-4, 1953125], 
    Rational[-4, 9765625]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5260404356475744`*^9, 3.5261336378715754`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Part", " ", 
    RowBox[{"(", "c", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Series", "[", " ", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "B"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          FractionBox["1", "2"], "B"}]}], ")"}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Series", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "B"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{
         FractionBox["1", "2"], "B"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5260391937566786`*^9, 3.5260392128975487`*^9}, {
  3.5260398530776176`*^9, 3.5260398554370227`*^9}, {3.5260401376281347`*^9, 
  3.526040145143856*^9}, {3.5260404054284377`*^9, 3.5260404352881947`*^9}, {
  3.526040764667411*^9, 3.526040785167673*^9}, {3.526041025483249*^9, 
  3.5260410283114104`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"3", " ", "B"}], "2"], "+", 
   FractionBox[
    RowBox[{"7", " ", 
     SuperscriptBox["B", "2"]}], "4"], "+", 
   FractionBox[
    RowBox[{"15", " ", 
     SuperscriptBox["B", "3"]}], "8"], "+", 
   FractionBox[
    RowBox[{"31", " ", 
     SuperscriptBox["B", "4"]}], "16"], "+", 
   FractionBox[
    RowBox[{"63", " ", 
     SuperscriptBox["B", "5"]}], "32"], "+", 
   FractionBox[
    RowBox[{"127", " ", 
     SuperscriptBox["B", "6"]}], "64"], "+", 
   FractionBox[
    RowBox[{"255", " ", 
     SuperscriptBox["B", "7"]}], "128"], "+", 
   FractionBox[
    RowBox[{"511", " ", 
     SuperscriptBox["B", "8"]}], "256"], "+", 
   FractionBox[
    RowBox[{"1023", " ", 
     SuperscriptBox["B", "9"]}], "512"], "+", 
   FractionBox[
    RowBox[{"2047", " ", 
     SuperscriptBox["B", "10"]}], "1024"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[3, 2], 
    Rational[7, 4], 
    Rational[15, 8], 
    Rational[31, 16], 
    Rational[63, 32], 
    Rational[127, 64], 
    Rational[255, 128], 
    Rational[511, 256], 
    Rational[1023, 512], 
    Rational[2047, 1024]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5260404356475744`*^9, 3.5260407857770557`*^9, 3.5260410289676685`*^9, 
  3.5261336379809513`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   FractionBox[
    RowBox[{"3", " ", "B"}], "2"], "+", 
   FractionBox[
    SuperscriptBox["B", "2"], "2"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[-3, 2], 
    Rational[1, 2]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5260404356475744`*^9, 3.5260407857770557`*^9, 3.5260410289676685`*^9, 
  3.526133637996577*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Part", " ", 
    RowBox[{"(", "d", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Series", "[", " ", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "B"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          FractionBox["1", "5"], "B"}]}], ")"}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Series", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "B"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{
         FractionBox["1", "5"], "B"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5260391937566786`*^9, 3.5260392128975487`*^9}, {
  3.5260398530776176`*^9, 3.5260398554370227`*^9}, {3.5260401376281347`*^9, 
  3.526040145143856*^9}, {3.5260404054284377`*^9, 3.5260404352881947`*^9}, {
  3.526040764667411*^9, 3.526040785167673*^9}, {3.526041025483249*^9, 
  3.5260410283114104`*^9}, {3.5260415635682616`*^9, 3.526041576396551*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"6", " ", "B"}], "5"], "+", 
   FractionBox[
    RowBox[{"31", " ", 
     SuperscriptBox["B", "2"]}], "25"], "+", 
   FractionBox[
    RowBox[{"156", " ", 
     SuperscriptBox["B", "3"]}], "125"], "+", 
   FractionBox[
    RowBox[{"781", " ", 
     SuperscriptBox["B", "4"]}], "625"], "+", 
   FractionBox[
    RowBox[{"3906", " ", 
     SuperscriptBox["B", "5"]}], "3125"], "+", 
   FractionBox[
    RowBox[{"19531", " ", 
     SuperscriptBox["B", "6"]}], "15625"], "+", 
   FractionBox[
    RowBox[{"97656", " ", 
     SuperscriptBox["B", "7"]}], "78125"], "+", 
   FractionBox[
    RowBox[{"488281", " ", 
     SuperscriptBox["B", "8"]}], "390625"], "+", 
   FractionBox[
    RowBox[{"2441406", " ", 
     SuperscriptBox["B", "9"]}], "1953125"], "+", 
   FractionBox[
    RowBox[{"12207031", " ", 
     SuperscriptBox["B", "10"]}], "9765625"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[6, 5], 
    Rational[31, 25], 
    Rational[156, 125], 
    Rational[781, 625], 
    Rational[3906, 3125], 
    Rational[19531, 15625], 
    Rational[97656, 78125], 
    Rational[488281, 390625], 
    Rational[2441406, 1953125], 
    Rational[12207031, 9765625]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5260404356475744`*^9, 3.5260407857770557`*^9, 3.5260410289676685`*^9, 
  3.526041576818431*^9, 3.526133638121578*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   FractionBox[
    RowBox[{"6", " ", "B"}], "5"], "+", 
   FractionBox[
    SuperscriptBox["B", "2"], "5"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[-6, 5], 
    Rational[1, 5]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5260404356475744`*^9, 3.5260407857770557`*^9, 3.5260410289676685`*^9, 
  3.526041576818431*^9, 3.5261336381528287`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "make", " ", "sure", " ", "that", " ", "our", " ", "algebra", " ", "in", 
    " ", "the", " ", "text", " ", "is", " ", "correct"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], 
     FractionBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["5", 
         RowBox[{"j", "+", "1"}]], "-", "1"}], ")"}], 
      SuperscriptBox["5", "j"]]}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5261336062617955`*^9, 3.5261336764033184`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox["6", "5"], ",", 
   FractionBox["31", "25"], ",", 
   FractionBox["156", "125"], ",", 
   FractionBox["781", "625"], ",", 
   FractionBox["3906", "3125"], ",", 
   FractionBox["19531", "15625"], ",", 
   FractionBox["97656", "78125"], ",", 
   FractionBox["488281", "390625"], ",", 
   FractionBox["2441406", "1953125"], ",", 
   FractionBox["12207031", "9765625"]}], "}"}]], "Output",
 CellChangeTimes->{{3.526133638262205*^9, 3.526133676700197*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Part", " ", 
    RowBox[{"(", "e", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Series", "[", " ", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", 
       RowBox[{
        FractionBox["1", "2"], "B"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "B"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          FractionBox["1", "5"], "B"}]}], ")"}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Series", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "B"}], ")"}], 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          FractionBox["1", "5"], "B"}]}], ")"}], 
       RowBox[{"1", "-", 
        RowBox[{
         FractionBox["1", "2"], "B"}]}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", "0", ",", "10"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5260391937566786`*^9, 3.5260392128975487`*^9}, {
  3.5260398530776176`*^9, 3.5260398554370227`*^9}, {3.5260401376281347`*^9, 
  3.526040145143856*^9}, {3.5260404054284377`*^9, 3.5260404352881947`*^9}, {
  3.526040764667411*^9, 3.526040785167673*^9}, {3.526041025483249*^9, 
  3.5260410283114104`*^9}, {3.5260415635682616`*^9, 3.526041576396551*^9}, {
  3.5260420017144947`*^9, 3.5260420215428734`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"7", " ", "B"}], "10"], "+", 
   FractionBox[
    RowBox[{"16", " ", 
     SuperscriptBox["B", "2"]}], "25"], "+", 
   FractionBox[
    RowBox[{"157", " ", 
     SuperscriptBox["B", "3"]}], "250"], "+", 
   FractionBox[
    RowBox[{"391", " ", 
     SuperscriptBox["B", "4"]}], "625"], "+", 
   FractionBox[
    RowBox[{"3907", " ", 
     SuperscriptBox["B", "5"]}], "6250"], "+", 
   FractionBox[
    RowBox[{"9766", " ", 
     SuperscriptBox["B", "6"]}], "15625"], "+", 
   FractionBox[
    RowBox[{"97657", " ", 
     SuperscriptBox["B", "7"]}], "156250"], "+", 
   FractionBox[
    RowBox[{"244141", " ", 
     SuperscriptBox["B", "8"]}], "390625"], "+", 
   FractionBox[
    RowBox[{"2441407", " ", 
     SuperscriptBox["B", "9"]}], "3906250"], "+", 
   FractionBox[
    RowBox[{"6103516", " ", 
     SuperscriptBox["B", "10"]}], "9765625"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[7, 10], 
    Rational[16, 25], 
    Rational[157, 250], 
    Rational[391, 625], 
    Rational[3907, 6250], 
    Rational[9766, 15625], 
    Rational[97657, 156250], 
    Rational[244141, 390625], 
    Rational[2441407, 3906250], 
    Rational[6103516, 9765625]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5260404356475744`*^9, 3.5260407857770557`*^9, 3.5260410289676685`*^9, 
  3.526041576818431*^9, 3.52604202207413*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   FractionBox[
    RowBox[{"7", " ", "B"}], "10"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "2"]}], "20"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "3"]}], "40"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "4"]}], "80"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "5"]}], "160"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "6"]}], "320"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "7"]}], "640"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "8"]}], "1280"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "9"]}], "2560"], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["B", "10"]}], "5120"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "B", "]"}], "11"],
    SeriesData[$CellContext`B, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`B, 0, {1, 
    Rational[-7, 10], 
    Rational[-3, 20], 
    Rational[-3, 40], 
    Rational[-3, 80], 
    Rational[-3, 160], 
    Rational[-3, 320], 
    Rational[-3, 640], 
    Rational[-3, 1280], 
    Rational[-3, 2560], 
    Rational[-3, 5120]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.526039328430277*^9, 3.5260401463157463`*^9, 
  3.5260404356475744`*^9, 3.5260407857770557`*^9, 3.5260410289676685`*^9, 
  3.526041576818431*^9, 3.52604202207413*^9}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 991, 29, 125, "Input"],
Cell[1561, 53, 1148, 40, 50, "Output"],
Cell[2712, 95, 1182, 40, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3931, 140, 993, 29, 125, "Input"],
Cell[4927, 171, 1431, 50, 50, "Output"],
Cell[6361, 223, 1507, 50, 89, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7905, 278, 1176, 34, 116, "Input"],
Cell[9084, 314, 1536, 51, 89, "Output"],
Cell[10623, 367, 614, 18, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11274, 390, 1224, 34, 116, "Input"],
Cell[12501, 426, 1636, 51, 89, "Output"],
Cell[14140, 479, 638, 18, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14815, 502, 647, 19, 73, "Input"],
Cell[15465, 523, 516, 13, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16018, 541, 1463, 42, 148, "Input"],
Cell[17484, 585, 1635, 51, 89, "Output"],
Cell[19122, 638, 1549, 51, 50, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)