(* 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[      6101,        189]
NotebookOptionsPosition[      5778,        173]
NotebookOutlinePosition[      6115,        188]
CellTagsIndexPosition[      6072,        185]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"ToNumberField", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"DimensionOfGenerator", "[", 
       RowBox[{"dualHaagerupFamilyBigraph", "[", 
        RowBox[{
         RowBox[{"4", "k"}], "+", "3"}], "]"}], "]"}], "^", "2"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Divide", "@@", 
        RowBox[{"RootReduce", "[", 
         RowBox[{
          RowBox[{"DimensionsByDepth", "[", 
           RowBox[{"dualHaagerupFamilyBigraph", "[", 
            RowBox[{
             RowBox[{"4", "k"}], "+", "3"}], "]"}], "]"}], 
          "\[LeftDoubleBracket]", 
          RowBox[{"-", "2"}], "\[RightDoubleBracket]"}], "]"}]}], ")"}], "/", 
      
      RowBox[{
       RowBox[{"DimensionOfGenerator", "[", 
        RowBox[{"dualHaagerupFamilyBigraph", "[", 
         RowBox[{
          RowBox[{"4", "k"}], "+", "3"}], "]"}], "]"}], "^", "2"}]}]}], "]"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.464479227387063*^9, 3.464479253981599*^9}, {
  3.464479302404509*^9, 3.464479320521572*^9}, {3.464479403138441*^9, 
  3.4644794038001747`*^9}, {3.464479630521221*^9, 3.464479631641262*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"AlgebraicNumber", "[", 
    RowBox[{
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"25", "-", 
         RowBox[{"10", " ", "#1"}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", 
       FractionBox["3", "5"], ",", 
       RowBox[{"-", 
        FractionBox["1", "5"]}]}], "}"}]}], "]"}], ",", 
   RowBox[{"AlgebraicNumber", "[", 
    RowBox[{
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "16807"}], "+", 
         RowBox[{"2401", " ", "#1"}], "+", 
         RowBox[{"2401", " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"196", " ", 
          SuperscriptBox["#1", "3"]}], "-", 
         RowBox[{"98", " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         SuperscriptBox["#1", "6"]}], "&"}], ",", "4"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", 
       RowBox[{"-", 
        FractionBox["4", "49"]}], ",", 
       RowBox[{"-", 
        FractionBox["2", "49"]}], ",", 
       FractionBox["3", "2401"], ",", 
       FractionBox["1", "2401"]}], "}"}]}], "]"}], ",", 
   RowBox[{"AlgebraicNumber", "[", 
    RowBox[{
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"4782969", "-", 
         RowBox[{"531441", " ", "#1"}], "-", 
         RowBox[{"531441", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{"39366", " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{"19683", " ", 
          SuperscriptBox["#1", "4"]}], "-", 
         RowBox[{"810", " ", 
          SuperscriptBox["#1", "5"]}], "-", 
         RowBox[{"270", " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         SuperscriptBox["#1", "8"]}], "&"}], ",", "5"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", 
       RowBox[{"-", 
        FractionBox["2", "27"]}], ",", 
       RowBox[{"-", 
        FractionBox["1", "27"]}], ",", 
       FractionBox["10", "6561"], ",", 
       FractionBox["10", "19683"], ",", 
       RowBox[{"-", 
        FractionBox["4", "531441"]}], ",", 
       RowBox[{"-", 
        FractionBox["1", "531441"]}]}], "}"}]}], "]"}], ",", 
   RowBox[{"AlgebraicNumber", "[", 
    RowBox[{
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "214358881"}], "+", 
         RowBox[{"38974342", " ", "#1"}], "+", 
         RowBox[{"15944049", " ", 
          SuperscriptBox["#1", "2"]}], "-", 
         RowBox[{"2737867", " ", 
          SuperscriptBox["#1", "3"]}], "-", 
         RowBox[{"395307", " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{"63888", " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{"3509", " ", 
          SuperscriptBox["#1", "6"]}], "-", 
         RowBox[{"539", " ", 
          SuperscriptBox["#1", "7"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         SuperscriptBox["#1", "9"]}], "&"}], ",", "5"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", 
       FractionBox["9", "11"], ",", 
       RowBox[{"-", 
        FractionBox["17", "121"]}], ",", 
       RowBox[{"-", 
        FractionBox["27", "1331"]}], ",", 
       FractionBox["48", "14641"], ",", 
       FractionBox["29", "161051"], ",", 
       RowBox[{"-", 
        FractionBox["49", "1771561"]}], ",", 
       RowBox[{"-", 
        FractionBox["6", "19487171"]}], ",", 
       FractionBox["1", "19487171"]}], "}"}]}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.464479297902104*^9, 3.464479315302603*^9}, 
   3.4644793757226143`*^9, {3.464479628009796*^9, 3.464479647135343*^9}}]
}, Open  ]]
},
WindowSize->{640, 652},
WindowMargins->{{28, Automatic}, {36, Automatic}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 1226, 32, 103, "Input"],
Cell[1819, 57, 3943, 113, 302, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)