derivation.nb

(* 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[    224879,       5559]
NotebookOptionsPosition[    223977,       5525]
NotebookOutlinePosition[    224321,       5540]
CellTagsIndexPosition[    224278,       5537]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"file", "[", 
    RowBox[{"n_", ",", "r_"}], "]"}], ":=", 
   RowBox[{"StringJoin", "[", 
    RowBox[{"\"\<D:\\\\DropBox\\\\coding\\\\step\\\\\>\"", ",", 
     RowBox[{"ToString", "[", "n", "]"}], ",", "\"\<.\>\"", ",", 
     RowBox[{"ToString", "[", "r", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"list", "[", 
    RowBox[{"n_", ",", "r_"}], "]"}], ":=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"file", "[", 
      RowBox[{"n", ",", "r"}], "]"}], ",", "\"\<Table\>\""}], "]"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"log", "[", 
     RowBox[{"n_", ",", "r_"}], "]"}], ":=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"list", "[", 
           RowBox[{"n", ",", "r"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"list", "[", 
           RowBox[{"n", ",", "r"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"list", "[", 
          RowBox[{"n", ",", "r"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"list", "[", 
      RowBox[{"n", ",", "r"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], "]"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"prime", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<D:\\\\DropBox\\\\coding\\\\step\\\\prime\>\"", ",", 
     "\"\<Table\>\""}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5287184314939823`*^9, 3.5287184743420506`*^9}, {
   3.528718605372751*^9, 3.5287186322496257`*^9}, 3.528719065494257*^9, {
   3.5287192900309534`*^9, 3.5287192927044535`*^9}, {3.5287193332464533`*^9, 
   3.5287193533124533`*^9}, {3.528719922085453*^9, 3.5287199352634535`*^9}, {
   3.5287286811696787`*^9, 3.528728738600456*^9}, 3.528728786037942*^9, {
   3.5287294804908047`*^9, 3.5287294856793423`*^9}, {3.5287298210589046`*^9, 
   3.5287298379237766`*^9}, {3.528729873462883*^9, 3.528729961389465*^9}, {
   3.528730001241934*^9, 3.528730001763538*^9}, {3.5287300439769793`*^9, 
   3.5287300565059843`*^9}, {3.528730097463174*^9, 3.528730170591297*^9}, {
   3.528730227125101*^9, 3.528730232072591*^9}, {3.5287311035604234`*^9, 
   3.5287311186749234`*^9}, {3.528731895125213*^9, 3.528731943958478*^9}, {
   3.5287325281332893`*^9, 3.528732554668095*^9}, {3.528732593335327*^9, 
   3.5287326306482887`*^9}, 3.528756767346184*^9, {3.5287580263808546`*^9, 
   3.528758028798838*^9}, {3.5287581063193393`*^9, 3.5287581083957543`*^9}, {
   3.5288014973885093`*^9, 3.528801498163009*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"PlotMarkers", "->", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Subsuperscript", "[", " ", 
          RowBox[{
           RowBox[{"ToString", "[", "r", "]"}], ",", 
           RowBox[{"ToString", "[", "n", "]"}], ",", "\"\<N\>\""}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], 
        "]"}], ",", "1"}], "]"}], 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"log", "[", 
            RowBox[{"n", ",", "r"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"r", ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], 
          "]"}], ",", "1"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
       RowBox[{"PlotMarkers", "->", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"n", "\"\<\[Times]\>\"", " ", 
             RowBox[{"Superscript", "[", " ", 
              RowBox[{
               RowBox[{"ToString", "[", "r", "]"}], ",", "\"\<N\>\""}], 
              "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", 
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"r", ",", 
              RowBox[{"{", 
               RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], 
           "]"}], ",", "1"}], "]"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<Log[N]\>\"", ",", "\"\<Log[Steps]\>\""}], "}"}]}]}], 
      "]"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"periodical", "=", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"list", "[", 
            RowBox[{"n", ",", "r"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"r", ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], 
          "]"}], ",", "1"}], "]"}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"ToString", "[", "n", "]"}], "\"\<\[Times]\>\"", " ", 
               RowBox[{"Superscript", "[", " ", 
                RowBox[{
                 RowBox[{"ToString", "[", "r", "]"}], ",", "\"\<n\>\""}], 
                "]"}]}], ",", "Bold", ",", "15"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", 
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"r", ",", 
              RowBox[{"{", 
               RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], 
           "]"}], ",", "1"}], "]"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<N\>\"", ",", "\"\<Steps\>\""}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Large"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"primes", "=", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"prime", ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<N\>\"", ",", "\"\<Steps\>\""}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", "Large"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"periodical", ",", "primes"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5287271035754967`*^9, 3.5287272123162403`*^9}, {
   3.528728493280178*^9, 3.5287285735556784`*^9}, 3.5287288527597833`*^9, {
   3.528728885623355*^9, 3.5287289044541197`*^9}, {3.528728961371501*^9, 
   3.52872904723167*^9}, {3.5287310688789234`*^9, 3.5287310813399234`*^9}, {
   3.5287311439654236`*^9, 3.5287311550209236`*^9}, {3.528731907732234*^9, 
   3.5287319170766025`*^9}, 3.5287319573246503`*^9, {3.528744392496266*^9, 
   3.5287443977743216`*^9}, {3.528756732632184*^9, 3.528756743134184*^9}, {
   3.5288015272375093`*^9, 3.5288015279015093`*^9}, {3.528805429017852*^9, 
   3.5288054667215147`*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBIAGIQ/d7y1z8nvWf23Mxrq15N/mgP4X+D84tXW9tvWsTg
wKSg9Yt79R+oPJtD7bzLe8QeMjtkn9ix7/JOboefOpNqludwOkDUCziU7g6w
sfjB57Dxk9T8qgxhhx9L2OueOAo5QPSLOZi9eXZ3Dbuog27jzTjuLxIOJcbH
bEvPikPNk3bYVLV0ru1kKQd098HcAbO/bWK2VbU8O9w9PMKHygte8kPdy+Pg
4dVza1OkiMORgAOzG3YJOXB3m1eu3ScB1SfucO70I/EVyrIOnpfEbpa2SGPY
Jxa6dffGbCaH2de4fy4z5XZYL71m+yVvfodZfo2/HnOJOKgUXrz5U1TM4fnG
moovVVIOhVfOhHO1yTjM4rKpbipVwDBv+e7rYqdkWOHhlVXyYxtjuJCD0Nqr
mR/qRBz+c7UmzZOXcljhnCTa6y7jgB4v6P5Hp2HmwviweIDxYfEAUweLB5g6
WDzA1MHiAabuw8GWv6yRsnB12NMNI9y+CS3MO+7HcsHjAyIvCI+Ps84Rkk9/
iMLjA6JeCh4f6ObLe/haiq1idZj4uLja6Tu7Qwz7olnSroIOkHgScliZNVdC
Z6u4Q9KODZaHbks4fDs7Y5qNqhw03uQxzNu4Ln+KXjSHAyydv8s98tX4m7BD
QI7W6a+SAg4tLIELL+yTdnjKtL1s0iNxB+Pet98dD/yEpwv09AFzF4zPW2Rk
fbmJF853aaj4a9gu6NBtlHpndoKAQ9Px8NhfPiIOJytdbFLUhB0O8JnvPSQk
7sB+UHmOzhtRh3+hYrLdNyQdXDmY/3zZKOFgM/drTfA8GYdm/0fRe8ulMdyD
Hj5LTi4u4y7hg9s3VfVvJMN8YQe/YoHqaUdFHMLTVvz4xSzhILhlt+RELUkH
qeXB079myDhc/pK2o7tfFsN8CJ8Tng+ea36qNAwQhucDiLwkPB+g6z/6mT84
qpAHHi6VE0SuejKKOcw5r+rJ1iXmwKe+sOHZSVkHo7RNXxYFyTmERxmtK1L6
Dy+H0POPste0a1EruOB8WLzB+L2bObX33Uek99O/XnS1LRWF8zmdTrzyy5aA
p3/3zuVe4obS8PTfeqFt1f1vsvD0j+4e9PQjLfH4xcRJCPvvRfS193wXcbAP
/xLjJy3osGCmpVp7jKQD04z5vz0aRB2Sbz050nhQ1uHIDa9Zzk8lMcxHDy+D
2Oble1eIOATPmSJdZSjqUHOgTvWchLTDgv/9M7sWSmPoh/D54eFy8PBSpmuR
4vD0DADVJqT6
    "], {{{}, {}, 
      {Hue[0.67, 0.6, 0.6], Thickness[Large], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
       LineBox[{11, 12, 13, 14, 15, 16, 17}]}, 
      {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], 
       LineBox[{18, 19, 20, 21, 22}]}, 
      {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], 
       LineBox[{23, 24, 25, 26}]}, 
      {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], 
       LineBox[{27, 28, 29, 30, 31, 32, 33, 34, 35, 36}]}, 
      {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], 
       LineBox[{37, 38, 39, 40, 41, 42}]}, 
      {Hue[0.08640786499873876, 0.6, 0.6], Thickness[Large], 
       LineBox[{43, 44, 45, 46, 47}]}, 
      {Hue[0.3224758424985268, 0.6, 0.6], Thickness[Large], 
       LineBox[{48, 49, 50, 51}]}, 
      {Hue[0.5585438199983166, 0.6, 0.6], Thickness[Large], 
       LineBox[{52, 53, 54, 55, 56, 57, 58, 59, 60}]}, 
      {Hue[0.7946117974981064, 0.6, 0.6], Thickness[Large], 
       LineBox[{61, 62, 63, 64, 65, 66}]}, 
      {Hue[0.030679774997896203`, 0.6, 0.6], Thickness[Large], 
       LineBox[{67, 68, 69, 70}]}, 
      {Hue[0.266747752497686, 0.6, 0.6], Thickness[Large], 
       LineBox[{71, 72, 73, 74}]}, 
      {Hue[0.5028157299974758, 0.6, 0.6], Thickness[Large], 
       LineBox[{75, 76, 77, 78, 79, 80, 81, 82, 83}]}, 
      {Hue[0.7388837074972656, 0.6, 0.6], Thickness[Large], 
       LineBox[{84, 85, 86, 87, 88, 89}]}, 
      {Hue[0.9749516849970554, 0.6, 0.6], Thickness[Large], 
       LineBox[{90, 91, 92, 93}]}, 
      {Hue[0.21101966249684523`, 0.6, 0.6], Thickness[Large], 
       LineBox[{94, 95, 96}]}}, {
      {Hue[0.67, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 1], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 2], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 3], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 4], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 5], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 6], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 7], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 8], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 9], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 10]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 11], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 12], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 13], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 14], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 15], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 16], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 17]}, 
      {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 18], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 19], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 20], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 21], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 22]}, 
      {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 23], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 24], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 25], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 26]}, 
      {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 27], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 28], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 29], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 30], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 31], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 32], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 33], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 34], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 35], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 36]}, 
      {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 37], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 38], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 39], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 40], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 41], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 42]}, 
      {Hue[0.08640786499873876, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 43], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 44], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 45], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 46], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 47]}, 
      {Hue[0.3224758424985268, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 48], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 49], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 50], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 51]}, 
      {Hue[0.5585438199983166, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 52], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 53], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 54], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 55], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 56], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 57], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 58], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 59], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 60]}, 
      {Hue[0.7946117974981064, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 61], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 62], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 63], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 64], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 65], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 66]}, 
      {Hue[0.030679774997896203`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 67], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 68], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 69], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 70]}, 
      {Hue[0.266747752497686, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 71], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 72], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 73], InsetBox[
        StyleBox[
         RowBox[{"\<\"2\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 74]}, 
      {Hue[0.5028157299974758, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 75], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 76], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 77], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 78], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 79], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 80], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 81], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 82], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"2\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 83]}, 
      {Hue[0.7388837074972656, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 84], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 85], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 86], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 87], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 88], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"3\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 89]}, 
      {Hue[0.9749516849970554, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 90], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 91], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 92], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"5\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 93]}, 
      {Hue[0.21101966249684523`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 94], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 95], InsetBox[
        StyleBox[
         RowBox[{"\<\"3\"\>", " ", "\<\"\[Times]\"\>", " ", 
          TemplateBox[{"\"7\"","\"n\""},
           "Superscript"]}],
         StripOnInput->False,
         FontSize->15,
         FontWeight->Bold], 96]}, {}}}], GraphicsComplexBox[CompressedData["
1:eJxFWHk01Wv/JfPMcabvdJJEbhqkEnFtRSmVSmiUMsY1NRANhkp1zVG5UlFC
ZQgRGsiQVNJgqESGBnVVoitjfue37vue96+91vM9a32ez7T3fs6UHb7rXCeJ
iYnNFhcT+3/8ZjTya/GsD2YKEjnBnxO+i/Df80Ezg+gvP80rhs24dkW38r0m
wWHT3NxdmhNmu68tMiu4KIaVhiE3u2dJ4L+/WxulP0PyqCQyb7VwH9JSCA4Z
ued1VRoR8V7G+yfLQK9QUnpBjAz+jSOOvsJn4wc5chjWO3kg8w85TP5V/2hh
n7wozqYZ8VZP9ilgstUqI+5VKdypNf46vVsRWeZVNfcJJazOjrF0LVJCfPfu
/Yt/ykCtl83t4ypjyfqxBVJLlVHcFzebrFfGv/lI45qJpsf0KhUoqlcG+n1S
QZBu7bCrjaoortIfrL+P+6vibLPCcMZ8BcxUm/49+ZkqjJ7cSr3foYq6Zq0f
o4pqqBlQsd3kr4gPszUNfHTVwFwba95iqIbd+Xkn1gSroVnpuMfwaiWEv9sR
/S5bDY2ug3LTS9Uw+Gcub+sPNTyoMQ3cUyaLIev3smErWfDcM1Qs7sCCfhml
07WX9Z96yqFXfaPr4AkWus4umN+awMLmZeXyI9dZmKTx24jCNUVI24kX9lWx
RPlsOWyw6WUPS1SfxbOcEnc5qSO/n7wQ7KGOHQ80ywxC1bFXNzHhZIEqzoU2
BavkqmN4++7xsCJ1sBR4tz/cVhf1ZeZHKlReki3Kz1Zs4ZN8NbbofltkydAk
Izbyh2I+8cHG/qYgJTEnNi69O7pjiRsb21qKHF/sY4OV07Sz7xAbx4Kr9w2l
sKF6zN/l7UU2NljFqnaVs0V1mRG79MniR2yk110KUNijjDI/vZ+2kzjovj0e
OsOQhR2rdbN+KXKwIKHaYzmLg3tTj0wX0+Rgp8s/+2brcBBRf4bYoMcRzeWo
f2rIKg8O8nN9E2dtlsUCUu7S91QOHo30/BlxmYNral/52oUcNE3/Y3vGTQ6q
rAbOT7nNwcbknDSOniq2LTCVbqvnoJ7s+5yoKo9kjSKVDx85sG0+EfWcUcch
veCzPn0c1AVZmLhoq6MrrdFOleTio25/kP4adajFrRYzn8uF3K9EuUULuAj7
NKW8azkXTv5bRx/2qOHmI57UmBMXXhtk1jqfUYd0n0pzvAcXp6aNbxS7oA6F
Fz/8fx3iYs26QSovnAtj7esvs6O5mLridPOmLHncLWPJ9iVyYenaXRiVxIXU
HmZGSAkXekWX7MZucZG9KP3+ih6uaB82HvxqGfUPFyNDSy4G6rHxSNfnOj3G
RbLN8FunCS5Sbn6NZOR4sM84O9dBkYdQlZ9HHOfzMPCrbGO4jCq0D7Q8q1rG
Q+wL1cjHK3jYa6jtWuTKQ2T05Wk5Eupw2mg/fMaLh+dmJyV5bWqIMv7ltiSQ
h5t+GRtncdTxJULu6tHjPFHf1aumzORd4KFv0PVQRxoPRssaUZDHQ5pmCu1X
wMPuxNyDchU8tG+IORb1k429Izp5dQ952GNw33RvPQ/j1ZMjb7zmieahP0nh
V9Q3HqrZgUEa/TykqJlJPxvm4V/+YsE6888NCsp8jCq7m92z5KB1qufFWm0+
TP651x7lyMHSs3LfM2fwMdN01vryD0o4MfaiOX8JH3avpE4c38/B/T3x+3yt
+AjbfWP24xV8JN07L3HMno8rfvXPPGI4eDowVPF0Gx+MwbGmyTv4ICgvjzPe
fNG8dYyUiOWE8CEe9/zXpzA+DnM0Qv46zhftW9JKrXWy0XzI0C7vTWP50IyE
fcspPn5rzmHJJvERZSdv9TyPL5pDv798bB5U8FFrfl2+q5KP2CDzjOl1fATF
sZuWi3Ox81bczqJXfFhMU9Z7q8bFxOlS565OPpq+hMr+3c0Hy2v9a+mvfBFP
EBo19t1SBP7L4+LGM0ob5Ai023cGVSsQ8LocTAboEaL9rGta6n3PkAChkmic
akTgvPmzP1evIPD3G50js8NV8WSKqfkyOwIt0sdamH42TI2X62s6EaJ5ffTc
aKLUmUDGeNZk7RQuQpgJAx8fAiX3X02Z50fA0S0tTDqUgOdYeFF1GIGKOSfc
/P4koHc5lfdbFAEFTtOe8kQCU1LD2Ob1XKwsgaVuEoGXp5w2ZT/lomole5vd
RQKP7zh2SaYTCIs53eqeTeBz+GFt9VwC5jKRbaqFBHrPdjuX3iBws/Co8fZi
QsS75fnWUfIPCXjsb3e7OIkHO5PXLlqvhfdQNrxTyeLh8YKP8nZtBOQnDDx7
2wmcYZmW53YTqH65InnJewLXh1kxml8IyLRF5hd+JeC0pM84dJDAd2W7Kt3Z
PHwqX342eZiA/tLk0hX1LFQ9K/sprUjCpapYP0qJxF/9il58Fonkh6yy1FwO
woK+BE6hSJzZyRNLo0lEyJhpKOuQuEUmniv9pore7Rmp1fNJeKfvkInwEd43
5KWDszkp0rm3mhbdZTakaA9Vpbr/VNlMYt/cqo7ALSTsDQp0g51JrJEXj37r
QuKuSavhCy8S2S1MR2Y6Dz98G1Zt8ifh7vVhSYUSF7Fh26rWHiBxxfMcX6+I
h4uWo48Dj5DIb41ue3aUxJO2Qtu2EySmSLZ1DIyxMdE1texkIomhdJlD78xZ
+P5iUUXXXyQe/46s+WdJrGxLl7bIJmFasLgnLoeE1lf5If1SYb6dUeLt31mQ
930fHvKAFOlktlpnrfQjUsSXkskljgktJArELoZGqvJREV00R+01iYxPg0ds
WklIzsjSl31LYvjT+KhFB4n4j34uYZ2kSP94i0rSH3whRbxwZmb687JfJDqX
Hxr8MiGs6/0G46MSFBo+dX0rlqSQJ1W/vEeKEul9gTtX+6o8hYPajrdeKVBw
8JyWoUUJv8secrahKTws/xVfP5kS8T+3Z5OYhiaF7Ynri62mUvDbWNNUoU1h
c7Db/B4dCpN3hI2eMqWgk5r9svh3CjdyDx/nLaZE/qOG5XVEwZrChNjaCac9
KohV+vyXhj0l4o8tbg+29jhSEP+WMDaxjUL/liEVS2cKWa1Vp841c2Ba9cik
dieF/FCip9WTwlbXK92/+1FIcO1L2JLJQtntvu6ZIf+77yA3XMLjMAXLvI6I
+Nt8POP6txefoFBKb/R+MI2HjHnrmkdjKVz6Q3W7dDyFgKi9F6ySKMxguIT7
dhbWqTmNBZynkDnJr+7gBQrPc1Mdbl6lQPG7e+JPquKRd3V4dS6FdezburV5
FFZdpVKe3qBEPGUcOP3882IKj7svjeM3LhrqGi/XV1CifTW0a8ipq6Rgttnd
traKwrG1lu9uPqCw/JYvb0CcALXLtT3iOSXyQWnXW+YENwrrcm7W0hIlArvO
zb2o107hYphiQfpaLpIeLF1DdlD4UKP3RLWTgsZI0eO29xTmPY8OnFbGxpb+
z6yfgxT+9cOqEFvr9qN0hIJtydgc8XkEasb8WMljwn4w2vUnxikk3jfLcRCj
ofQj5ZN1Cg+ngsNivkjR2HtrjcnCIWW8KhrI2a9Ai3TfvrLx7xYWDd/D4aGV
6jS6NwVYrOfTKL7hk2RK0Pg2tGNKHUMjedncAL6DkAc1eudF6dOwNH13oGGE
BXVX17W2BjTuuLQnLJhHI62qjT/DhMYCysZd0VR4vt5ae84SGqNXPz89doBA
f7L9svfWNCQa01p+P0rg25PqYs5aGp69IYH9QjwcHLbbzJ7GMTtNPuVA45+3
XQG8rTS4bWZle04TiD0nX2rpTkM8ceAu40Gjq6GmPN1TeO836/zDpPk4Kis7
luNLw8h+6YUTCnx0qah8ur6HFvmUo62zdTcH0NhTWqlRtYKDdxniNXb7hXFG
XJJ1D9BIHV8YufAojctvOl80DXGxvCRA0jmaRsolcsPD+wSKfAe29p6l8dAx
r/+uIR8FBtfORpyjEcV7enLQnwPHfNsZpanCenF1dx5No2FXIWEaeplGjN/e
q5tt2UiYXXeFm0mL9H6aT9mM5ms0tii6zU/NpvHo/RXn8VwaYo0+/l49BMLp
ELW46zTmX+PN3JhPI8PANqGwkEZ4d/muMBuhDpsU/qFyhxbxvrX8s5SUuzT0
n2iVKA0R+LRRORFVNILEOxSlq4V5xrGjp7fRiNC/KWhZw4PjoeacK500mq4P
btvZRSO+4s69aR9oVD09eO6dEDsWri7n9wr7cqTqzZkKDthbiMDNwzQ0A3vS
W+aSuGe1PylDjEHrBHVr8x4eXmQl+96XZ/A1c8aZQwoMNkUcWJahxIjeJ67v
wrw5KgxsHdmRp6yEfLw/ena/GoPkLDPlKywGEppMiBGXEekIwxt98YFi8M7l
3ZezNIO08cr9ZQIGV2ratptuIPHT2ThuqgaD1SsrP7cIcfSRZuNmLQZxRyRK
3m4lsemkM79cjxH5Ff4+42l5Bgwy7VpuzPcW6sTt8M+q8xk8y24Y0PLm4Hyq
icwLQwbuA36LDy9koKphv83AiIFudnxX2S4SYc6X0vsXMbDMSfrtogmD/e5z
pZXB4HubdfHpIBLOD9cuXGjFiN4x9R2XO9euYXD3tmC9RC8fcnNal+TZMYjV
sklZFEtCR9Hje85WBrRWba2DIwM3hlqXuZ1BzE8nK+8mHizVi3ZYuzAoMD8R
PjzBh9uWeKPfPRjcyau7XJ9GwlKlbni/N4Pt8XsXTPUR1p1+ZcX3E9bHi/Mr
6woJj/ViT633MqJ3gdi8g4rdgQymGickHd/HYM23QbOPoQwGlUrDxuYrovaS
plTgYQYWofvG9Y+pocCZl2J9jMFVHf+8r0JcnN6cFX+cwR8d8TbalSSsCyIi
6UgGJbYXJcqF+GR0x+tPMcz/dLTk5YGZcQwc3LKGRiSEPlHCSmwwgYFYzFnW
mUQGZzJblpkkMwifttnxjRB/g03KtQwGDbPWVC/PZGAWf0uw7SqD1yWFN8aE
ONtr9fvGbAZrX4eSu3IYZHkmGqrkMmiyrtzUOUXogxf99TPnNoPJnL8rre4I
+2aQncQvF9Z/8TnpQiEm3Vy2dVUFI3rXqJ+vqbG5z+DSpAunpxkL/bIlRzq4
nhHtZ/uQ1MGrTxhIRZ48vbiBQWjB6WNnGhmRf0yjjr9d/UoY71J0uM4qPqb2
ddxtfCPMv/LKPc82Bv0WlyIcOhicypeU/iJElW+GJi3dDGpvPKgLYii0zdGd
ZvGVAVfx8YUWIQ54y9Te/M6g71tG5Yp+4bw3EYYSPxh4FR9tPyXEK+UDftP/
EX7XqRVI7RT660yL72JjzH/+TxDq7IWUgGxxAQL7zVfaLqJgYdhw11dWIPKn
Pl+55/5WFIBWLZVJXEpBiee7vZEjQInVKcsdXAHOR0t+jGUEuG30Dbvi+Qh2
f1PcqiE8JyY4HlMEuH6fV6E4VQDn1tu3M3vZKDyX/ExLS4DknMw714X4kDJR
Wa8tgJz/KtX39wg46OYu8tIRIMaTsOFtF+p/bE7Waz0B/JZaBB1zo2C6qzPH
3kAAH/eXjpLeFEKC4qviFghgP0tbnzQUxln1BQ+MBBjoPJpm30SgYbX/mm1L
BMjL19JWOUjhdNy6PB8LAYYkni4ZFGLHP/uS3q4UILdjVV5cBIVqHU5A7yoB
FnqazY3mcXCw9W2v+0YBZtvPm9r/g4BFalfP4S0CiK8ZkDM8TSE3YCjospMA
raO+23S3C4DFHm9uOQsQt8Fsi5mLAIcfxwXUuQrg4v2rYKWbALMOpLQ3CNHl
/e4bJxbx8H8p+vSs
    "], {{{}, {}, 
      {GrayLevel[0.5], LineBox[CompressedData["
1:eJwl1FO4EAYYBuBzsm2dTratheVlL9u2l7G2zGVbW8tuy7Ztuy2+5+ni/f7b
7+b7g5t0rNohMCAgIKsIuaEITRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP
+CQgIYlITBKSkowgkhNMClKSitSkIS3pSE8GMpKJzGQJ6U42spODnOQiN3nI
Sz7yU4CCFKIwRfiBohSjOCX4kZKUojRlKEs5yvMTFahIJSpThapUozo1qEkt
alOHn6lLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570
ojd96Es/+jOAgfzCIAYzhKEMYzgjGMkoRvMrY/iN3xnLOMYzgYlMYjJTmMo0
pjODP5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4a1rGM9f/IXG/ibjWxi
M1vYyja2s4Od7GI3e9jLPv7hX/ZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4GL
XOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgf/4
n4984jNf+ErI+AMJRWjCEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJ
RGKSkJRkBJGcYFKQklSkJg1pSUd6MpCRTGQmS+D33/UNkpyF/A==
        "]]}}, {
      {GrayLevel[0.5], PointBox[CompressedData["
1:eJwl1FO4EAYYBuBzsm2dTratheVlL9u2l7G2zGVbW8tuy7Ztuy2+5+ni/f7b
7+b7g5t0rNohMCAgIKsIuaEITRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP
+CQgIYlITBKSkowgkhNMClKSitSkIS3pSE8GMpKJzGQJ6U42spODnOQiN3nI
Sz7yU4CCFKIwRfiBohSjOCX4kZKUojRlKEs5yvMTFahIJSpThapUozo1qEkt
alOHn6lLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570
ojd96Es/+jOAgfzCIAYzhKEMYzgjGMkoRvMrY/iN3xnLOMYzgYlMYjJTmMo0
pjODP5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4a1rGM9f/IXG/ibjWxi
M1vYyja2s4Od7GI3e9jLPv7hX/ZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4GL
XOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgf/4
n4984jNf+ErI+AMJRWjCEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJ
RGKSkJRkBJGcYFKQklSkJg1pSUd6MpCRTGQmS+D33/UNkpyF/A==
        "]]}, {}, {}}}]},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{0, 0},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  Frame->True,
  FrameLabel->{
    FormBox["\"N\"", TraditionalForm], 
    FormBox["\"Steps\"", TraditionalForm]},
  FrameTicks->{{{{0, 
       FormBox["1", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {9.210340371976184, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{0., 
       FormBox["1", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {8.517193191416238, 
       FormBox["5000", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  ImageSize->{813., Automatic},
  LabelStyle->Large,
  Method->{},
  PlotRange->{{0.6931471805599453, 7.536363938404511}, {1.0986122886681098`, 
   8.229511118964457}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{0., 
      FormBox["1", TraditionalForm]}, {1.6094379124341003`, 
      FormBox["5", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {6.214608098422191, 
      FormBox["500", TraditionalForm]}, {6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {8.517193191416238, 
      FormBox["5000", TraditionalForm]}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.551080335043404, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.684611727667927, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.802394763324311, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.006367567650246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.294049640102028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{0, 
      FormBox["1", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {9.210340371976184, 
      FormBox[
       TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.551080335043404, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.684611727667927, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.802394763324311, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.006367567650246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.294049640102028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.699514748210191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.85366542803745, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.987196820661973, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {9.104979856318357, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{
  3.528730566490364*^9, {3.528730624822195*^9, 3.5287306567758036`*^9}, 
   3.528730815037423*^9, {3.5287309449189234`*^9, 3.5287309570944233`*^9}, {
   3.528731365301423*^9, 3.5287313917310543`*^9}, {3.5287314328937855`*^9, 
   3.5287314555523157`*^9}, 3.5287316317345457`*^9, 3.5287317614949923`*^9, {
   3.5287318259428797`*^9, 3.5287318532933483`*^9}, {3.528731979829651*^9, 
   3.5287320440539927`*^9}, 3.5287320796591125`*^9, 3.528732129370053*^9, {
   3.528732197860248*^9, 3.5287322331748095`*^9}, 3.5287323126151943`*^9, 
   3.5287323860398765`*^9, {3.52873266251116*^9, 3.528732691082873*^9}, {
   3.5287327539744487`*^9, 3.5287327804527435`*^9}, {3.528732813373826*^9, 
   3.5287328400771656`*^9}, 3.528743846793147*^9, {3.528743900057798*^9, 
   3.5287440253688555`*^9}, {3.528744090235826*^9, 3.5287441017861357`*^9}, {
   3.528744149521681*^9, 3.5287441788710494`*^9}, 3.5287502927253537`*^9, 
   3.5287547289291267`*^9, {3.528756727497684*^9, 3.528756749535684*^9}, 
   3.528756790568184*^9, {3.528756835986184*^9, 3.5287568592091837`*^9}, 
   3.5287580815403843`*^9, 3.5287581141439037`*^9, 3.5287586205837417`*^9, 
   3.5287591682862415`*^9, 3.528801530032509*^9, {3.5288054487134137`*^9, 
   3.528805467918254*^9}}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"label", "[", 
    RowBox[{"n_", ",", "r_"}], "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"n", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"i", "\[Equal]", "1"}], ",", "1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"i", "<", "3"}], "||", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"r", "\[Equal]", "2"}], "&&", 
              RowBox[{"i", "<", "6"}]}], "||", 
             RowBox[{
              RowBox[{"r", "==", "3"}], "&&", 
              RowBox[{"i", "<", "4"}]}]}], ")"}]}], ",", " ", 
          SuperscriptBox["r", 
           RowBox[{"i", "-", "1"}]], ",", 
          RowBox[{"\"\<\[CenterDot]\>\"", 
           RowBox[{"Superscript", "[", " ", 
            RowBox[{
             RowBox[{"ToString", "[", "r", "]"}], ",", 
             RowBox[{"ToString", "[", 
              RowBox[{"i", "-", "1"}], "]"}]}], "]"}]}]}], "]"}]}], "]"}]}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", 
        RowBox[{"list", "[", 
         RowBox[{"n", ",", "r"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"label", "[", 
    RowBox[{"n_", ",", "r_"}], "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Subscript", "[", 
      RowBox[{"n", ",", 
       RowBox[{"Superscript", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"ToString", "[", "r", "]"}], ",", "Medium"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"ToString", "[", 
            RowBox[{"i", "-", "1"}], "]"}], ",", "Medium"}], "]"}]}], "]"}]}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", 
        RowBox[{"list", "[", 
         RowBox[{"n", ",", "r"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"group", "=", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"label", "[", 
           RowBox[{"n", ",", "r"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"n", ",", "r"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], 
       "]"}], ",", "1"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"names", "=", 
   RowBox[{"Join", "@@", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"group", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "16"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coords", "=", 
   RowBox[{"Join", "@@", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"group", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "16"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"labels", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{"names", ",", "coords"}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.528756999483684*^9, 3.5287570390584297`*^9}, {
   3.528757069288474*^9, 3.5287570773800926`*^9}, {3.5287572069665046`*^9, 
   3.528757249311472*^9}, {3.528757283449798*^9, 3.528757285626233*^9}, {
   3.5287577807137313`*^9, 3.5287577887763433`*^9}, 3.5287578431222105`*^9, {
   3.5288015451790094`*^9, 3.5288015525455093`*^9}, {3.52880594799175*^9, 
   3.5288059597455997`*^9}, 3.528806092382622*^9, 3.5288062948611097`*^9, 
   3.528806681598707*^9, {3.5288068403162074`*^9, 3.5288069308757076`*^9}, {
   3.5288069796672077`*^9, 3.5288070340957074`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"points", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"labels", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "labels", "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"StyleForm", "[", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", "20"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "&"}], "/@", 
        "labels"}], ")"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"periodical", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"list", "[", 
          RowBox[{"n", ",", "r"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], 
        "]"}], ",", "1"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "15"}], "}"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"primes", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"prime", ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"points", ",", "primes", ",", "periodical"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<N\>\"", ",", "\"\<Steps\>\"", ",", 
      "\"\<Period of N\[Times]N Map\>\""}], "}"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", "Large"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5287574710743155`*^9, 3.5287575047635517`*^9}, {
  3.528757546750948*^9, 3.528757547096017*^9}, {3.5287576745179963`*^9, 
  3.528757686158324*^9}, {3.528757805800748*^9, 3.5287578135708013`*^9}, {
  3.5287579252471323`*^9, 3.528757962968175*^9}, {3.5288015857885094`*^9, 
  3.5288015871645093`*^9}, {3.52880610972609*^9, 3.5288061119640374`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJx11M8rRFEUwPGXlaXFLCws0CwsJGnUiPRM0siLabIYEdNkGJEZRUaJJ79e
ETKTEJqytrecpYU/Yv4QC3S+ZzGneVPTp3O777x7zz339eSK6Xyb4zjZv/+/
/FyhHTtM3I2dOIh96GIcU5jELGawhAX0sYx3GLit16fr0PcPmXgGE6K7Srwo
Zo8Y3xW/Hhi/CXlfFMdxWqznyFMUS5diUBG9j5B8/Ui9fK1LnjznrOfePKfn
YvdvjZs4aeKMmVcw88pmXmDmPZp5dn295n2jmBDdeWI9j23G9TwuGNfzsPkH
MCbW08QLYmmffMei9yoG7yH5hpE+z+aIPTFCP/q63whGjdofMRNPmlj3P4va
n8tIHRzq4pwhfetUUetj12Pq4081v6/BffTXxNQB49zDH/ou9RSSfwS5B+4K
cg+CU6y0ft6fIKYuNfbp74jfz4y/Ma8L9Ttk7o8zZmLPxEsm3jLxIWr/X6P2
/wtq/9v1mP7x55rz19aJ6dPPE+JNscp+XT1nk9/Wq8F3wtkQM1c8fxvyvO6L
upT2GC+7vxWohq4=
     "]]}, GraphicsComplexBox[CompressedData["
1:eJxd1zF0JGMAwPHhXZEixRYpUqQIL8/L8/JYBMsL1gkWwTrBIhgnxyLcIgiC
cQ5BsAgWwRRXpLhiixQprpjiihRXbKFIccUWV2yRYosUKVJ43vy+Ipfm9/5v
vtmZyc583+xVx08eO3FlFEXXXxFF/+uvnDNwmQUOcYwjHOU1l427lhO8gTfy
Jl7NW1niHZcd5y5el5sc1ffoaT2p79X36ft1UT+oH9IPHz5u8oi+Mzer6sc0
k7tzy8c0s8e188tm7f+E8U/qW3TNeJaftv02+4d+RjM6avyzh6+nPKfD8V/Q
cW7MsusafVEzZvhe0uOHr697/PD5pS85DuN549lldMJ4Zoxfdnz/l1Qnvr/u
K8Y/5XzrxjNlxi7DfRm/pm+2/XW9YDsTpqFnHO8N42+3v86es/1N25/3eSed
n/97oWEcG4xcb0dnvpe+7urqWz6XTUZTuW2dsfq28Sy+Y7z/Z0PHvq+mTtlh
l+3F3MT9VXjX9bDNyP+jozP3e+E9+9ve0OF77+vofefPmG2m7oO+jpaMZ7gf
OrrLwgfGe46aOnk1t/ih63GfVHVkHunrru2Fj4xng7H7qq0zFpZ9nvuqqVN2
wnbPWz/0x86PZfYZ7sPGJ66Hbabuy+Knztd92dAJOwzzRCVxfPN4TcfsMTyf
w5/5fNYZPZrb0onvb1uH+3VHd/TAqdwCa4y5wia32Ha/b+tM7+vo89xxFllh
lTWGeXdLtz0PA6d9nudiWI+yxDLrbLDFpv03dGIeH/git8Bxlt0/NR2zFbZb
l3q66zkc/9LnW+eWdHgOt3TGHvsc/sr5eO5KOnI/LemG7Ru6zW1mvv+BFftb
78Z1kS2m7DGxrlW+dr2+n5oO8+WGTj3nWzrjThjPXvg8617pG+fjud/QbW6z
wx2G9X5fR9/m1tngCsP839Ipt5ixtpobc4nh/WMr9AO5A9/5fPNERVdZZ2z+
aOmU20y8Z5S+P3y+NV01z6zo2P28pTPuhw7f9w+5Ra4wMV9s6DZ3GOapnu66
/0aaPt/9MKbHOcWSeWteh/egBV23fU03rcPrOuUmy9avAx15nxr8MXfAvDak
hznGrudvSkeV3Fkd1v1FvcRVNnmGqeMd6MzzcuQn58MJFjnDyinH0w29qps8
ww2eZ2b8nt7nkZ9zY8/jiE70pA7vKVM6tT7P6hpPh/2NP6s3zNN7YX/P70Fo
6/fgWm6BYxz1njqhw3o/rSucZdW8PadjLrBs/V/XYd4/o1N9Tmec/sX+5u85
HXORS1xjZn24qHesA0d+zY3C/abLnAnbva/N6qr5f17XucywjqzrlGe5Yfum
3uIFbtt+EPb3vjL2W+6odWNCJ76PKV3mdGjjZ3WNC6zbvq7D75gLOjO/7Oqe
8SMt58NJFr1fToc2f8zpmnVrWSdc5YrtZ3X4XXBOZ9xjZL4/8rv2u3JEj3Is
tHVtUpc4w7COzuqq53FBN7jGFi+xx4NwPn/kDrLAodCex0W9xNNc4SrD75rN
0Pa/pMPzuav74Xh/Ot6p3Eld9DzO6CrnWecyl6y/5/U2L7LLXfa5F9rxxtZz
R63TM7qil3V4P13XLdsv6i6H/nJ91vcJXeQUY+9b07rCWTYdb07XrPundaI3
dVtf0B1eYt/nTfydO27dn9QlLrJh+7KO/X77VzfNj7u6Z/zgP66fYxznJEuc
Ymex/B/XD7uB
    "], {{{}, {}, 
      {GrayLevel[0.5], LineBox[CompressedData["
1:eJwl1FO4EAYYBuBzsm2dTratheVlL9u2l7G2zGVbW8tuy7Ztuy2+5+ni/f7b
7+b7g5t0rNohMCAgIKsIuaEITRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP
+CQgIYlITBKSkowgkhNMClKSitSkIS3pSE8GMpKJzGQJ6U42spODnOQiN3nI
Sz7yU4CCFKIwRfiBohSjOCX4kZKUojRlKEs5yvMTFahIJSpThapUozo1qEkt
alOHn6lLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570
ojd96Es/+jOAgfzCIAYzhKEMYzgjGMkoRvMrY/iN3xnLOMYzgYlMYjJTmMo0
pjODP5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4a1rGM9f/IXG/ibjWxi
M1vYyja2s4Od7GI3e9jLPv7hX/ZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4GL
XOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgf/4
n4984jNf+ErI+AMJRWjCEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJ
RGKSkJRkBJGcYFKQklSkJg1pSUd6MpCRTGQmS+D33/UNkpyF/A==
        "]]}}, {
      {GrayLevel[0.5], PointBox[CompressedData["
1:eJwl1FO4EAYYBuBzsm2dTratheVlL9u2l7G2zGVbW8tuy7Ztuy2+5+ni/f7b
7+b7g5t0rNohMCAgIKsIuaEITRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP
+CQgIYlITBKSkowgkhNMClKSitSkIS3pSE8GMpKJzGQJ6U42spODnOQiN3nI
Sz7yU4CCFKIwRfiBohSjOCX4kZKUojRlKEs5yvMTFahIJSpThapUozo1qEkt
alOHn6lLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570
ojd96Es/+jOAgfzCIAYzhKEMYzgjGMkoRvMrY/iN3xnLOMYzgYlMYjJTmMo0
pjODP5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4a1rGM9f/IXG/ibjWxi
M1vYyja2s4Od7GI3e9jLPv7hX/ZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4GL
XOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgf/4
n4984jNf+ErI+AMJRWjCEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJ
RGKSkJRkBJGcYFKQklSkJg1pSUd6MpCRTGQmS+D33/UNkpyF/A==
        "]]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJx11M8rRFEUwPGXlaXFLCws0CwsJGnUiPRM0siLabIYEdNkGJEZRUaJJ79e
ETKTEJqytrecpYU/Yv4QC3S+ZzGneVPTp3O777x7zz339eSK6Xyb4zjZv/+/
/FyhHTtM3I2dOIh96GIcU5jELGawhAX0sYx3GLit16fr0PcPmXgGE6K7Srwo
Zo8Y3xW/Hhi/CXlfFMdxWqznyFMUS5diUBG9j5B8/Ui9fK1LnjznrOfePKfn
YvdvjZs4aeKMmVcw88pmXmDmPZp5dn295n2jmBDdeWI9j23G9TwuGNfzsPkH
MCbW08QLYmmffMei9yoG7yH5hpE+z+aIPTFCP/q63whGjdofMRNPmlj3P4va
n8tIHRzq4pwhfetUUetj12Pq4081v6/BffTXxNQB49zDH/ou9RSSfwS5B+4K
cg+CU6y0ft6fIKYuNfbp74jfz4y/Ma8L9Ttk7o8zZmLPxEsm3jLxIWr/X6P2
/wtq/9v1mP7x55rz19aJ6dPPE+JNscp+XT1nk9/Wq8F3wtkQM1c8fxvyvO6L
upT2GC+7vxWohq4=
    "], {{{}, {}, 
      {Hue[0.67, 0.6, 0.6], Thickness[Large], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
       LineBox[{11, 12, 13, 14, 15, 16, 17}]}, 
      {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], 
       LineBox[{18, 19, 20, 21, 22}]}, 
      {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], 
       LineBox[{23, 24, 25, 26}]}, 
      {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], 
       LineBox[{27, 28, 29, 30, 31, 32, 33, 34, 35, 36}]}, 
      {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], 
       LineBox[{37, 38, 39, 40, 41, 42}]}, 
      {Hue[0.08640786499873876, 0.6, 0.6], Thickness[Large], 
       LineBox[{43, 44, 45, 46, 47}]}, 
      {Hue[0.3224758424985268, 0.6, 0.6], Thickness[Large], 
       LineBox[{48, 49, 50, 51}]}, 
      {Hue[0.5585438199983166, 0.6, 0.6], Thickness[Large], 
       LineBox[{52, 53, 54, 55, 56, 57, 58, 59, 60}]}, 
      {Hue[0.7946117974981064, 0.6, 0.6], Thickness[Large], 
       LineBox[{61, 62, 63, 64, 65, 66}]}, 
      {Hue[0.030679774997896203`, 0.6, 0.6], Thickness[Large], 
       LineBox[{67, 68, 69, 70}]}, 
      {Hue[0.266747752497686, 0.6, 0.6], Thickness[Large], 
       LineBox[{71, 72, 73, 74}]}, 
      {Hue[0.5028157299974758, 0.6, 0.6], Thickness[Large], 
       LineBox[{75, 76, 77, 78, 79, 80, 81, 82, 83}]}, 
      {Hue[0.7388837074972656, 0.6, 0.6], Thickness[Large], 
       LineBox[{84, 85, 86, 87, 88, 89}]}, 
      {Hue[0.9749516849970554, 0.6, 0.6], Thickness[Large], 
       LineBox[{90, 91, 92, 93}]}, 
      {Hue[0.21101966249684523`, 0.6, 0.6], Thickness[Large], 
       LineBox[{94, 95, 96}]}}, {
      {Hue[0.67, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 1], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 2], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 3], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 4], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 5], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 6], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 7], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 8], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 9], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 10]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 11], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 12], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 13], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 14], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 15], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 16], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 17]}, 
      {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 18], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 19], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 20], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 21], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 22]}, 
      {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 23], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 24], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 25], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 26]}, 
      {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 27], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 28], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 29], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 30], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 31], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 32], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 33], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 34], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 35], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 36]}, 
      {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 37], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 38], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 39], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 40], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 41], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 42]}, 
      {Hue[0.08640786499873876, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 43], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 44], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 45], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 46], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 47]}, 
      {Hue[0.3224758424985268, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 48], InsetBox[
        StyleBox["\<\"\[EmptyDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 49], InsetBox[
        StyleBox["\<\"\[EmptyDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 50], InsetBox[
        StyleBox["\<\"\[EmptyDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 51]}, 
      {Hue[0.5585438199983166, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 52], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 53], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 54], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 55], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 56], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 57], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 58], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 59], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 60]}, 
      {Hue[0.7946117974981064, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 61], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 62], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 63], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 64], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 65], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 66]}, 
      {Hue[0.030679774997896203`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 67], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 68], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 69], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 70]}, 
      {Hue[0.266747752497686, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 71], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 72], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 73], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 74]}, 
      {Hue[0.5028157299974758, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 75], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 76], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 77], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 78], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 79], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 80], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 81], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 82], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 83]}, 
      {Hue[0.7388837074972656, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 84], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 85], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 86], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 87], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 88], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 89]}, 
      {Hue[0.9749516849970554, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 90], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 91], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 92], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 93]}, 
      {Hue[0.21101966249684523`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 94], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 95], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 96]}, {}}}]},
  AspectRatio->1,
  Axes->True,
  Epilog->{
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {2, 3}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {4, 3}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {8, 6}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {16, 12}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {32, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {64, 48}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {128, 96}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"7\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {256, 192}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"8\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {512, 384}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"9\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1024, 768}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {2, 3}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {6, 12}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {18, 12}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {54, 36}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {162, 108}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {486, 324}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1458, 972}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {2, 3}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {10, 30}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {50, 150}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {250, 750}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1250, 3750}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {2, 3}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {14, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {98, 168}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {686, 1176}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {3, 4}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {6, 12}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {12, 12}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {24, 12}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {48, 12}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {96, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {192, 48}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"7\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {384, 96}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"8\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {768, 192}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"9\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1536, 384}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {3, 4}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {9, 12}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {27, 36}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {81, 108}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {243, 324}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {729, 972}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {3, 4}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {15, 20}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {75, 100}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {375, 500}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1875, 2500}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {3, 4}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {21, 8}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {147, 56}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1029, 392}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {5, 10}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {10, 30}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {20, 30}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {40, 30}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {80, 60}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {160, 120}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {320, 240}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"7\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {640, 480}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"8\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1280, 960}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {5, 10}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {15, 20}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {45, 60}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {135, 180}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {405, 540}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1215, 1620}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {5, 10}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {25, 50}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {125, 250}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {625, 1250}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {5, 10}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {35, 40}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {245, 280}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1715, 1960}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {7, 8}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {14, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {28, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {56, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {112, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {224, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {448, 48}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"7\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {896, 96}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"8\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1792, 192}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {7, 8}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {21, 8}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {63, 24}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {189, 72}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {567, 216}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {1701, 648}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {7, 8}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {35, 40}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {175, 200}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {875, 1000}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {7, 8}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {49, 56}, {-1, 1}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], {343, 392}, {-1, 1}]},
  Frame->True,
  FrameLabel->{
    FormBox["\"N\"", TraditionalForm], 
    FormBox["\"Steps\"", TraditionalForm], 
    FormBox["\"Period of N\[Times]N Map\"", TraditionalForm]},
  ImageSize->{493., Automatic},
  LabelStyle->Large,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.5287573060363145`*^9, {3.528757478581317*^9, 3.5287575059982986`*^9}, 
   3.5287575479866953`*^9, {3.528757682154023*^9, 3.5287576870079937`*^9}, {
   3.528757792790146*^9, 3.528757814225932*^9}, 3.528757845563198*^9, {
   3.5287579259142656`*^9, 3.5287579638223457`*^9}, 3.528758082245025*^9, 
   3.528758114658507*^9, 3.5287586210967417`*^9, 3.5287591687932415`*^9, {
   3.5288015596390095`*^9, 3.5288015893650093`*^9}, 3.5288054497721252`*^9, 
   3.528805963556362*^9, 3.5288061130112467`*^9, 3.528806298748387*^9, 
   3.528806685892207*^9, {3.5288068721392074`*^9, 3.5288069182157073`*^9}, {
   3.5288069847062073`*^9, 3.5288070368057075`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"points", "=", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"labels", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "labels", "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"StyleForm", "[", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", "20"}], "]"}], ",", 
           RowBox[{"Log", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "&"}], "/@", "labels"}], 
       ")"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"periodical", "=", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"list", "[", 
          RowBox[{"n", ",", "r"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "3", ",", "5", ",", "7"}], "}"}]}], "}"}]}], 
        "]"}], ",", "1"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "15"}], "}"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"primes", "=", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{"prime", ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"points", ",", "primes", ",", "periodical"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<N\>\"", ",", "\"\<Steps\>\"", ",", 
      "\"\<Period of N\[Times]N Map\>\""}], "}"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", "Large"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.7", ",", "7.7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "8.3"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.52875737052521*^9, 3.5287574304611945`*^9}, 
   3.52875756221204*^9, {3.528757628473789*^9, 3.528757638851364*^9}, {
   3.52875770279465*^9, 3.5287577054311776`*^9}, {3.5287577381482196`*^9, 
   3.5287577386138124`*^9}, {3.5287585854442415`*^9, 
   3.5287588065647416`*^9}, {3.528801567965009*^9, 3.5288015686775093`*^9}, {
   3.5288061230282497`*^9, 3.5288061505062447`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGBIAGIQ/d7y1z8nvWf23Mxrq15N/mgP4X+D84tXW9tvWsTg
wKSg9Yt79R+oPJtD7bzLe8QeMjtkn9ix7/JOboefOpNqludwOkDUCziU7g6w
sfjB57Dxk9T8qgxhhx9L2OueOAo5QPSLOZi9eXZ3Dbuog27jzTjuLxIOJcbH
bEvPikPNk3bYVLV0ru1kKQd098HcAbO/bWK2VbU8O9w9PMKHygte8kPdy+Pg
4dVza1OkiMORgAOzG3YJOXB3m1eu3ScB1SfucO70I/EVyrIOnpfEbpa2SGPY
Jxa6dffGbCaH2de4fy4z5XZYL71m+yVvfodZfo2/HnOJOKgUXrz5U1TM4fnG
moovVVIOhVfOhHO1yTjM4rKpbipVwDBv+e7rYqdkWOHhlVXyYxtjuJCD0Nqr
mR/qRBz+c7UmzZOXcljhnCTa6y7jgB4v6P5Hp2HmwviweIDxYfEAUweLB5g6
WDzA1MHiAabuw8GWv6yRsnB12NMNI9y+CS3MO+7HcsHjAyIvCI+Ps84Rkk9/
iMLjA6JeCh4f6ObLe/haiq1idZj4uLja6Tu7Qwz7olnSroIOkHgScliZNVdC
Z6u4Q9KODZaHbks4fDs7Y5qNqhw03uQxzNu4Ln+KXjSHAyydv8s98tX4m7BD
QI7W6a+SAg4tLIELL+yTdnjKtL1s0iNxB+Pet98dD/yEpwv09AFzF4zPW2Rk
fbmJF853aaj4a9gu6NBtlHpndoKAQ9Px8NhfPiIOJytdbFLUhB0O8JnvPSQk
7sB+UHmOzhtRh3+hYrLdNyQdXDmY/3zZKOFgM/drTfA8GYdm/0fRe8ulMdyD
Hj5LTi4u4y7hg9s3VfVvJMN8YQe/YoHqaUdFHMLTVvz4xSzhILhlt+RELUkH
qeXB079myDhc/pK2o7tfFsN8CJ8Tng+ea36qNAwQhucDiLwkPB+g6z/6mT84
qpAHHi6VE0SuejKKOcw5r+rJ1iXmwKe+sOHZSVkHo7RNXxYFyTmERxmtK1L6
Dy+H0POPste0a1EruOB8WLzB+L2bObX33Uek99O/XnS1LRWF8zmdTrzyy5aA
p3/3zuVe4obS8PTfeqFt1f1vsvD0j+4e9PQjLfH4xcRJCPvvRfS193wXcbAP
/xLjJy3osGCmpVp7jKQD04z5vz0aRB2Sbz050nhQ1uHIDa9Zzk8lMcxHDy+D
2Oble1eIOATPmSJdZSjqUHOgTvWchLTDgv/9M7sWSmPoh/D54eFy8PBSpmuR
4vD0DADVJqT6
      "]]}, {}}, GraphicsComplexBox[CompressedData["
1:eJxFWHk01Wv/JfPMcabvdJJEbhqkEnFtRSmVSmiUMsY1NRANhkp1zVG5UlFC
ZQgRGsiQVNJgqESGBnVVoitjfue37vue96+91vM9a32ez7T3fs6UHb7rXCeJ
iYnNFhcT+3/8ZjTya/GsD2YKEjnBnxO+i/Df80Ezg+gvP80rhs24dkW38r0m
wWHT3NxdmhNmu68tMiu4KIaVhiE3u2dJ4L+/WxulP0PyqCQyb7VwH9JSCA4Z
ued1VRoR8V7G+yfLQK9QUnpBjAz+jSOOvsJn4wc5chjWO3kg8w85TP5V/2hh
n7wozqYZ8VZP9ilgstUqI+5VKdypNf46vVsRWeZVNfcJJazOjrF0LVJCfPfu
/Yt/ykCtl83t4ypjyfqxBVJLlVHcFzebrFfGv/lI45qJpsf0KhUoqlcG+n1S
QZBu7bCrjaoortIfrL+P+6vibLPCcMZ8BcxUm/49+ZkqjJ7cSr3foYq6Zq0f
o4pqqBlQsd3kr4gPszUNfHTVwFwba95iqIbd+Xkn1gSroVnpuMfwaiWEv9sR
/S5bDY2ug3LTS9Uw+Gcub+sPNTyoMQ3cUyaLIev3smErWfDcM1Qs7sCCfhml
07WX9Z96yqFXfaPr4AkWus4umN+awMLmZeXyI9dZmKTx24jCNUVI24kX9lWx
RPlsOWyw6WUPS1SfxbOcEnc5qSO/n7wQ7KGOHQ80ywxC1bFXNzHhZIEqzoU2
BavkqmN4++7xsCJ1sBR4tz/cVhf1ZeZHKlReki3Kz1Zs4ZN8NbbofltkydAk
Izbyh2I+8cHG/qYgJTEnNi69O7pjiRsb21qKHF/sY4OV07Sz7xAbx4Kr9w2l
sKF6zN/l7UU2NljFqnaVs0V1mRG79MniR2yk110KUNijjDI/vZ+2kzjovj0e
OsOQhR2rdbN+KXKwIKHaYzmLg3tTj0wX0+Rgp8s/+2brcBBRf4bYoMcRzeWo
f2rIKg8O8nN9E2dtlsUCUu7S91QOHo30/BlxmYNral/52oUcNE3/Y3vGTQ6q
rAbOT7nNwcbknDSOniq2LTCVbqvnoJ7s+5yoKo9kjSKVDx85sG0+EfWcUcch
veCzPn0c1AVZmLhoq6MrrdFOleTio25/kP4adajFrRYzn8uF3K9EuUULuAj7
NKW8azkXTv5bRx/2qOHmI57UmBMXXhtk1jqfUYd0n0pzvAcXp6aNbxS7oA6F
Fz/8fx3iYs26QSovnAtj7esvs6O5mLridPOmLHncLWPJ9iVyYenaXRiVxIXU
HmZGSAkXekWX7MZucZG9KP3+ih6uaB82HvxqGfUPFyNDSy4G6rHxSNfnOj3G
RbLN8FunCS5Sbn6NZOR4sM84O9dBkYdQlZ9HHOfzMPCrbGO4jCq0D7Q8q1rG
Q+wL1cjHK3jYa6jtWuTKQ2T05Wk5Eupw2mg/fMaLh+dmJyV5bWqIMv7ltiSQ
h5t+GRtncdTxJULu6tHjPFHf1aumzORd4KFv0PVQRxoPRssaUZDHQ5pmCu1X
wMPuxNyDchU8tG+IORb1k429Izp5dQ952GNw33RvPQ/j1ZMjb7zmieahP0nh
V9Q3HqrZgUEa/TykqJlJPxvm4V/+YsE6888NCsp8jCq7m92z5KB1qufFWm0+
TP651x7lyMHSs3LfM2fwMdN01vryD0o4MfaiOX8JH3avpE4c38/B/T3x+3yt
+AjbfWP24xV8JN07L3HMno8rfvXPPGI4eDowVPF0Gx+MwbGmyTv4ICgvjzPe
fNG8dYyUiOWE8CEe9/zXpzA+DnM0Qv46zhftW9JKrXWy0XzI0C7vTWP50IyE
fcspPn5rzmHJJvERZSdv9TyPL5pDv798bB5U8FFrfl2+q5KP2CDzjOl1fATF
sZuWi3Ox81bczqJXfFhMU9Z7q8bFxOlS565OPpq+hMr+3c0Hy2v9a+mvfBFP
EBo19t1SBP7L4+LGM0ob5Ai023cGVSsQ8LocTAboEaL9rGta6n3PkAChkmic
akTgvPmzP1evIPD3G50js8NV8WSKqfkyOwIt0sdamH42TI2X62s6EaJ5ffTc
aKLUmUDGeNZk7RQuQpgJAx8fAiX3X02Z50fA0S0tTDqUgOdYeFF1GIGKOSfc
/P4koHc5lfdbFAEFTtOe8kQCU1LD2Ob1XKwsgaVuEoGXp5w2ZT/lomole5vd
RQKP7zh2SaYTCIs53eqeTeBz+GFt9VwC5jKRbaqFBHrPdjuX3iBws/Co8fZi
QsS75fnWUfIPCXjsb3e7OIkHO5PXLlqvhfdQNrxTyeLh8YKP8nZtBOQnDDx7
2wmcYZmW53YTqH65InnJewLXh1kxml8IyLRF5hd+JeC0pM84dJDAd2W7Kt3Z
PHwqX342eZiA/tLk0hX1LFQ9K/sprUjCpapYP0qJxF/9il58Fonkh6yy1FwO
woK+BE6hSJzZyRNLo0lEyJhpKOuQuEUmniv9pore7Rmp1fNJeKfvkInwEd43
5KWDszkp0rm3mhbdZTakaA9Vpbr/VNlMYt/cqo7ALSTsDQp0g51JrJEXj37r
QuKuSavhCy8S2S1MR2Y6Dz98G1Zt8ifh7vVhSYUSF7Fh26rWHiBxxfMcX6+I
h4uWo48Dj5DIb41ue3aUxJO2Qtu2EySmSLZ1DIyxMdE1texkIomhdJlD78xZ
+P5iUUXXXyQe/46s+WdJrGxLl7bIJmFasLgnLoeE1lf5If1SYb6dUeLt31mQ
930fHvKAFOlktlpnrfQjUsSXkskljgktJArELoZGqvJREV00R+01iYxPg0ds
WklIzsjSl31LYvjT+KhFB4n4j34uYZ2kSP94i0rSH3whRbxwZmb687JfJDqX
Hxr8MiGs6/0G46MSFBo+dX0rlqSQJ1W/vEeKEul9gTtX+6o8hYPajrdeKVBw
8JyWoUUJv8secrahKTws/xVfP5kS8T+3Z5OYhiaF7Ynri62mUvDbWNNUoU1h
c7Db/B4dCpN3hI2eMqWgk5r9svh3CjdyDx/nLaZE/qOG5XVEwZrChNjaCac9
KohV+vyXhj0l4o8tbg+29jhSEP+WMDaxjUL/liEVS2cKWa1Vp841c2Ba9cik
dieF/FCip9WTwlbXK92/+1FIcO1L2JLJQtntvu6ZIf+77yA3XMLjMAXLvI6I
+Nt8POP6txefoFBKb/R+MI2HjHnrmkdjKVz6Q3W7dDyFgKi9F6ySKMxguIT7
dhbWqTmNBZynkDnJr+7gBQrPc1Mdbl6lQPG7e+JPquKRd3V4dS6FdezburV5
FFZdpVKe3qBEPGUcOP3882IKj7svjeM3LhrqGi/XV1CifTW0a8ipq6Rgttnd
traKwrG1lu9uPqCw/JYvb0CcALXLtT3iOSXyQWnXW+YENwrrcm7W0hIlArvO
zb2o107hYphiQfpaLpIeLF1DdlD4UKP3RLWTgsZI0eO29xTmPY8OnFbGxpb+
z6yfgxT+9cOqEFvr9qN0hIJtydgc8XkEasb8WMljwn4w2vUnxikk3jfLcRCj
ofQj5ZN1Cg+ngsNivkjR2HtrjcnCIWW8KhrI2a9Ai3TfvrLx7xYWDd/D4aGV
6jS6NwVYrOfTKL7hk2RK0Pg2tGNKHUMjedncAL6DkAc1eudF6dOwNH13oGGE
BXVX17W2BjTuuLQnLJhHI62qjT/DhMYCysZd0VR4vt5ae84SGqNXPz89doBA
f7L9svfWNCQa01p+P0rg25PqYs5aGp69IYH9QjwcHLbbzJ7GMTtNPuVA45+3
XQG8rTS4bWZle04TiD0nX2rpTkM8ceAu40Gjq6GmPN1TeO836/zDpPk4Kis7
luNLw8h+6YUTCnx0qah8ur6HFvmUo62zdTcH0NhTWqlRtYKDdxniNXb7hXFG
XJJ1D9BIHV8YufAojctvOl80DXGxvCRA0jmaRsolcsPD+wSKfAe29p6l8dAx
r/+uIR8FBtfORpyjEcV7enLQnwPHfNsZpanCenF1dx5No2FXIWEaeplGjN/e
q5tt2UiYXXeFm0mL9H6aT9mM5ms0tii6zU/NpvHo/RXn8VwaYo0+/l49BMLp
ELW46zTmX+PN3JhPI8PANqGwkEZ4d/muMBuhDpsU/qFyhxbxvrX8s5SUuzT0
n2iVKA0R+LRRORFVNILEOxSlq4V5xrGjp7fRiNC/KWhZw4PjoeacK500mq4P
btvZRSO+4s69aR9oVD09eO6dEDsWri7n9wr7cqTqzZkKDthbiMDNwzQ0A3vS
W+aSuGe1PylDjEHrBHVr8x4eXmQl+96XZ/A1c8aZQwoMNkUcWJahxIjeJ67v
wrw5KgxsHdmRp6yEfLw/ena/GoPkLDPlKywGEppMiBGXEekIwxt98YFi8M7l
3ZezNIO08cr9ZQIGV2ratptuIPHT2ThuqgaD1SsrP7cIcfSRZuNmLQZxRyRK
3m4lsemkM79cjxH5Ff4+42l5Bgwy7VpuzPcW6sTt8M+q8xk8y24Y0PLm4Hyq
icwLQwbuA36LDy9koKphv83AiIFudnxX2S4SYc6X0vsXMbDMSfrtogmD/e5z
pZXB4HubdfHpIBLOD9cuXGjFiN4x9R2XO9euYXD3tmC9RC8fcnNal+TZMYjV
sklZFEtCR9Hje85WBrRWba2DIwM3hlqXuZ1BzE8nK+8mHizVi3ZYuzAoMD8R
PjzBh9uWeKPfPRjcyau7XJ9GwlKlbni/N4Pt8XsXTPUR1p1+ZcX3E9bHi/Mr
6woJj/ViT633MqJ3gdi8g4rdgQymGickHd/HYM23QbOPoQwGlUrDxuYrovaS
plTgYQYWofvG9Y+pocCZl2J9jMFVHf+8r0JcnN6cFX+cwR8d8TbalSSsCyIi
6UgGJbYXJcqF+GR0x+tPMcz/dLTk5YGZcQwc3LKGRiSEPlHCSmwwgYFYzFnW
mUQGZzJblpkkMwifttnxjRB/g03KtQwGDbPWVC/PZGAWf0uw7SqD1yWFN8aE
ONtr9fvGbAZrX4eSu3IYZHkmGqrkMmiyrtzUOUXogxf99TPnNoPJnL8rre4I
+2aQncQvF9Z/8TnpQiEm3Vy2dVUFI3rXqJ+vqbG5z+DSpAunpxkL/bIlRzq4
nhHtZ/uQ1MGrTxhIRZ48vbiBQWjB6WNnGhmRf0yjjr9d/UoY71J0uM4qPqb2
ddxtfCPMv/LKPc82Bv0WlyIcOhicypeU/iJElW+GJi3dDGpvPKgLYii0zdGd
ZvGVAVfx8YUWIQ54y9Te/M6g71tG5Yp+4bw3EYYSPxh4FR9tPyXEK+UDftP/
EX7XqRVI7RT660yL72JjzH/+TxDq7IWUgGxxAQL7zVfaLqJgYdhw11dWIPKn
Pl+55/5WFIBWLZVJXEpBiee7vZEjQInVKcsdXAHOR0t+jGUEuG30Dbvi+Qh2
f1PcqiE8JyY4HlMEuH6fV6E4VQDn1tu3M3vZKDyX/ExLS4DknMw714X4kDJR
Wa8tgJz/KtX39wg46OYu8tIRIMaTsOFtF+p/bE7Waz0B/JZaBB1zo2C6qzPH
3kAAH/eXjpLeFEKC4qviFghgP0tbnzQUxln1BQ+MBBjoPJpm30SgYbX/mm1L
BMjL19JWOUjhdNy6PB8LAYYkni4ZFGLHP/uS3q4UILdjVV5cBIVqHU5A7yoB
FnqazY3mcXCw9W2v+0YBZtvPm9r/g4BFalfP4S0CiK8ZkDM8TSE3YCjospMA
raO+23S3C4DFHm9uOQsQt8Fsi5mLAIcfxwXUuQrg4v2rYKWbALMOpLQ3CNHl
/e4bJxbx8H8p+vSs
    "], {{{}, {}, 
      {GrayLevel[0.5], LineBox[CompressedData["
1:eJwl1FO4EAYYBuBzsm2dTratheVlL9u2l7G2zGVbW8tuy7Ztuy2+5+ni/f7b
7+b7g5t0rNohMCAgIKsIuaEITRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP
+CQgIYlITBKSkowgkhNMClKSitSkIS3pSE8GMpKJzGQJ6U42spODnOQiN3nI
Sz7yU4CCFKIwRfiBohSjOCX4kZKUojRlKEs5yvMTFahIJSpThapUozo1qEkt
alOHn6lLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570
ojd96Es/+jOAgfzCIAYzhKEMYzgjGMkoRvMrY/iN3xnLOMYzgYlMYjJTmMo0
pjODP5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4a1rGM9f/IXG/ibjWxi
M1vYyja2s4Od7GI3e9jLPv7hX/ZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4GL
XOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgf/4
n4984jNf+ErI+AMJRWjCEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJ
RGKSkJRkBJGcYFKQklSkJg1pSUd6MpCRTGQmS+D33/UNkpyF/A==
        "]]}}, {
      {GrayLevel[0.5], PointBox[CompressedData["
1:eJwl1FO4EAYYBuBzsm2dTratheVlL9u2l7G2zGVbW8tuy7Ztuy2+5+ni/f7b
7+b7g5t0rNohMCAgIKsIuaEITRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP
+CQgIYlITBKSkowgkhNMClKSitSkIS3pSE8GMpKJzGQJ6U42spODnOQiN3nI
Sz7yU4CCFKIwRfiBohSjOCX4kZKUojRlKEs5yvMTFahIJSpThapUozo1qEkt
alOHn6lLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570
ojd96Es/+jOAgfzCIAYzhKEMYzgjGMkoRvMrY/iN3xnLOMYzgYlMYjJTmMo0
pjODP5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4a1rGM9f/IXG/ibjWxi
M1vYyja2s4Od7GI3e9jLPv7hX/ZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4GL
XOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgf/4
n4984jNf+ErI+AMJRWjCEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJ
RGKSkJRkBJGcYFKQklSkJg1pSUd6MpCRTGQmS+D33/UNkpyF/A==
        "]]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBIAGIQ/d7y1z8nvWf23Mxrq15N/mgP4X+D84tXW9tvWsTg
wKSg9Yt79R+oPJtD7bzLe8QeMjtkn9ix7/JOboefOpNqludwOkDUCziU7g6w
sfjB57Dxk9T8qgxhhx9L2OueOAo5QPSLOZi9eXZ3Dbuog27jzTjuLxIOJcbH
bEvPikPNk3bYVLV0ru1kKQd098HcAbO/bWK2VbU8O9w9PMKHygte8kPdy+Pg
4dVza1OkiMORgAOzG3YJOXB3m1eu3ScB1SfucO70I/EVyrIOnpfEbpa2SGPY
Jxa6dffGbCaH2de4fy4z5XZYL71m+yVvfodZfo2/HnOJOKgUXrz5U1TM4fnG
moovVVIOhVfOhHO1yTjM4rKpbipVwDBv+e7rYqdkWOHhlVXyYxtjuJCD0Nqr
mR/qRBz+c7UmzZOXcljhnCTa6y7jgB4v6P5Hp2HmwviweIDxYfEAUweLB5g6
WDzA1MHiAabuw8GWv6yRsnB12NMNI9y+CS3MO+7HcsHjAyIvCI+Ps84Rkk9/
iMLjA6JeCh4f6ObLe/haiq1idZj4uLja6Tu7Qwz7olnSroIOkHgScliZNVdC
Z6u4Q9KODZaHbks4fDs7Y5qNqhw03uQxzNu4Ln+KXjSHAyydv8s98tX4m7BD
QI7W6a+SAg4tLIELL+yTdnjKtL1s0iNxB+Pet98dD/yEpwv09AFzF4zPW2Rk
fbmJF853aaj4a9gu6NBtlHpndoKAQ9Px8NhfPiIOJytdbFLUhB0O8JnvPSQk
7sB+UHmOzhtRh3+hYrLdNyQdXDmY/3zZKOFgM/drTfA8GYdm/0fRe8ulMdyD
Hj5LTi4u4y7hg9s3VfVvJMN8YQe/YoHqaUdFHMLTVvz4xSzhILhlt+RELUkH
qeXB079myDhc/pK2o7tfFsN8CJ8Tng+ea36qNAwQhucDiLwkPB+g6z/6mT84
qpAHHi6VE0SuejKKOcw5r+rJ1iXmwKe+sOHZSVkHo7RNXxYFyTmERxmtK1L6
Dy+H0POPste0a1EruOB8WLzB+L2bObX33Uek99O/XnS1LRWF8zmdTrzyy5aA
p3/3zuVe4obS8PTfeqFt1f1vsvD0j+4e9PQjLfH4xcRJCPvvRfS193wXcbAP
/xLjJy3osGCmpVp7jKQD04z5vz0aRB2Sbz050nhQ1uHIDa9Zzk8lMcxHDy+D
2Oble1eIOATPmSJdZSjqUHOgTvWchLTDgv/9M7sWSmPoh/D54eFy8PBSpmuR
4vD0DADVJqT6
    "], {{{}, {}, 
      {Hue[0.67, 0.6, 0.6], Thickness[Large], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
       LineBox[{11, 12, 13, 14, 15, 16, 17}]}, 
      {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], 
       LineBox[{18, 19, 20, 21, 22}]}, 
      {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], 
       LineBox[{23, 24, 25, 26}]}, 
      {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], 
       LineBox[{27, 28, 29, 30, 31, 32, 33, 34, 35, 36}]}, 
      {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], 
       LineBox[{37, 38, 39, 40, 41, 42}]}, 
      {Hue[0.08640786499873876, 0.6, 0.6], Thickness[Large], 
       LineBox[{43, 44, 45, 46, 47}]}, 
      {Hue[0.3224758424985268, 0.6, 0.6], Thickness[Large], 
       LineBox[{48, 49, 50, 51}]}, 
      {Hue[0.5585438199983166, 0.6, 0.6], Thickness[Large], 
       LineBox[{52, 53, 54, 55, 56, 57, 58, 59, 60}]}, 
      {Hue[0.7946117974981064, 0.6, 0.6], Thickness[Large], 
       LineBox[{61, 62, 63, 64, 65, 66}]}, 
      {Hue[0.030679774997896203`, 0.6, 0.6], Thickness[Large], 
       LineBox[{67, 68, 69, 70}]}, 
      {Hue[0.266747752497686, 0.6, 0.6], Thickness[Large], 
       LineBox[{71, 72, 73, 74}]}, 
      {Hue[0.5028157299974758, 0.6, 0.6], Thickness[Large], 
       LineBox[{75, 76, 77, 78, 79, 80, 81, 82, 83}]}, 
      {Hue[0.7388837074972656, 0.6, 0.6], Thickness[Large], 
       LineBox[{84, 85, 86, 87, 88, 89}]}, 
      {Hue[0.9749516849970554, 0.6, 0.6], Thickness[Large], 
       LineBox[{90, 91, 92, 93}]}, 
      {Hue[0.21101966249684523`, 0.6, 0.6], Thickness[Large], 
       LineBox[{94, 95, 96}]}}, {
      {Hue[0.67, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 1], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 2], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 3], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 4], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 5], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 6], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 7], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 8], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 9], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 10]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 11], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 12], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 13], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 14], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 15], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 16], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 17]}, 
      {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 18], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 19], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 20], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 21], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 22]}, 
      {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 23], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 24], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 25], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 26]}, 
      {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 27], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 28], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 29], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 30], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 31], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 32], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 33], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 34], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 35], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 36]}, 
      {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 37], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 38], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 39], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 40], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 41], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 42]}, 
      {Hue[0.08640786499873876, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 43], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 44], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 45], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 46], InsetBox[
        StyleBox["\<\"\[EmptySquare]\"\>",
         StripOnInput->False,
         FontSize->15], 47]}, 
      {Hue[0.3224758424985268, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 48], InsetBox[
        StyleBox["\<\"\[EmptyDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 49], InsetBox[
        StyleBox["\<\"\[EmptyDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 50], InsetBox[
        StyleBox["\<\"\[EmptyDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 51]}, 
      {Hue[0.5585438199983166, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 52], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 53], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 54], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 55], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 56], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 57], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 58], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 59], InsetBox[
        StyleBox["\<\"\[EmptyUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 60]}, 
      {Hue[0.7946117974981064, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 61], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 62], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 63], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 64], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 65], InsetBox[
        StyleBox["\<\"\[EmptyDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 66]}, 
      {Hue[0.030679774997896203`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 67], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 68], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 69], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 70]}, 
      {Hue[0.266747752497686, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 71], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 72], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 73], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->15], 74]}, 
      {Hue[0.5028157299974758, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 75], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 76], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 77], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 78], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 79], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 80], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 81], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 82], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->15], 83]}, 
      {Hue[0.7388837074972656, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 84], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 85], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 86], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 87], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 88], InsetBox[
        StyleBox["\<\"\[FilledUpTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 89]}, 
      {Hue[0.9749516849970554, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 90], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 91], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 92], InsetBox[
        StyleBox["\<\"\[FilledDownTriangle]\"\>",
         StripOnInput->False,
         FontSize->15], 93]}, 
      {Hue[0.21101966249684523`, 0.6, 0.6], Thickness[Large], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 94], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 95], InsetBox[
        StyleBox["\<\"\[EmptyCircle]\"\>",
         StripOnInput->False,
         FontSize->15], 96]}, {}}}]},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{0.6931471805599453, 1.0986122886681098`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  Epilog->{
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[2], 
       Log[3]}, {0.6931471805599453, 1.0986122886681098`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[4], 
       Log[3]}, {1.3862943611198906`, 1.0986122886681098`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[8], 
       Log[6]}, {2.0794415416798357`, 1.791759469228055}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[16], 
       Log[12]}, {2.772588722239781, 2.4849066497880004`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[32], 
       Log[24]}, {3.4657359027997265`, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[64], 
       Log[48]}, {4.1588830833596715`, 3.871201010907891}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[128], 
       Log[96]}, {4.852030263919617, 4.564348191467836}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"7\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[256], 
       Log[192]}, {5.545177444479562, 5.2574953720277815`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"8\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[512], 
       Log[384]}, {6.238324625039508, 5.950642552587727}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"9\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1024], 
       Log[768]}, {6.931471805599453, 6.643789733147672}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[2], 
       Log[3]}, {0.6931471805599453, 1.0986122886681098`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[6], 
       Log[12]}, {1.791759469228055, 2.4849066497880004`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[18], 
       Log[12]}, {2.8903717578961645`, 2.4849066497880004`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[54], 
       Log[36]}, {3.9889840465642745`, 3.58351893845611}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[162], 
       Log[108]}, {5.087596335232384, 4.68213122712422}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[486], 
       Log[324]}, {6.186208623900494, 5.780743515792329}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1458], 
       Log[972]}, {7.284820912568604, 6.879355804460439}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[2], 
       Log[3]}, {0.6931471805599453, 1.0986122886681098`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[10], 
       Log[30]}, {2.302585092994046, 3.4011973816621555`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[50], 
       Log[150]}, {3.912023005428146, 5.0106352940962555`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[250], 
       Log[750]}, {5.521460917862246, 6.620073206530356}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1250], 
       Log[3750]}, {7.1308988302963465`, 8.229511118964457}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[2], 
       Log[3]}, {0.6931471805599453, 1.0986122886681098`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[14], 
       Log[24]}, {2.6390573296152584`, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[98], 
       Log[168]}, {4.584967478670572, 5.123963979403259}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["2", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[686], 
       Log[1176]}, {6.530877627725885, 7.069874128458572}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[3], 
       Log[4]}, {1.0986122886681098`, 1.3862943611198906`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[6], 
       Log[12]}, {1.791759469228055, 2.4849066497880004`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[12], 
       Log[12]}, {2.4849066497880004`, 2.4849066497880004`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[24], 
       Log[12]}, {3.1780538303479458`, 2.4849066497880004`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[48], 
       Log[12]}, {3.871201010907891, 2.4849066497880004`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[96], 
       Log[24]}, {4.564348191467836, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[192], 
       Log[48]}, {5.2574953720277815`, 3.871201010907891}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"7\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[384], 
       Log[96]}, {5.950642552587727, 4.564348191467836}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"8\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[768], 
       Log[192]}, {6.643789733147672, 5.2574953720277815`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"9\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1536], 
       Log[384]}, {7.336936913707618, 5.950642552587727}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[3], 
       Log[4]}, {1.0986122886681098`, 1.3862943611198906`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[9], 
       Log[12]}, {2.1972245773362196`, 2.4849066497880004`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[27], 
       Log[36]}, {3.295836866004329, 3.58351893845611}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[81], 
       Log[108]}, {4.394449154672439, 4.68213122712422}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[243], 
       Log[324]}, {5.493061443340548, 5.780743515792329}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[729], 
       Log[972]}, {6.591673732008658, 6.879355804460439}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[3], 
       Log[4]}, {1.0986122886681098`, 1.3862943611198906`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[15], 
       Log[20]}, {2.70805020110221, 2.995732273553991}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[75], 
       Log[100]}, {4.31748811353631, 4.605170185988092}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[375], 
       Log[500]}, {5.926926025970411, 6.214608098422191}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1875], 
       Log[2500]}, {7.536363938404511, 7.824046010856292}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[3], 
       Log[4]}, {1.0986122886681098`, 1.3862943611198906`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[21], 
       Log[8]}, {3.044522437723423, 2.0794415416798357`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[147], 
       Log[56]}, {4.990432586778736, 4.02535169073515}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["3", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1029], 
       Log[392]}, {6.9363427358340495`, 5.971261839790462}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[5], 
       Log[10]}, {1.6094379124341003`, 2.302585092994046}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[10], 
       Log[30]}, {2.302585092994046, 3.4011973816621555`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[20], 
       Log[30]}, {2.995732273553991, 3.4011973816621555`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[40], 
       Log[30]}, {3.6888794541139363`, 3.4011973816621555`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[80], 
       Log[60]}, {4.382026634673881, 4.0943445622221}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[160], 
       Log[120]}, {5.075173815233827, 4.787491742782046}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[320], 
       Log[240]}, {5.768320995793772, 5.480638923341991}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"7\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[640], 
       Log[480]}, {6.461468176353717, 6.173786103901937}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"8\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1280], 
       Log[960]}, {7.154615356913663, 6.866933284461882}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[5], 
       Log[10]}, {1.6094379124341003`, 2.302585092994046}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[15], 
       Log[20]}, {2.70805020110221, 2.995732273553991}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[45], 
       Log[60]}, {3.8066624897703196`, 4.0943445622221}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[135], 
       Log[180]}, {4.90527477843843, 5.19295685089021}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[405], 
       Log[540]}, {6.003887067106539, 6.29156913955832}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1215], 
       Log[1620]}, {7.102499355774649, 7.3901814282264295`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[5], 
       Log[10]}, {1.6094379124341003`, 2.302585092994046}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[25], 
       Log[50]}, {3.2188758248682006`, 3.912023005428146}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[125], 
       Log[250]}, {4.8283137373023015`, 5.521460917862246}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[625], 
       Log[1250]}, {6.437751649736401, 7.1308988302963465`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[5], 
       Log[10]}, {1.6094379124341003`, 2.302585092994046}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[35], 
       Log[40]}, {3.5553480614894135`, 3.6888794541139363`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[245], 
       Log[280]}, {5.501258210544727, 5.634789603169249}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["5", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1715], 
       Log[1960]}, {7.44716835960004, 7.580699752224563}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[7], 
       Log[8]}, {1.9459101490553132`, 2.0794415416798357`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[14], 
       Log[24]}, {2.6390573296152584`, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[28], 
       Log[24]}, {3.332204510175204, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[56], 
       Log[24]}, {4.02535169073515, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[112], 
       Log[24]}, {4.718498871295094, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[224], 
       Log[24]}, {5.4116460518550396`, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"6\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[448], 
       Log[48]}, {6.104793232414985, 3.871201010907891}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"7\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[896], 
       Log[96]}, {6.79794041297493, 4.564348191467836}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"2\"", Medium, StripOnInput -> False], 
           StyleBox["\"8\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1792], 
       Log[192]}, {7.491087593534876, 5.2574953720277815`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[7], 
       Log[8]}, {1.9459101490553132`, 2.0794415416798357`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[21], 
       Log[8]}, {3.044522437723423, 2.0794415416798357`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[63], 
       Log[24]}, {4.143134726391533, 3.1780538303479458`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[189], 
       Log[72]}, {5.241747015059643, 4.276666119016055}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"4\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[567], 
       Log[216]}, {6.340359303727752, 5.375278407684165}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"3\"", Medium, StripOnInput -> False], 
           StyleBox["\"5\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[1701], 
       Log[648]}, {7.438971592395862, 6.473890696352274}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[7], 
       Log[8]}, {1.9459101490553132`, 2.0794415416798357`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[35], 
       Log[40]}, {3.5553480614894135`, 3.6888794541139363`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[175], 
       Log[200]}, {5.1647859739235145`, 5.298317366548036}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"5\"", Medium, StripOnInput -> False], 
           StyleBox["\"3\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[875], 
       Log[1000]}, {6.774223886357614, 6.907755278982137}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"0\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[7], 
       Log[8]}, {1.9459101490553132`, 2.0794415416798357`}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"1\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[49], 
       Log[56]}, {3.8918202981106265`, 4.02535169073515}], {0, 0}], 
    InsetBox[
     FormBox[
      TagBox[
       StyleBox[
        SubscriptBox["7", 
         TemplateBox[{
           StyleBox["\"7\"", Medium, StripOnInput -> False], 
           StyleBox["\"2\"", Medium, StripOnInput -> False]}, "Superscript", 
          SyntaxForm -> SuperscriptBox]], 20], StyleForm[#, 20]& ], 
      TraditionalForm], 
     NCache[{
       Log[343], 
       Log[392]}, {5.8377304471659395`, 5.971261839790462}], {0, 0}]},
  Frame->True,
  FrameLabel->{
    FormBox["\"N\"", TraditionalForm], 
    FormBox["\"Steps\"", TraditionalForm], 
    FormBox["\"Period of N\[Times]N Map\"", TraditionalForm]},
  FrameTicks->{{{{0, 
       FormBox["1", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {9.210340371976184, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{0., 
       FormBox["1", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {8.517193191416238, 
       FormBox["5000", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  ImageSize->{827., Automatic},
  LabelStyle->Large,
  Method->{},
  PlotRange->{{0.7, 7.7}, {1, 8.3}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{0., 
      FormBox["1", TraditionalForm]}, {1.6094379124341003`, 
      FormBox["5", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {6.214608098422191, 
      FormBox["500", TraditionalForm]}, {6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {8.517193191416238, 
      FormBox["5000", TraditionalForm]}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.551080335043404, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.684611727667927, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.802394763324311, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.006367567650246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.294049640102028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{0, 
      FormBox["1", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {9.210340371976184, 
      FormBox[
       TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.551080335043404, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.684611727667927, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.802394763324311, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.006367567650246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.294049640102028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.699514748210191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.85366542803745, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.987196820661973, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {9.104979856318357, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.528757050302178*^9, 3.5287570781877537`*^9}, {
   3.528757229534017*^9, 3.528757250946799*^9}, 3.5287573081527376`*^9, {
   3.5287573839668975`*^9, 3.5287574339523926`*^9}, 3.528757563551307*^9, 
   3.5287576402371416`*^9, 3.5287577061663246`*^9, 3.5287577403286552`*^9, {
   3.528757794774543*^9, 3.5287578470284915`*^9}, 3.528757968852351*^9, 
   3.528758082857648*^9, 3.5287581150135775`*^9, {3.5287586172602415`*^9, 
   3.5287588074572415`*^9}, 3.5287591691337414`*^9, 3.5288015707435093`*^9, 
   3.5288054506207952`*^9, 3.528805968237298*^9, {3.5288061263119063`*^9, 
   3.5288061517034836`*^9}, 3.5288063028026977`*^9, 3.5288066890682077`*^9, 
   3.5288069338412075`*^9, 3.5288070406242075`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fit", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2038.68`", ",", "1971.54`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1413.63`", ",", "1377.97`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"788.44`", ",", "768.923`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"435.42`", ",", "429.073`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"222.159`", ",", "220.607`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"73.3378`", ",", "74.5548`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"37.0503`", ",", "38.3327`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12.9794`", ",", "14.0605`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.5287984021131363`*^9, 3.528798410549636*^9}}],

Cell[BoxData[
 RowBox[{"4.631315481024416`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.9674042380203189`", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.528798411674136*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"4.631315481024416`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.9674042380203189`", " ", "x"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1000"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.528798446856636*^9, 3.528798475916636*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkms0FGgAhl1GsXPCECvJpakWQxRTIrzJZckluuFEkUYyMeQ6LmWGYYb5
Jrqt3Y2hjU5Euy25r8ISu5nYOoROpdqlbAxF6bL2x3uen8/z4zUJjw04qqSg
oOCztP/5Sv7R25311qlVpbY1XaCF+CupNq5lg85PhiI++dZrI4U6xVpVNu6s
VK3vaPJyJdLaKhQoZbPO7gGCli63r/HpIt/nvVQZspKQZnUVA7RR5LOzUm3M
rBYclN1eC0MHM48ZKR3KdbbB4bCA78PO6TdSG5yb7THvKNkKFPKpbgmuKNoy
N3JU3x202f03Co/44na36d999X5wak7xz9Dci22pT9yTC/dCerLt+mhgENjG
l9puXw/CY8+xgUX3UAxuqtZrjQ/F0V3cqfD+MORPnu9buBeGHU3zlP6YCBSU
12ziBUaA2vBUYfVTFiol06oR9SwwZjxitudFobbreHy4RxTsG/XbHZXYGLBW
92msjkat56H1v8fGYB9P5PtFJQatX2l+pgk5CCdGM9aeHOg3VIzc6IiDaRI5
SVLjsJa/GNekdxIRvFXO3I54hG5WK8qNTIBMkVYSsjwBNDOfnzpLE9G7+hLz
BDMRsY5+sWx5EuyD3XSpGUlwLc61yN6Ygi02PKsHNcno1MosX5aTimvWI4WW
H1KQzLEs937AhW+ZNDfDmYsyHe1zShrpyKz+UPc+Jg3JQ/VO9CMZ2DDKsaQ0
pKPz2ZmRm9JMBFekjdm/yoDrfbqS6tAptI/LjaP0TqEhpokzfu407q3teFhk
dRpCvcxh7uYsKJkc2La85zSs70tLPMayEL8ptd3lRBamF0tN32XzkJrmT+Nq
8MD2aqo6aMJHj1ZCZncFD62VNvkLvXz4t6zTHPXio9e054h3VDZMbhq1LXvO
X/rFNkUeJQfCcRnTkpuNqTVqi6+rc2CxQXNAf00Oruycm9LwEkC3vlhkWJeD
zSlOjsfmBHAI/DlyIkiANNnlnJSzuaj00A7rnRVg7PsXRcet8lDFYayrFOVC
J0HwsXAoD5NV96m7NuZBLc7lUFySEBzbOxoq3XkYSA8xFJiIYN0POwFbiLoP
e8vT74ogupxorqwhwp4fI40YrHyYdc3ZXagQodt7eEFdswCU94rsaa98vDNm
9V2rKcB6blDz4ef5cI7sDzf1EuOxbeRff3ALENpycf+IXIxBRWUtBUMx7Jhp
O93PEKgbTER71ovxMM3FXOUswQtT/6iZBjES76jROs8TtDIbWcXNYvzi993j
HT8QRPsJwybaxbA4XpfqWEHQzTM7IOwTw7j0Ta1tC0HWRJTL3SdiqKlFGND/
IZirn9TzpBJc9WMoP5sk6OsI0J1ZQeB+QT4hnSIolzVpF2sSZNOzbhnOEvhP
itQndAg+O5YE6H8mqFnDoAiNCeTxQ3m0lRJEZke/6WESnGksjZXpSuBUOPia
Y0dgpRC5X7JKAp0Sh0k9BwK2+C19hZEEnbeoL46B4GWl1m+q5hIYv6p6pLpr
yffv8JVuCwnm57WHbvgQ0JllBQIrCfop6Q8CdxMcvmMVTGFKkGHoLbu6b6lH
dR4dWyXYw/j1z92BBJf82r7h2UvAsDPoWwgm2H4hR32HowTKbtk90hCCR6Pe
b784SzDs/7rr28ME/wFrZC6X
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1000}, {0., 972.0355337583998}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.528798461003636*^9, 3.5287984669031363`*^9}, 
   3.528805450938859*^9}]
}, Open  ]]
},
WindowSize->{1424, 765},
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[545, 20, 3213, 80, 112, "Input"],
Cell[CellGroupData[{
Cell[3783, 104, 6085, 154, 172, "Input"],
Cell[9871, 260, 57290, 1292, 834, "Output"]
}, Closed]],
Cell[67176, 1555, 4176, 120, 128, "Input"],
Cell[CellGroupData[{
Cell[71377, 1679, 3115, 82, 112, "Input"],
Cell[74495, 1763, 54129, 1398, 504, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128661, 3166, 3421, 92, 92, "Input"],
Cell[132085, 3260, 88322, 2173, 854, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[220444, 5438, 849, 23, 52, "Input"],
Cell[221296, 5463, 171, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[221504, 5471, 341, 8, 31, "Input"],
Cell[221848, 5481, 2113, 41, 240, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)