(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 4.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 127236, 2951]*) (*NotebookOutlinePosition[ 127942, 2975]*) (* CellTagsIndexPosition[ 127898, 2971]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[ \(\(\("\"\)\(\ \)\(\[IndentingNewLine]\) \)\)], "Input"], Cell[BoxData[ \(<< NumberTheory`ContinuedFractions`\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(m = 6; \ l = 4; \ k = 3;\), "\[IndentingNewLine]", \(\(G = Array[g, 200];\)\), "\[IndentingNewLine]", \(g[0] = 0; \ g[1] = 1;\), "\[IndentingNewLine]", \(For[i = 2, i < 201, \(i++\), g[i] = m*g[i - 1] + l*g[i - 2]]\), "\[IndentingNewLine]", \(Array[g, 15]\), "\[IndentingNewLine]", \(ContinuedFraction[\((\((m + Sqrt[m^2 + 4 l])\)/2)\)^ k]\), "\[IndentingNewLine]", \(\(b = \((g[k + 1] + l*g[k - 1])\);\)\), "\[IndentingNewLine]", \(ContinuedFraction[\((\((b + Sqrt[b^2 + 4*\((l^k)\)])\)/ 2)\)]\)}], "Input"], Cell[BoxData[ \({1, 6, 40, 264, 1744, 11520, 76096, 502656, 3320320, 21932544, 144876544, 956989440, 6321442816, 41756614656, 275825459200}\)], "Output"], Cell[BoxData[ \({{288, 4, 1, 1, 71, 1, 1, 4}}\)], "Output"], Cell[BoxData[ \({{288, 4, 1, 1, 71, 1, 1, 4}}\)], "Output"] }, Open ]], Cell[BoxData[""], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(m = 180;\)\), "\[IndentingNewLine]", \(\(For[l = 1, l < 181, \(l++\), \[IndentingNewLine]Print["\", \ l, "\< \>", d = ContinuedFraction[\((m + Sqrt[m^2 + 4 l])\)/ 2]]\[IndentingNewLine]\ \ \ Print["\< \>", \ LeafCount[d] - 2, "\< digits in repeating block\>"]];\)\)}], "Input"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]{{180}}\), SequenceForm[ "l=", 1, " ", {{180}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]1\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 1, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 90}}\), SequenceForm[ "l=", 2, " ", {{180, 90}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 60}}\), SequenceForm[ "l=", 3, " ", {{180, 60}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 45}}\), SequenceForm[ "l=", 4, " ", {{180, 45}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 36}}\), SequenceForm[ "l=", 5, " ", {{180, 36}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 30}}\), SequenceForm[ "l=", 6, " ", {{180, 30}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 25, 1, 2, 1, 1, 3, 9, 1, 2, 1, 1, 1, 2, 4, 2, 19, 1, 1, 3, 1, 2, 12, 1, 1, 89, 1, 1, 12, 2, 1, 3, 1, 1, 19, 2, 4, 2, 1, 1, 1, 2, 1, 9, 3, 1, 1, 2, 1, 25}}\), SequenceForm[ "l=", 7, " ", {{180, 25, 1, 2, 1, 1, 3, 9, 1, 2, 1, 1, 1, 2, 4, 2, 19, 1, 1, 3, 1, 2, 12, 1, 1, 89, 1, 1, 12, 2, 1, 3, 1, 1, 19, 2, 4, 2, 1, 1, 1, 2, 1, 9, 3, 1, 1, 2, 1, 25}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]50\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 50, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 22, 1, 1, 44, 1, 1, 22}}\), SequenceForm[ "l=", 8, " ", {{180, 22, 1, 1, 44, 1, 1, 22}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 20}}\), SequenceForm[ "l=", 9, " ", {{180, 20}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]10\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 18}}\), SequenceForm[ "l=", 10, " ", {{180, 18}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]11\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 16, 2, 1, 2, 2, 3, 5, 1, 1, 13, 3, 4, 1, 35, 4, 1, 2, 2, 9, 17, 1, 9, 1, 1, 1, 6, 3, 1, 2, 6, 1, 5, 2, 1, 7, 1, 1, 89, 1, 1, 7, 1, 2, 5, 1, 6, 2, 1, 3, 6, 1, 1, 1, 9, 1, 17, 9, 2, 2, 1, 4, 35, 1, 4, 3, 13, 1, 1, 5, 3, 2, 2, 1, 2, 16}}\), SequenceForm[ "l=", 11, " ", {{180, 16, 2, 1, 2, 2, 3, 5, 1, 1, 13, 3, 4, 1, 35, 4, 1, 2, 2, 9, 17, 1, 9, 1, 1, 1, 6, 3, 1, 2, 6, 1, 5, 2, 1, 7, 1, 1, 89, 1, 1, 7, 1, 2, 5, 1, 6, 2, 1, 3, 6, 1, 1, 1, 9, 1, 17, 9, 2, 2, 1, 4, 35, 1, 4, 3, 13, 1, 1, 5, 3, 2, 2, 1, 2, 16}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]76\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 76, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]12\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 15}}\), SequenceForm[ "l=", 12, " ", {{180, 15}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]13\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 13, 1, 5, 1, 2, 1, 8, 1, 2, 1, 5, 1, 13}}\), SequenceForm[ "l=", 13, " ", {{180, 13, 1, 5, 1, 2, 1, 8, 1, 2, 1, 5, 1, 13}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]14\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 12, 1, 6, 3, 1, 1, 7, 3, 1, 3, 1, 1, 1, 2, 1, 25, 90, 25, 1, 2, 1, 1, 1, 3, 1, 3, 7, 1, 1, 3, 6, 1, 12}}\), SequenceForm[ "l=", 14, " ", {{180, 12, 1, 6, 3, 1, 1, 7, 3, 1, 3, 1, 1, 1, 2, 1, 25, 90, 25, 1, 2, 1, 1, 1, 3, 1, 3, 7, 1, 1, 3, 6, 1, 12}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]34\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 34, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]15\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 12}}\), SequenceForm[ "l=", 15, " ", {{180, 12}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 11, 3, 1, 10, 1, 1, 44, 1, 1, 10, 1, 3, 11}}\), SequenceForm[ "l=", 16, " ", {{180, 11, 3, 1, 10, 1, 1, 44, 1, 1, 10, 1, 3, 11}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]17\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 10, 1, 1, 2, 6, 25, 1, 1, 2, 2, 3, 1, 44, 3, 1, 1, 1, 8, 1, 5, 1, 1, 5, 1, 8, 1, 1, 1, 3, 44, 1, 3, 2, 2, 1, 1, 25, 6, 2, 1, 1, 10}}\), SequenceForm[ "l=", 17, " ", {{180, 10, 1, 1, 2, 6, 25, 1, 1, 2, 2, 3, 1, 44, 3, 1, 1, 1, 8, 1, 5, 1, 1, 5, 1, 8, 1, 1, 1, 3, 44, 1, 3, 2, 2, 1, 1, 25, 6, 2, 1, 1, 10}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]43\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 43, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]18\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 10}}\), SequenceForm[ "l=", 18, " ", {{180, 10}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]19\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 9, 2, 11, 1, 1, 5, 1, 2, 3, 1, 5, 4, 4, 1, 1, 89, 1, 1, 4, 4, 5, 1, 3, 2, 1, 5, 1, 1, 11, 2, 9}}\), SequenceForm[ "l=", 19, " ", {{180, 9, 2, 11, 1, 1, 5, 1, 2, 3, 1, 5, 4, 4, 1, 1, 89, 1, 1, 4, 4, 5, 1, 3, 2, 1, 5, 1, 1, 11, 2, 9}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]32\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 32, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]20\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 9}}\), SequenceForm[ "l=", 20, " ", {{180, 9}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]21\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 8, 1, 1, 2, 1, 2, 1, 25, 60, 25, 1, 2, 1, 2, 1, 1, 8}}\), SequenceForm[ "l=", 21, " ", {{180, 8, 1, 1, 2, 1, 2, 1, 25, 60, 25, 1, 2, 1, 2, 1, 1, 8}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]18\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 18, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]22\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 8, 5, 2, 1, 29, 2, 1, 4, 1, 3, 1, 3, 1, 19, 4, 4, 6, 1, 2, 3, 3, 25, 2, 4, 7, 1, 1, 1, 1, 2, 3, 1, 9, 1, 4, 1, 9, 1, 3, 2, 1, 1, 1, 1, 7, 4, 2, 25, 3, 3, 2, 1, 6, 4, 4, 19, 1, 3, 1, 3, 1, 4, 1, 2, 29, 1, 2, 5, 8}}\), SequenceForm[ "l=", 22, " ", {{180, 8, 5, 2, 1, 29, 2, 1, 4, 1, 3, 1, 3, 1, 19, 4, 4, 6, 1, 2, 3, 3, 25, 2, 4, 7, 1, 1, 1, 1, 2, 3, 1, 9, 1, 4, 1, 9, 1, 3, 2, 1, 1, 1, 1, 7, 4, 2, 25, 3, 3, 2, 1, 6, 4, 4, 19, 1, 3, 1, 3, 1, 4, 1, 2, 29, 1, 2, 5, 8}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]70\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 70, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]23\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 7, 1, 4, 1, 15, 1, 1, 3, 1, 7, 2, 2, 2, 3, 1, 1, 89, 1, 1, 3, 2, 2, 2, 7, 1, 3, 1, 1, 15, 1, 4, 1, 7}}\), SequenceForm[ "l=", 23, " ", {{180, 7, 1, 4, 1, 15, 1, 1, 3, 1, 7, 2, 2, 2, 3, 1, 1, 89, 1, 1, 3, 2, 2, 2, 7, 1, 3, 1, 1, 15, 1, 4, 1, 7}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]34\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 34, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]24\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 7, 1, 1, 44, 1, 1, 7}}\), SequenceForm[ "l=", 24, " ", {{180, 7, 1, 1, 44, 1, 1, 7}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 7, 4, 1, 6, 2, 2, 6, 1, 4, 7}}\), SequenceForm[ "l=", 25, " ", {{180, 7, 4, 1, 6, 2, 2, 6, 1, 4, 7}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]11\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 11, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]26\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 6, 1, 13, 90, 13, 1, 6}}\), SequenceForm[ "l=", 26, " ", {{180, 6, 1, 13, 90, 13, 1, 6}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]27\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 6, 1, 2, 19, 1, 2, 6, 2, 1, 19, 2, 1, 6}}\), SequenceForm[ "l=", 27, " ", {{180, 6, 1, 2, 19, 1, 2, 6, 2, 1, 19, 2, 1, 6}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]28\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 6, 2, 3, 3, 2, 1, 1, 3, 1, 4, 4, 2, 2, 2, 2, 2, 4, 4, 1, 3, 1, 1, 2, 3, 3, 2, 6}}\), SequenceForm[ "l=", 28, " ", {{180, 6, 2, 3, 3, 2, 1, 1, 3, 1, 4, 4, 2, 2, 2, 2, 2, 4, 4, 1, 3, 1, 1, 2, 3, 3, 2, 6}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]28\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 28, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]29\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 6, 4, 1, 2, 2, 2, 2, 1, 1, 5, 4, 3, 25, 2, 4, 1, 1, 1, 21, 1, 8, 1, 1, 6, 1, 2, 5, 3, 2, 35, 1, 1, 1, 2, 1, 1, 3, 1, 13, 11, 5, 16, 5, 11, 13, 1, 3, 1, 1, 2, 1, 1, 1, 35, 2, 3, 5, 2, 1, 6, 1, 1, 8, 1, 21, 1, 1, 1, 4, 2, 25, 3, 4, 5, 1, 1, 2, 2, 2, 2, 1, 4, 6}}\), SequenceForm[ "l=", 29, " ", {{180, 6, 4, 1, 2, 2, 2, 2, 1, 1, 5, 4, 3, 25, 2, 4, 1, 1, 1, 21, 1, 8, 1, 1, 6, 1, 2, 5, 3, 2, 35, 1, 1, 1, 2, 1, 1, 3, 1, 13, 11, 5, 16, 5, 11, 13, 1, 3, 1, 1, 2, 1, 1, 1, 35, 2, 3, 5, 2, 1, 6, 1, 1, 8, 1, 21, 1, 1, 1, 4, 2, 25, 3, 4, 5, 1, 1, 2, 2, 2, 2, 1, 4, 6}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]84\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 84, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]30\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 6}}\), SequenceForm[ "l=", 30, " ", {{180, 6}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]31\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 5, 1, 4, 3, 7, 1, 1, 8, 17, 1, 11, 12, 1, 3, 1, 19, 4, 6, 1, 29, 5, 8, 2, 1, 1, 3, 11, 1, 2, 1, 11, 3, 1, 1, 2, 8, 5, 29, 1, 6, 4, 19, 1, 3, 1, 12, 11, 1, 17, 8, 1, 1, 7, 3, 4, 1, 5}}\), SequenceForm[ "l=", 31, " ", {{180, 5, 1, 4, 3, 7, 1, 1, 8, 17, 1, 11, 12, 1, 3, 1, 19, 4, 6, 1, 29, 5, 8, 2, 1, 1, 3, 11, 1, 2, 1, 11, 3, 1, 1, 2, 8, 5, 29, 1, 6, 4, 19, 1, 3, 1, 12, 11, 1, 17, 8, 1, 1, 7, 3, 4, 1, 5}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]58\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 58, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]32\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 5, 1, 1, 1, 2, 2, 2, 3, 1, 2, 5, 2, 5, 2, 1, 3, 2, 2, 2, 1, 1, 1, 5}}\), SequenceForm[ "l=", 32, " ", {{180, 5, 1, 1, 1, 2, 2, 2, 3, 1, 2, 5, 2, 5, 2, 1, 3, 2, 2, 2, 1, 1, 1, 5}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]24\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 24, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]33\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 5, 2, 5, 1, 3, 3, 1, 14, 3, 1, 3, 2, 1, 8, 1, 3, 1, 44, 3, 2, 1, 1, 1, 2, 16, 60, 16, 2, 1, 1, 1, 2, 3, 44, 1, 3, 1, 8, 1, 2, 3, 1, 3, 14, 1, 3, 3, 1, 5, 2, 5}}\), SequenceForm[ "l=", 33, " ", {{180, 5, 2, 5, 1, 3, 3, 1, 14, 3, 1, 3, 2, 1, 8, 1, 3, 1, 44, 3, 2, 1, 1, 1, 2, 16, 60, 16, 2, 1, 1, 1, 2, 3, 44, 1, 3, 1, 8, 1, 2, 3, 1, 3, 14, 1, 3, 3, 1, 5, 2, 5}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]52\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 52, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]34\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 5, 3, 2, 1, 29, 2, 1, 2, 1, 6, 2, 19, 1, 1, 2, 1, 3, 3, 2, 2, 2, 1, 13, 5, 1, 15, 1, 1, 3, 2, 35, 1, 1, 1, 3, 5, 1, 2, 1, 5, 3, 1, 1, 1, 35, 2, 3, 1, 1, 15, 1, 5, 13, 1, 2, 2, 2, 3, 3, 1, 2, 1, 1, 19, 2, 6, 1, 2, 1, 2, 29, 1, 2, 3, 5}}\), SequenceForm[ "l=", 34, " ", {{180, 5, 3, 2, 1, 29, 2, 1, 2, 1, 6, 2, 19, 1, 1, 2, 1, 3, 3, 2, 2, 2, 1, 13, 5, 1, 15, 1, 1, 3, 2, 35, 1, 1, 1, 3, 5, 1, 2, 1, 5, 3, 1, 1, 1, 35, 2, 3, 1, 1, 15, 1, 5, 13, 1, 2, 2, 2, 3, 3, 1, 2, 1, 1, 19, 2, 6, 1, 2, 1, 2, 29, 1, 2, 3, 5}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]76\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 76, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]35\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 5, 6, 1, 2, 1, 4, 1, 1, 3, 2, 1, 2, 12, 1, 1, 17, 1, 1, 12, 2, 1, 2, 3, 1, 1, 4, 1, 2, 1, 6, 5}}\), SequenceForm[ "l=", 35, " ", {{180, 5, 6, 1, 2, 1, 4, 1, 1, 3, 2, 1, 2, 12, 1, 1, 17, 1, 1, 12, 2, 1, 2, 3, 1, 1, 4, 1, 2, 1, 6, 5}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]32\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 32, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 5}}\), SequenceForm[ "l=", 36, " ", {{180, 5}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]37\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4, 1, 6, 1, 2, 1, 1, 7, 3, 1, 2, 2, 2, 5, 4, 2, 3, 1, 2, 1, 59, 2, 2, 22, 6, 1, 1, 1, 3, 9, 4, 1, 1, 13, 3, 10, 1, 19, 7, 2, 7, 19, 1, 10, 3, 13, 1, 1, 4, 9, 3, 1, 1, 1, 6, 22, 2, 2, 59, 1, 2, 1, 3, 2, 4, 5, 2, 2, 2, 1, 3, 7, 1, 1, 2, 1, 6, 1, 4}}\), SequenceForm[ "l=", 37, " ", {{180, 4, 1, 6, 1, 2, 1, 1, 7, 3, 1, 2, 2, 2, 5, 4, 2, 3, 1, 2, 1, 59, 2, 2, 22, 6, 1, 1, 1, 3, 9, 4, 1, 1, 13, 3, 10, 1, 19, 7, 2, 7, 19, 1, 10, 3, 13, 1, 1, 4, 9, 3, 1, 1, 1, 6, 22, 2, 2, 59, 1, 2, 1, 3, 2, 4, 5, 2, 2, 2, 1, 3, 7, 1, 1, 2, 1, 6, 1, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]80\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 80, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]38\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4, 1, 2, 1, 7, 2, 6, 2, 7, 1, 2, 1, 4}}\), SequenceForm[ "l=", 38, " ", {{180, 4, 1, 2, 1, 7, 2, 6, 2, 7, 1, 2, 1, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]39\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4, 1, 1, 1, 1, 1, 3, 4, 1, 1, 1, 1, 89, 1, 1, 1, 1, 4, 3, 1, 1, 1, 1, 1, 4}}\), SequenceForm[ "l=", 39, " ", {{180, 4, 1, 1, 1, 1, 1, 3, 4, 1, 1, 1, 1, 89, 1, 1, 1, 1, 4, 3, 1, 1, 1, 1, 1, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]26\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 26, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]40\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4, 1, 1, 44, 1, 1, 4}}\), SequenceForm[ "l=", 40, " ", {{180, 4, 1, 1, 44, 1, 1, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]41\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4, 2, 1, 1, 8, 1, 9, 1, 2, 1, 1, 3, 1, 1, 8, 2, 5, 1, 35, 4, 13, 1, 1, 1, 2, 1, 1, 1, 1, 1, 5, 4, 1, 44, 3, 3, 1, 6, 2, 4, 2, 2, 3, 16, 8, 1, 24, 1, 8, 16, 3, 2, 2, 4, 2, 6, 1, 3, 3, 44, 1, 4, 5, 1, 1, 1, 1, 1, 2, 1, 1, 1, 13, 4, 35, 1, 5, 2, 8, 1, 1, 3, 1, 1, 2, 1, 9, 1, 8, 1, 1, 2, 4}}\), SequenceForm[ "l=", 41, " ", {{180, 4, 2, 1, 1, 8, 1, 9, 1, 2, 1, 1, 3, 1, 1, 8, 2, 5, 1, 35, 4, 13, 1, 1, 1, 2, 1, 1, 1, 1, 1, 5, 4, 1, 44, 3, 3, 1, 6, 2, 4, 2, 2, 3, 16, 8, 1, 24, 1, 8, 16, 3, 2, 2, 4, 2, 6, 1, 3, 3, 44, 1, 4, 5, 1, 1, 1, 1, 1, 2, 1, 1, 1, 13, 4, 35, 1, 5, 2, 8, 1, 1, 3, 1, 1, 2, 1, 9, 1, 8, 1, 1, 2, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]94\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 94, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]42\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4, 3, 2, 3, 4}}\), SequenceForm[ "l=", 42, " ", {{180, 4, 3, 2, 3, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]6\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 6, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]43\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4, 5, 4, 1, 1, 3, 1, 2, 1, 9, 3, 2, 3, 2, 2, 3, 1, 7, 1, 4, 1, 1, 2, 1, 1, 19, 2, 8, 9, 2, 1, 1, 1, 1, 1, 89, 1, 1, 1, 1, 1, 2, 9, 8, 2, 19, 1, 1, 2, 1, 1, 4, 1, 7, 1, 3, 2, 2, 3, 2, 3, 9, 1, 2, 1, 3, 1, 1, 4, 5, 4}}\), SequenceForm[ "l=", 43, " ", {{180, 4, 5, 4, 1, 1, 3, 1, 2, 1, 9, 3, 2, 3, 2, 2, 3, 1, 7, 1, 4, 1, 1, 2, 1, 1, 19, 2, 8, 9, 2, 1, 1, 1, 1, 1, 89, 1, 1, 1, 1, 1, 2, 9, 8, 2, 19, 1, 1, 2, 1, 1, 4, 1, 7, 1, 3, 2, 2, 3, 2, 3, 9, 1, 2, 1, 3, 1, 1, 4, 5, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]72\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 72, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]44\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4, 10, 2, 1, 2, 1, 1, 1, 1, 8, 2, 2, 2, 1, 7, 7, 11, 7, 7, 1, 2, 2, 2, 8, 1, 1, 1, 1, 2, 1, 2, 10, 4}}\), SequenceForm[ "l=", 44, " ", {{180, 4, 10, 2, 1, 2, 1, 1, 1, 1, 8, 2, 2, 2, 1, 7, 7, 11, 7, 7, 1, 2, 2, 2, 8, 1, 1, 1, 1, 2, 1, 2, 10, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]34\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 34, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]45\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 4}}\), SequenceForm[ "l=", 45, " ", {{180, 4}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]46\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 1, 11, 3, 1, 1, 9, 2, 5, 1, 1, 5, 2, 9, 1, 1, 3, 11, 1, 3}}\), SequenceForm[ "l=", 46, " ", {{180, 3, 1, 11, 3, 1, 1, 9, 2, 5, 1, 1, 5, 2, 9, 1, 1, 3, 11, 1, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]21\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 21, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]47\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 1, 5, 13, 1, 2, 2, 10, 5, 4, 1, 2, 6, 1, 1, 2, 2, 1, 1, 1, 89, 1, 1, 1, 2, 2, 1, 1, 6, 2, 1, 4, 5, 10, 2, 2, 1, 13, 5, 1, 3}}\), SequenceForm[ "l=", 47, " ", {{180, 3, 1, 5, 13, 1, 2, 2, 10, 5, 4, 1, 2, 6, 1, 1, 2, 2, 1, 1, 1, 89, 1, 1, 1, 2, 2, 1, 1, 6, 2, 1, 4, 5, 10, 2, 2, 1, 13, 5, 1, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]42\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 42, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]48\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 1, 3, 11, 60, 11, 3, 1, 3}}\), SequenceForm[ "l=", 48, " ", {{180, 3, 1, 3, 11, 60, 11, 3, 1, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]10\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 10, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 1, 2, 8, 1, 1, 1, 35, 2, 4, 1, 44, 3, 6, 1, 8, 6, 8, 1, 6, 3, 44, 1, 4, 2, 35, 1, 1, 1, 8, 2, 1, 3}}\), SequenceForm[ "l=", 49, " ", {{180, 3, 1, 2, 8, 1, 1, 1, 35, 2, 4, 1, 44, 3, 6, 1, 8, 6, 8, 1, 6, 3, 44, 1, 4, 2, 35, 1, 1, 1, 8, 2, 1, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]34\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 34, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]50\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 1, 1, 1, 1, 6, 1, 1, 1, 1, 3}}\), SequenceForm[ "l=", 50, " ", {{180, 3, 1, 1, 1, 1, 6, 1, 1, 1, 1, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]12\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 12, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]51\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 1, 1, 6, 1, 1, 1, 6, 1, 1, 3}}\), SequenceForm[ "l=", 51, " ", {{180, 3, 1, 1, 6, 1, 1, 1, 6, 1, 1, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]12\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 12, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]52\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 2, 7, 10, 2, 19, 1, 1, 2, 2, 1, 4, 1, 3, 3, 1, 1, 2, 1, 1, 1, 1, 25, 5, 2, 3, 4, 2, 1, 14, 2, 1, 3, 1, 21, 1, 3, 1, 2, 14, 1, 2, 4, 3, 2, 5, 25, 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 4, 1, 2, 2, 1, 1, 19, 2, 10, 7, 2, 3}}\), SequenceForm[ "l=", 52, " ", {{180, 3, 2, 7, 10, 2, 19, 1, 1, 2, 2, 1, 4, 1, 3, 3, 1, 1, 2, 1, 1, 1, 1, 25, 5, 2, 3, 4, 2, 1, 14, 2, 1, 3, 1, 21, 1, 3, 1, 2, 14, 1, 2, 4, 3, 2, 5, 25, 1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 4, 1, 2, 2, 1, 1, 19, 2, 10, 7, 2, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]70\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 70, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]53\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 2, 2, 22, 6, 5, 2, 10, 1, 4, 1, 10, 2, 5, 6, 22, 2, 2, 3}}\), SequenceForm[ "l=", 53, " ", {{180, 3, 2, 2, 22, 6, 5, 2, 10, 1, 4, 1, 10, 2, 5, 6, 22, 2, 2, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]20\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 20, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]54\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 2, 1, 19, 2, 1, 2, 1, 2, 19, 1, 2, 3}}\), SequenceForm[ "l=", 54, " ", {{180, 3, 2, 1, 19, 2, 1, 2, 1, 2, 19, 1, 2, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]55\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 3, 1, 1, 2, 5, 1, 5, 5, 1, 1, 1, 8, 1, 6, 19, 1, 11, 1, 19, 6, 1, 8, 1, 1, 1, 5, 5, 1, 5, 2, 1, 1, 3, 3}}\), SequenceForm[ "l=", 55, " ", {{180, 3, 3, 1, 1, 2, 5, 1, 5, 5, 1, 1, 1, 8, 1, 6, 19, 1, 11, 1, 19, 6, 1, 8, 1, 1, 1, 5, 5, 1, 5, 2, 1, 1, 3, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]36\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 36, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]56\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 4, 1, 1, 4, 1, 1, 1, 1, 3, 1, 9, 1, 5, 3, 8, 1, 2, 1, 1, 15, 1, 5, 1, 1, 22, 25, 1, 3, 6, 1, 35, 3, 1, 4, 2, 2, 4, 9, 3, 1, 1, 2, 1, 2, 1, 1, 44, 1, 1, 2, 1, 2, 1, 1, 3, 9, 4, 2, 2, 4, 1, 3, 35, 1, 6, 3, 1, 25, 22, 1, 1, 5, 1, 15, 1, 1, 2, 1, 8, 3, 5, 1, 9, 1, 3, 1, 1, 1, 1, 4, 1, 1, 4, 3}}\), SequenceForm[ "l=", 56, " ", {{180, 3, 4, 1, 1, 4, 1, 1, 1, 1, 3, 1, 9, 1, 5, 3, 8, 1, 2, 1, 1, 15, 1, 5, 1, 1, 22, 25, 1, 3, 6, 1, 35, 3, 1, 4, 2, 2, 4, 9, 3, 1, 1, 2, 1, 2, 1, 1, 44, 1, 1, 2, 1, 2, 1, 1, 3, 9, 4, 2, 2, 4, 1, 3, 35, 1, 6, 3, 1, 25, 22, 1, 1, 5, 1, 15, 1, 1, 2, 1, 8, 3, 5, 1, 9, 1, 3, 1, 1, 1, 1, 4, 1, 1, 4, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]96\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 96, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]57\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 6, 8, 2, 3, 1, 14, 3, 1, 1, 1, 1, 1, 1, 1, 5, 1, 4, 1, 44, 3, 25, 2, 9, 60, 9, 2, 25, 3, 44, 1, 4, 1, 5, 1, 1, 1, 1, 1, 1, 1, 3, 14, 1, 3, 2, 8, 6, 3}}\), SequenceForm[ "l=", 57, " ", {{180, 3, 6, 8, 2, 3, 1, 14, 3, 1, 1, 1, 1, 1, 1, 1, 5, 1, 4, 1, 44, 3, 25, 2, 9, 60, 9, 2, 25, 3, 44, 1, 4, 1, 5, 1, 1, 1, 1, 1, 1, 1, 3, 14, 1, 3, 2, 8, 6, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]50\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 50, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]58\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 9, 5, 1, 2, 1, 1, 2, 1, 29, 2, 1, 1, 2, 2, 6, 3, 1, 2, 4, 1, 19, 3, 1, 7, 9, 1, 9, 1, 2, 1, 1, 1, 2, 1, 2, 2, 3, 1, 59, 2, 3, 1, 2, 2, 1, 1, 4, 6, 90, 6, 4, 1, 1, 2, 2, 1, 3, 2, 59, 1, 3, 2, 2, 1, 2, 1, 1, 1, 2, 1, 9, 1, 9, 7, 1, 3, 19, 1, 4, 2, 1, 3, 6, 2, 2, 1, 1, 2, 29, 1, 2, 1, 1, 2, 1, 5, 9, 3}}\), SequenceForm[ "l=", 58, " ", {{180, 3, 9, 5, 1, 2, 1, 1, 2, 1, 29, 2, 1, 1, 2, 2, 6, 3, 1, 2, 4, 1, 19, 3, 1, 7, 9, 1, 9, 1, 2, 1, 1, 1, 2, 1, 2, 2, 3, 1, 59, 2, 3, 1, 2, 2, 1, 1, 4, 6, 90, 6, 4, 1, 1, 2, 2, 1, 3, 2, 59, 1, 3, 2, 2, 1, 2, 1, 1, 1, 2, 1, 9, 1, 9, 7, 1, 3, 19, 1, 4, 2, 1, 3, 6, 2, 2, 1, 1, 2, 29, 1, 2, 1, 1, 2, 1, 5, 9, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]100\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 100, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]59\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3, 17, 1, 2, 1, 2, 1, 6, 2, 35, 1, 1, 1, 89, 1, 1, 1, 35, 2, 6, 1, 2, 1, 2, 1, 17, 3}}\), SequenceForm[ "l=", 59, " ", {{180, 3, 17, 1, 2, 1, 2, 1, 6, 2, 35, 1, 1, 1, 89, 1, 1, 1, 35, 2, 6, 1, 2, 1, 2, 1, 17, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]28\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 28, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]60\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 3}}\), SequenceForm[ "l=", 60, " ", {{180, 3}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]61\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 21, 1, 11, 11, 4, 1, 3, 1, 4, 1, 5, 1, 6, 2, 1, 2, 10, 3, 1, 11, 3, 2, 5, 2, 1, 1, 19, 2, 13, 2, 2, 3, 2, 1, 3, 3, 7, 4, 2, 59, 1, 3, 1, 1, 6, 1, 35, 3, 1, 2, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, 2, 1, 3, 35, 1, 6, 1, 1, 3, 1, 59, 2, 4, 7, 3, 3, 1, 2, 3, 2, 2, 13, 2, 19, 1, 1, 2, 5, 2, 3, 11, 1, 3, 10, 2, 1, 2, 6, 1, 5, 1, 4, 1, 3, 1, 4, 11, 11, 1, 21, 1, 2}}\), SequenceForm[ "l=", 61, " ", {{180, 2, 1, 21, 1, 11, 11, 4, 1, 3, 1, 4, 1, 5, 1, 6, 2, 1, 2, 10, 3, 1, 11, 3, 2, 5, 2, 1, 1, 19, 2, 13, 2, 2, 3, 2, 1, 3, 3, 7, 4, 2, 59, 1, 3, 1, 1, 6, 1, 35, 3, 1, 2, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, 2, 1, 3, 35, 1, 6, 1, 1, 3, 1, 59, 2, 4, 7, 3, 3, 1, 2, 3, 2, 2, 13, 2, 19, 1, 1, 2, 5, 2, 3, 11, 1, 3, 10, 2, 1, 2, 6, 1, 5, 1, 4, 1, 3, 1, 4, 11, 11, 1, 21, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]123\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 123, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]62\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 9, 1, 24, 1, 9, 1, 2}}\), SequenceForm[ "l=", 62, " ", {{180, 2, 1, 9, 1, 24, 1, 9, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]10\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 10, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]63\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 6, 3, 1, 1, 6, 8, 16, 3, 3, 1, 1, 13, 2, 1, 89, 1, 2, 13, 1, 1, 3, 3, 16, 8, 6, 1, 1, 3, 6, 1, 2}}\), SequenceForm[ "l=", 63, " ", {{180, 2, 1, 6, 3, 1, 1, 6, 8, 16, 3, 3, 1, 1, 13, 2, 1, 89, 1, 2, 13, 1, 1, 3, 3, 16, 8, 6, 1, 1, 3, 6, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]34\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 34, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 4, 2, 59, 1, 3, 1, 1, 1, 6, 19, 1, 12, 1, 19, 6, 1, 1, 1, 3, 1, 59, 2, 4, 1, 2}}\), SequenceForm[ "l=", 64, " ", {{180, 2, 1, 4, 2, 59, 1, 3, 1, 1, 1, 6, 19, 1, 12, 1, 19, 6, 1, 1, 1, 3, 1, 59, 2, 4, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]28\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 28, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]65\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 3, 2, 3, 1, 2}}\), SequenceForm[ "l=", 65, " ", {{180, 2, 1, 3, 2, 3, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]66\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 2, 1, 2, 1, 7, 1, 6, 1, 35, 3, 1, 1, 1, 17, 2, 3, 2, 3, 1, 6, 2, 5, 90, 5, 2, 6, 1, 3, 2, 3, 2, 17, 1, 1, 1, 3, 35, 1, 6, 1, 7, 1, 2, 1, 2, 1, 2}}\), SequenceForm[ "l=", 66, " ", {{180, 2, 1, 2, 1, 2, 1, 7, 1, 6, 1, 35, 3, 1, 1, 1, 17, 2, 3, 2, 3, 1, 6, 2, 5, 90, 5, 2, 6, 1, 3, 2, 3, 2, 17, 1, 1, 1, 3, 35, 1, 6, 1, 7, 1, 2, 1, 2, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]50\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 50, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]67\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 2, 4, 29, 1, 8, 1, 1, 4, 1, 19, 3, 1, 3, 1, 7, 2, 2, 1, 7, 6, 1, 4, 1, 1, 1, 1, 1, 1, 2, 2, 4, 4, 1, 1, 1, 13, 3, 1, 5, 1, 15, 1, 1, 2, 1, 1, 1, 9, 2, 2, 3, 1, 3, 1, 59, 2, 5, 2, 1, 89, 1, 2, 5, 2, 59, 1, 3, 1, 3, 2, 2, 9, 1, 1, 1, 2, 1, 1, 15, 1, 5, 1, 3, 13, 1, 1, 1, 4, 4, 2, 2, 1, 1, 1, 1, 1, 1, 4, 1, 6, 7, 1, 2, 2, 7, 1, 3, 1, 3, 19, 1, 4, 1, 1, 8, 1, 29, 4, 2, 1, 2}}\), SequenceForm[ "l=", 67, " ", {{180, 2, 1, 2, 4, 29, 1, 8, 1, 1, 4, 1, 19, 3, 1, 3, 1, 7, 2, 2, 1, 7, 6, 1, 4, 1, 1, 1, 1, 1, 1, 2, 2, 4, 4, 1, 1, 1, 13, 3, 1, 5, 1, 15, 1, 1, 2, 1, 1, 1, 9, 2, 2, 3, 1, 3, 1, 59, 2, 5, 2, 1, 89, 1, 2, 5, 2, 59, 1, 3, 1, 3, 2, 2, 9, 1, 1, 1, 2, 1, 1, 15, 1, 5, 1, 3, 13, 1, 1, 1, 4, 4, 2, 2, 1, 1, 1, 1, 1, 1, 4, 1, 6, 7, 1, 2, 2, 7, 1, 3, 1, 3, 19, 1, 4, 1, 1, 8, 1, 29, 4, 2, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]124\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 124, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]68\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 1, 1, 7, 4, 3, 1, 1, 1, 1, 10, 45, 10, 1, 1, 1, 1, 3, 4, 7, 1, 1, 1, 2}}\), SequenceForm[ "l=", 68, " ", {{180, 2, 1, 1, 1, 7, 4, 3, 1, 1, 1, 1, 10, 45, 10, 1, 1, 1, 1, 3, 4, 7, 1, 1, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]26\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 26, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]69\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 1, 1, 1, 2, 4, 1, 3, 1, 1, 2, 7, 7, 10, 2, 35, 1, 2, 10, 1, 24, 1, 10, 2, 1, 35, 2, 10, 7, 7, 2, 1, 1, 3, 1, 4, 2, 1, 1, 1, 1, 2}}\), SequenceForm[ "l=", 69, " ", {{180, 2, 1, 1, 1, 1, 2, 4, 1, 3, 1, 1, 2, 7, 7, 10, 2, 35, 1, 2, 10, 1, 24, 1, 10, 2, 1, 35, 2, 10, 7, 7, 2, 1, 1, 3, 1, 4, 2, 1, 1, 1, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]44\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 44, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]70\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 1, 2, 1, 2, 1, 29, 2, 1, 1, 19, 2, 19, 1, 1, 2, 29, 1, 2, 1, 2, 1, 1, 2}}\), SequenceForm[ "l=", 70, " ", {{180, 2, 1, 1, 2, 1, 2, 1, 29, 2, 1, 1, 19, 2, 19, 1, 1, 2, 29, 1, 2, 1, 2, 1, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]26\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 26, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]71\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 1, 5, 1, 1, 1, 2, 1, 3, 4, 1, 8, 1, 2, 2, 1, 1, 3, 35, 1, 7, 4, 12, 1, 2, 25, 2, 15, 1, 17, 7, 5, 1, 2, 4, 2, 2, 7, 2, 4, 1, 2, 3, 2, 1, 89, 1, 2, 3, 2, 1, 4, 2, 7, 2, 2, 4, 2, 1, 5, 7, 17, 1, 15, 2, 25, 2, 1, 12, 4, 7, 1, 35, 3, 1, 1, 2, 2, 1, 8, 1, 4, 3, 1, 2, 1, 1, 1, 5, 1, 1, 2}}\), SequenceForm[ "l=", 71, " ", {{180, 2, 1, 1, 5, 1, 1, 1, 2, 1, 3, 4, 1, 8, 1, 2, 2, 1, 1, 3, 35, 1, 7, 4, 12, 1, 2, 25, 2, 15, 1, 17, 7, 5, 1, 2, 4, 2, 2, 7, 2, 4, 1, 2, 3, 2, 1, 89, 1, 2, 3, 2, 1, 4, 2, 7, 2, 2, 4, 2, 1, 5, 7, 17, 1, 15, 2, 25, 2, 1, 12, 4, 7, 1, 35, 3, 1, 1, 2, 2, 1, 8, 1, 4, 3, 1, 2, 1, 1, 1, 5, 1, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]94\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 94, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]72\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 1, 1, 44, 1, 1, 2}}\), SequenceForm[ "l=", 72, " ", {{180, 2, 1, 1, 44, 1, 1, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]73\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 2, 8, 4, 1, 3, 3, 3, 1, 1, 5, 1, 2, 44, 1, 5, 1, 2, 1, 1, 4, 16, 4, 1, 1, 2, 1, 5, 1, 44, 2, 1, 5, 1, 1, 3, 3, 3, 1, 4, 8, 2, 2}}\), SequenceForm[ "l=", 73, " ", {{180, 2, 2, 8, 4, 1, 3, 3, 3, 1, 1, 5, 1, 2, 44, 1, 5, 1, 2, 1, 1, 4, 16, 4, 1, 1, 2, 1, 5, 1, 44, 2, 1, 5, 1, 1, 3, 3, 3, 1, 4, 8, 2, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]44\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 44, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]74\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 2, 3, 1, 1, 7, 1, 1, 1, 8, 1, 6, 2, 1, 35, 2, 13, 2, 2, 2, 13, 2, 35, 1, 2, 6, 1, 8, 1, 1, 1, 7, 1, 1, 3, 2, 2}}\), SequenceForm[ "l=", 74, " ", {{180, 2, 2, 3, 1, 1, 7, 1, 1, 1, 8, 1, 6, 2, 1, 35, 2, 13, 2, 2, 2, 13, 2, 35, 1, 2, 6, 1, 8, 1, 1, 1, 7, 1, 1, 3, 2, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]38\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 38, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]75\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 2, 2, 6, 1, 4, 2, 4, 1, 6, 2, 2, 2}}\), SequenceForm[ "l=", 75, " ", {{180, 2, 2, 2, 6, 1, 4, 2, 4, 1, 6, 2, 2, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]76\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 2, 1, 2, 14, 1, 2, 2, 1, 4, 1, 19, 3, 1, 2, 1, 1, 6, 1, 1, 1, 10, 1, 1, 1, 6, 1, 1, 2, 1, 3, 19, 1, 4, 1, 2, 2, 1, 14, 2, 1, 2, 2}}\), SequenceForm[ "l=", 76, " ", {{180, 2, 2, 1, 2, 14, 1, 2, 2, 1, 4, 1, 19, 3, 1, 2, 1, 1, 6, 1, 1, 1, 10, 1, 1, 1, 6, 1, 1, 2, 1, 3, 19, 1, 4, 1, 2, 2, 1, 14, 2, 1, 2, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]44\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 44, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]77\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 2, 1, 10, 1, 1, 2, 3, 3, 2, 1, 1, 10, 1, 2, 2}}\), SequenceForm[ "l=", 77, " ", {{180, 2, 2, 1, 10, 1, 1, 2, 3, 3, 2, 1, 1, 10, 1, 2, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]17\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 17, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]78\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 3, 5, 5, 7, 1, 2, 25, 2, 25, 2, 1, 7, 5, 5, 3, 2}}\), SequenceForm[ "l=", 78, " ", {{180, 2, 3, 5, 5, 7, 1, 2, 25, 2, 25, 2, 1, 7, 5, 5, 3, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]18\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 18, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]79\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 3, 1, 1, 11, 2, 59, 1, 4, 2, 1, 35, 2, 19, 1, 1, 1, 1, 8, 1, 11, 6, 6, 1, 1, 6, 1, 2, 3, 3, 1, 2, 1, 1, 2, 1, 1, 5, 2, 4, 3, 3, 9, 1, 2, 1, 17, 2, 1, 9, 1, 29, 4, 5, 1, 3, 1, 1, 2, 1, 89, 1, 2, 1, 1, 3, 1, 5, 4, 29, 1, 9, 1, 2, 17, 1, 2, 1, 9, 3, 3, 4, 2, 5, 1, 1, 2, 1, 1, 2, 1, 3, 3, 2, 1, 6, 1, 1, 6, 6, 11, 1, 8, 1, 1, 1, 1, 19, 2, 35, 1, 2, 4, 1, 59, 2, 11, 1, 1, 3, 2}}\), SequenceForm[ "l=", 79, " ", {{180, 2, 3, 1, 1, 11, 2, 59, 1, 4, 2, 1, 35, 2, 19, 1, 1, 1, 1, 8, 1, 11, 6, 6, 1, 1, 6, 1, 2, 3, 3, 1, 2, 1, 1, 2, 1, 1, 5, 2, 4, 3, 3, 9, 1, 2, 1, 17, 2, 1, 9, 1, 29, 4, 5, 1, 3, 1, 1, 2, 1, 89, 1, 2, 1, 1, 3, 1, 5, 4, 29, 1, 9, 1, 2, 17, 1, 2, 1, 9, 3, 3, 4, 2, 5, 1, 1, 2, 1, 1, 2, 1, 3, 3, 2, 1, 6, 1, 1, 6, 6, 11, 1, 8, 1, 1, 1, 1, 19, 2, 35, 1, 2, 4, 1, 59, 2, 11, 1, 1, 3, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]122\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 122, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]80\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 3, 1, 10, 1, 1, 8, 1, 1, 10, 1, 3, 2}}\), SequenceForm[ "l=", 80, " ", {{180, 2, 3, 1, 10, 1, 1, 8, 1, 1, 10, 1, 3, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 4, 2, 1, 1, 3, 1, 1, 1, 1, 2, 19, 1, 2, 1, 1, 8, 2, 8, 1, 1, 2, 1, 19, 2, 1, 1, 1, 1, 3, 1, 1, 2, 4, 2}}\), SequenceForm[ "l=", 81, " ", {{180, 2, 4, 2, 1, 1, 3, 1, 1, 1, 1, 2, 19, 1, 2, 1, 1, 8, 2, 8, 1, 1, 2, 1, 19, 2, 1, 1, 1, 1, 3, 1, 1, 2, 4, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]36\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 36, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]82\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 4, 1, 59, 2, 15, 1, 19, 6, 5, 3, 6, 2, 1, 1, 2, 1, 1, 9, 2, 7, 1, 2, 1, 29, 2, 2, 4, 90, 4, 2, 2, 29, 1, 2, 1, 7, 2, 9, 1, 1, 2, 1, 1, 2, 6, 3, 5, 6, 19, 1, 15, 2, 59, 1, 4, 2}}\), SequenceForm[ "l=", 82, " ", {{180, 2, 4, 1, 59, 2, 15, 1, 19, 6, 5, 3, 6, 2, 1, 1, 2, 1, 1, 9, 2, 7, 1, 2, 1, 29, 2, 2, 4, 90, 4, 2, 2, 29, 1, 2, 1, 7, 2, 9, 1, 1, 2, 1, 1, 2, 6, 3, 5, 6, 19, 1, 15, 2, 59, 1, 4, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]58\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 58, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]83\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 5, 1, 2, 1, 5, 2}}\), SequenceForm[ "l=", 83, " ", {{180, 2, 5, 1, 2, 1, 5, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]84\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 6, 1, 2, 1, 4, 1, 2, 1, 6, 2}}\), SequenceForm[ "l=", 84, " ", {{180, 2, 6, 1, 2, 1, 4, 1, 2, 1, 6, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]12\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 12, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]85\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 8, 8, 2}}\), SequenceForm[ "l=", 85, " ", {{180, 2, 8, 8, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]5\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 5, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]86\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 10, 6, 1, 6, 2, 1, 1, 1, 3, 4, 2, 17, 1, 1, 1, 5, 5, 1, 1, 1, 17, 2, 4, 3, 1, 1, 1, 2, 6, 1, 6, 10, 2}}\), SequenceForm[ "l=", 86, " ", {{180, 2, 10, 6, 1, 6, 2, 1, 1, 1, 3, 4, 2, 17, 1, 1, 1, 5, 5, 1, 1, 1, 17, 2, 4, 3, 1, 1, 1, 2, 6, 1, 6, 10, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]35\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 35, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]87\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 13, 2, 2, 1, 2, 3, 1, 15, 1, 2, 7, 1, 7, 1, 2, 1, 4, 6, 1, 2, 1, 89, 1, 2, 1, 6, 4, 1, 2, 1, 7, 1, 7, 2, 1, 15, 1, 3, 2, 1, 2, 2, 13, 2}}\), SequenceForm[ "l=", 87, " ", {{180, 2, 13, 2, 2, 1, 2, 3, 1, 15, 1, 2, 7, 1, 7, 1, 2, 1, 4, 6, 1, 2, 1, 89, 1, 2, 1, 6, 4, 1, 2, 1, 7, 1, 7, 2, 1, 15, 1, 3, 2, 1, 2, 2, 13, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]46\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 46, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]88\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 19, 1, 1, 1, 1, 3, 1, 1, 22, 16, 2, 2, 4, 1, 1, 1, 1, 1, 44, 1, 1, 1, 1, 1, 4, 2, 2, 16, 22, 1, 1, 3, 1, 1, 1, 1, 19, 2}}\), SequenceForm[ "l=", 88, " ", {{180, 2, 19, 1, 1, 1, 1, 3, 1, 1, 22, 16, 2, 2, 4, 1, 1, 1, 1, 1, 44, 1, 1, 1, 1, 1, 4, 2, 2, 16, 22, 1, 1, 3, 1, 1, 1, 1, 19, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]40\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 40, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]89\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2, 35, 1, 2, 3, 6, 1, 15, 1, 1, 2, 3, 1, 2, 1, 1, 13, 2, 1, 8, 2, 1, 2, 44, 1, 6, 1, 8, 5, 1, 2, 1, 1, 1, 4, 3, 1, 8, 1, 3, 4, 1, 1, 1, 2, 1, 5, 8, 1, 6, 1, 44, 2, 1, 2, 8, 1, 2, 13, 1, 1, 2, 1, 3, 2, 1, 1, 15, 1, 6, 3, 2, 1, 35, 2}}\), SequenceForm[ "l=", 89, " ", {{180, 2, 35, 1, 2, 3, 6, 1, 15, 1, 1, 2, 3, 1, 2, 1, 1, 13, 2, 1, 8, 2, 1, 2, 44, 1, 6, 1, 8, 5, 1, 2, 1, 1, 1, 4, 3, 1, 8, 1, 3, 4, 1, 1, 1, 2, 1, 5, 8, 1, 6, 1, 44, 2, 1, 2, 8, 1, 2, 13, 1, 1, 2, 1, 3, 2, 1, 1, 15, 1, 6, 3, 2, 1, 35, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]76\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 76, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]90\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 2}}\), SequenceForm[ "l=", 90, " ", {{180, 2}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]91\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 59, 1, 5, 19, 1, 17, 6, 1, 1, 1, 5, 2, 1, 1, 1, 1, 4, 1, 1, 3, 1, 6, 2, 5, 1, 3, 2, 6, 1, 1, 12, 2, 1, 1, 5, 4, 7, 1, 1, 1, 2, 2, 2, 2, 4, 1, 3, 8, 2, 1, 3, 1, 25, 13, 1, 7, 1, 2, 4, 3, 2, 1, 1, 3, 2, 3, 3, 1, 11, 3, 3, 35, 1, 9, 11, 1, 29, 3, 1, 89, 1, 3, 29, 1, 11, 9, 1, 35, 3, 3, 11, 1, 3, 3, 2, 3, 1, 1, 2, 3, 4, 2, 1, 7, 1, 13, 25, 1, 3, 1, 2, 8, 3, 1, 4, 2, 2, 2, 2, 1, 1, 1, 7, 4, 5, 1, 1, 2, 12, 1, 1, 6, 2, 3, 1, 5, 2, 6, 1, 3, 1, 1, 4, 1, 1, 1, 1, 2, 5, 1, 1, 1, 6, 17, 1, 19, 5, 1, 59, 1, 1}}\), SequenceForm[ "l=", 91, " ", {{180, 1, 1, 59, 1, 5, 19, 1, 17, 6, 1, 1, 1, 5, 2, 1, 1, 1, 1, 4, 1, 1, 3, 1, 6, 2, 5, 1, 3, 2, 6, 1, 1, 12, 2, 1, 1, 5, 4, 7, 1, 1, 1, 2, 2, 2, 2, 4, 1, 3, 8, 2, 1, 3, 1, 25, 13, 1, 7, 1, 2, 4, 3, 2, 1, 1, 3, 2, 3, 3, 1, 11, 3, 3, 35, 1, 9, 11, 1, 29, 3, 1, 89, 1, 3, 29, 1, 11, 9, 1, 35, 3, 3, 11, 1, 3, 3, 2, 3, 1, 1, 2, 3, 4, 2, 1, 7, 1, 13, 25, 1, 3, 1, 2, 8, 3, 1, 4, 2, 2, 2, 2, 1, 1, 1, 7, 4, 5, 1, 1, 2, 12, 1, 1, 6, 2, 3, 1, 5, 2, 6, 1, 3, 1, 1, 4, 1, 1, 1, 1, 2, 5, 1, 1, 1, 6, 17, 1, 19, 5, 1, 59, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]164\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 164, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]92\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 25, 2, 1, 3, 1, 2, 1, 9, 1, 10, 2, 2, 5, 2, 3, 2, 1, 1, 5, 1, 7, 45, 7, 1, 5, 1, 1, 2, 3, 2, 5, 2, 2, 10, 1, 9, 1, 2, 1, 3, 1, 2, 25, 1, 1}}\), SequenceForm[ "l=", 92, " ", {{180, 1, 1, 25, 2, 1, 3, 1, 2, 1, 9, 1, 10, 2, 2, 5, 2, 3, 2, 1, 1, 5, 1, 7, 45, 7, 1, 5, 1, 1, 2, 3, 2, 5, 2, 2, 10, 1, 9, 1, 2, 1, 3, 1, 2, 25, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]48\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 48, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]93\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 15, 1, 21, 1, 2, 4, 1, 1, 4, 11, 10, 1, 1, 3, 1, 2, 5, 3, 2, 1, 3, 13, 1, 1, 1, 8, 1, 6, 1, 1, 1, 4, 1, 5, 60, 5, 1, 4, 1, 1, 1, 6, 1, 8, 1, 1, 1, 13, 3, 1, 2, 3, 5, 2, 1, 3, 1, 1, 10, 11, 4, 1, 1, 4, 2, 1, 21, 1, 15, 1, 1}}\), SequenceForm[ "l=", 93, " ", {{180, 1, 1, 15, 1, 21, 1, 2, 4, 1, 1, 4, 11, 10, 1, 1, 3, 1, 2, 5, 3, 2, 1, 3, 13, 1, 1, 1, 8, 1, 6, 1, 1, 1, 4, 1, 5, 60, 5, 1, 4, 1, 1, 1, 6, 1, 8, 1, 1, 1, 13, 3, 1, 2, 3, 5, 2, 1, 3, 1, 1, 10, 11, 4, 1, 1, 4, 2, 1, 21, 1, 15, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]74\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 74, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]94\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 11, 1, 1, 3, 5, 1, 3, 90, 3, 1, 5, 3, 1, 1, 11, 1, 1}}\), SequenceForm[ "l=", 94, " ", {{180, 1, 1, 11, 1, 1, 3, 5, 1, 3, 90, 3, 1, 5, 3, 1, 1, 11, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]20\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 20, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]95\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 9, 36, 9, 1, 1}}\), SequenceForm[ "l=", 95, " ", {{180, 1, 1, 9, 36, 9, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]96\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 7, 2, 1, 2, 3, 2, 11, 1, 1, 1, 2, 1, 8, 3, 16, 7, 5, 1, 1, 14, 1, 1, 5, 7, 16, 3, 8, 1, 2, 1, 1, 1, 11, 2, 3, 2, 1, 2, 7, 1, 1}}\), SequenceForm[ "l=", 96, " ", {{180, 1, 1, 7, 2, 1, 2, 3, 2, 11, 1, 1, 1, 2, 1, 8, 3, 16, 7, 5, 1, 1, 14, 1, 1, 5, 7, 16, 3, 8, 1, 2, 1, 1, 1, 11, 2, 3, 2, 1, 2, 7, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]44\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 44, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]97\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 6, 4, 1, 7, 14, 1, 24, 1, 14, 7, 1, 4, 6, 1, 1}}\), SequenceForm[ "l=", 97, " ", {{180, 1, 1, 6, 4, 1, 7, 14, 1, 24, 1, 14, 7, 1, 4, 6, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]18\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 18, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]98\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 5, 2, 1, 15, 1, 3, 2, 10, 4, 1, 3, 1, 25, 12, 1, 8, 1, 1, 1, 1, 4, 1, 2, 1, 1, 2, 7, 1, 5, 2, 1, 3, 90, 3, 1, 2, 5, 1, 7, 2, 1, 1, 2, 1, 4, 1, 1, 1, 1, 8, 1, 12, 25, 1, 3, 1, 4, 10, 2, 3, 1, 15, 1, 2, 5, 1, 1}}\), SequenceForm[ "l=", 98, " ", {{180, 1, 1, 5, 2, 1, 15, 1, 3, 2, 10, 4, 1, 3, 1, 25, 12, 1, 8, 1, 1, 1, 1, 4, 1, 2, 1, 1, 2, 7, 1, 5, 2, 1, 3, 90, 3, 1, 2, 5, 1, 7, 2, 1, 1, 2, 1, 4, 1, 1, 1, 1, 8, 1, 12, 25, 1, 3, 1, 4, 10, 2, 3, 1, 15, 1, 2, 5, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]70\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 70, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]99\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 4, 1, 2, 17, 1, 3, 12, 1, 2, 6, 1, 9, 5, 13, 1, 2, 1, 3, 3, 1, 1, 2, 2, 2, 16, 20, 16, 2, 2, 2, 1, 1, 3, 3, 1, 2, 1, 13, 5, 9, 1, 6, 2, 1, 12, 3, 1, 17, 2, 1, 4, 1, 1}}\), SequenceForm[ "l=", 99, " ", {{180, 1, 1, 4, 1, 2, 17, 1, 3, 12, 1, 2, 6, 1, 9, 5, 13, 1, 2, 1, 3, 3, 1, 1, 2, 2, 2, 16, 20, 16, 2, 2, 2, 1, 1, 3, 3, 1, 2, 1, 13, 5, 9, 1, 6, 2, 1, 12, 3, 1, 17, 2, 1, 4, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]56\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 56, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 4, 7, 45, 7, 4, 1, 1}}\), SequenceForm[ "l=", 100, " ", {{180, 1, 1, 4, 7, 45, 7, 4, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]10\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 10, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]101\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 3, 1, 2, 2, 5, 4, 4, 3, 2, 5, 1, 4, 3, 35, 1, 10, 2, 1, 7, 5, 22, 2, 4, 25, 1, 1, 1, 6, 1, 1, 2, 1, 1, 6, 1, 1, 1, 25, 4, 2, 22, 5, 7, 1, 2, 10, 1, 35, 3, 4, 1, 5, 2, 3, 4, 4, 5, 2, 2, 1, 3, 1, 1}}\), SequenceForm[ "l=", 101, " ", {{180, 1, 1, 3, 1, 2, 2, 5, 4, 4, 3, 2, 5, 1, 4, 3, 35, 1, 10, 2, 1, 7, 5, 22, 2, 4, 25, 1, 1, 1, 6, 1, 1, 2, 1, 1, 6, 1, 1, 1, 25, 4, 2, 22, 5, 7, 1, 2, 10, 1, 35, 3, 4, 1, 5, 2, 3, 4, 4, 5, 2, 2, 1, 3, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]66\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 66, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]102\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 3, 2, 1, 5, 6, 1, 3, 1, 3, 1, 1, 1, 1, 1, 10, 30, 10, 1, 1, 1, 1, 1, 3, 1, 3, 1, 6, 5, 1, 2, 3, 1, 1}}\), SequenceForm[ "l=", 102, " ", {{180, 1, 1, 3, 2, 1, 5, 6, 1, 3, 1, 3, 1, 1, 1, 1, 1, 10, 30, 10, 1, 1, 1, 1, 1, 3, 1, 3, 1, 6, 5, 1, 2, 3, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]36\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 36, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]103\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 3, 19, 1, 5, 3, 2, 1, 1, 1, 1, 6, 10, 1, 1, 59, 1, 5, 1, 59, 1, 1, 10, 6, 1, 1, 1, 1, 2, 3, 5, 1, 19, 3, 1, 1}}\), SequenceForm[ "l=", 103, " ", {{180, 1, 1, 3, 19, 1, 5, 3, 2, 1, 1, 1, 1, 6, 10, 1, 1, 59, 1, 5, 1, 59, 1, 1, 10, 6, 1, 1, 1, 1, 2, 3, 5, 1, 19, 3, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]38\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 38, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]104\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 2, 1, 3, 1, 4, 2, 1, 1, 2, 1, 2, 2, 1, 6, 1, 1, 5, 3, 4, 4, 1, 1, 1, 44, 1, 1, 1, 4, 4, 3, 5, 1, 1, 6, 1, 2, 2, 1, 2, 1, 1, 2, 4, 1, 3, 1, 2, 1, 1}}\), SequenceForm[ "l=", 104, " ", {{180, 1, 1, 2, 1, 3, 1, 4, 2, 1, 1, 2, 1, 2, 2, 1, 6, 1, 1, 5, 3, 4, 4, 1, 1, 1, 44, 1, 1, 1, 4, 4, 3, 5, 1, 1, 6, 1, 2, 2, 1, 2, 1, 1, 2, 4, 1, 3, 1, 2, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]52\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 52, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]105\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 2, 1, 1, 3, 8, 1, 3, 1, 1, 8, 1, 44, 2, 1, 1, 8, 36, 8, 1, 1, 2, 44, 1, 8, 1, 1, 3, 1, 8, 3, 1, 1, 2, 1, 1}}\), SequenceForm[ "l=", 105, " ", {{180, 1, 1, 2, 1, 1, 3, 8, 1, 3, 1, 1, 8, 1, 44, 2, 1, 1, 8, 36, 8, 1, 1, 2, 44, 1, 8, 1, 1, 3, 1, 8, 3, 1, 1, 2, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]38\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 38, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]106\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 2, 2, 1, 2, 25, 1, 1, 19, 1, 1, 1, 1, 1, 3, 13, 1, 1, 1, 17, 2, 5, 1, 1, 4, 4, 2, 2, 1, 5, 1, 1, 6, 5, 1, 7, 1, 3, 1, 3, 6, 1, 59, 1, 1, 8, 8, 8, 1, 1, 59, 1, 6, 3, 1, 3, 1, 7, 1, 5, 6, 1, 1, 5, 1, 2, 2, 4, 4, 1, 1, 5, 2, 17, 1, 1, 1, 13, 3, 1, 1, 1, 1, 1, 19, 1, 1, 25, 2, 1, 2, 2, 1, 1}}\), SequenceForm[ "l=", 106, " ", {{180, 1, 1, 2, 2, 1, 2, 25, 1, 1, 19, 1, 1, 1, 1, 1, 3, 13, 1, 1, 1, 17, 2, 5, 1, 1, 4, 4, 2, 2, 1, 5, 1, 1, 6, 5, 1, 7, 1, 3, 1, 3, 6, 1, 59, 1, 1, 8, 8, 8, 1, 1, 59, 1, 6, 3, 1, 3, 1, 7, 1, 5, 6, 1, 1, 5, 1, 2, 2, 4, 4, 1, 1, 5, 2, 17, 1, 1, 1, 13, 3, 1, 1, 1, 1, 1, 19, 1, 1, 25, 2, 1, 2, 2, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]96\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 96, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]107\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 2, 4, 1, 13, 8, 6, 8, 13, 1, 4, 2, 1, 1}}\), SequenceForm[ "l=", 107, " ", {{180, 1, 1, 2, 4, 1, 13, 8, 6, 8, 13, 1, 4, 2, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]16\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 16, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]108\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 2, 19, 1, 2, 1, 2, 1, 19, 2, 1, 1}}\), SequenceForm[ "l=", 108, " ", {{180, 1, 1, 2, 19, 1, 2, 1, 2, 1, 19, 2, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]109\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 1, 10, 1, 2, 1, 1, 1, 3, 2, 1, 1, 3, 1, 15, 1, 2, 4, 5, 3, 1, 5, 11, 1, 9, 1, 2, 1, 6, 1, 1, 59, 1, 6, 1, 1, 3, 4, 7, 3, 6, 2, 1, 1, 4, 1, 8, 1, 2, 1, 1, 11, 1, 1, 35, 1, 2, 1, 1, 2, 1, 1, 1, 1, 5, 19, 1, 21, 1, 2, 2, 1, 21, 1, 19, 5, 1, 1, 1, 1, 2, 1, 1, 2, 1, 35, 1, 1, 11, 1, 1, 2, 1, 8, 1, 4, 1, 1, 2, 6, 3, 7, 4, 3, 1, 1, 6, 1, 59, 1, 1, 6, 1, 2, 1, 9, 1, 11, 5, 1, 3, 5, 4, 2, 1, 15, 1, 3, 1, 1, 2, 3, 1, 1, 1, 2, 1, 10, 1, 1, 1, 1}}\), SequenceForm[ "l=", 109, " ", {{180, 1, 1, 1, 1, 10, 1, 2, 1, 1, 1, 3, 2, 1, 1, 3, 1, 15, 1, 2, 4, 5, 3, 1, 5, 11, 1, 9, 1, 2, 1, 6, 1, 1, 59, 1, 6, 1, 1, 3, 4, 7, 3, 6, 2, 1, 1, 4, 1, 8, 1, 2, 1, 1, 11, 1, 1, 35, 1, 2, 1, 1, 2, 1, 1, 1, 1, 5, 19, 1, 21, 1, 2, 2, 1, 21, 1, 19, 5, 1, 1, 1, 1, 2, 1, 1, 2, 1, 35, 1, 1, 11, 1, 1, 2, 1, 8, 1, 4, 1, 1, 2, 6, 3, 7, 4, 3, 1, 1, 6, 1, 59, 1, 1, 6, 1, 2, 1, 9, 1, 11, 5, 1, 3, 5, 4, 2, 1, 15, 1, 3, 1, 1, 2, 3, 1, 1, 1, 2, 1, 10, 1, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]145\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 145, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]110\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 1, 3, 1, 4, 1, 1, 4, 1, 3, 1, 1, 1, 1}}\), SequenceForm[ "l=", 110, " ", {{180, 1, 1, 1, 1, 3, 1, 4, 1, 1, 4, 1, 3, 1, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]17\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 17, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]111\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 1, 2, 6, 1, 6, 2, 1, 1, 1, 1}}\), SequenceForm[ "l=", 111, " ", {{180, 1, 1, 1, 1, 2, 6, 1, 6, 2, 1, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]112\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 1, 1, 2, 1, 1, 4, 14, 1, 7, 1, 2, 3, 2, 3, 19, 1, 5, 1, 1, 10, 1, 3, 1, 2, 1, 3, 8, 2, 1, 3, 10, 2, 1, 1, 3, 5, 1, 1, 3, 6, 2, 3, 11, 25, 1, 4, 13, 1, 2, 1, 5, 1, 1, 59, 1, 6, 1, 8, 1, 1, 1, 44, 1, 1, 1, 8, 1, 6, 1, 59, 1, 1, 5, 1, 2, 1, 13, 4, 1, 25, 11, 3, 2, 6, 3, 1, 1, 5, 3, 1, 1, 2, 10, 3, 1, 2, 8, 3, 1, 2, 1, 3, 1, 10, 1, 1, 5, 1, 19, 3, 2, 3, 2, 1, 7, 1, 14, 4, 1, 1, 2, 1, 1, 1, 1, 1}}\), SequenceForm[ "l=", 112, " ", {{180, 1, 1, 1, 1, 1, 2, 1, 1, 4, 14, 1, 7, 1, 2, 3, 2, 3, 19, 1, 5, 1, 1, 10, 1, 3, 1, 2, 1, 3, 8, 2, 1, 3, 10, 2, 1, 1, 3, 5, 1, 1, 3, 6, 2, 3, 11, 25, 1, 4, 13, 1, 2, 1, 5, 1, 1, 59, 1, 6, 1, 8, 1, 1, 1, 44, 1, 1, 1, 8, 1, 6, 1, 59, 1, 1, 5, 1, 2, 1, 13, 4, 1, 25, 11, 3, 2, 6, 3, 1, 1, 5, 3, 1, 1, 2, 10, 3, 1, 2, 8, 3, 1, 2, 1, 3, 1, 10, 1, 1, 5, 1, 19, 3, 2, 3, 2, 1, 7, 1, 14, 4, 1, 1, 2, 1, 1, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]130\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 130, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]113\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 2, 25, 1, 1, 13, 2, 3, 4, 1, 1, 1, 1, 2, 1, 7, 6, 2, 1, 9, 1, 44, 2, 2, 5, 1, 5, 1, 1, 1, 2, 3, 9, 4, 9, 3, 2, 1, 1, 1, 5, 1, 5, 2, 2, 44, 1, 9, 1, 2, 6, 7, 1, 2, 1, 1, 1, 1, 4, 3, 2, 13, 1, 1, 25, 2, 1, 1, 1}}\), SequenceForm[ "l=", 113, " ", {{180, 1, 1, 1, 2, 25, 1, 1, 13, 2, 3, 4, 1, 1, 1, 1, 2, 1, 7, 6, 2, 1, 9, 1, 44, 2, 2, 5, 1, 5, 1, 1, 1, 2, 3, 9, 4, 9, 3, 2, 1, 1, 1, 5, 1, 5, 2, 2, 44, 1, 9, 1, 2, 6, 7, 1, 2, 1, 1, 1, 1, 4, 3, 2, 13, 1, 1, 25, 2, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]72\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 72, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]114\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 2, 2, 5, 1, 1, 1, 1, 1, 3, 3, 6, 1, 17, 3, 1, 4, 60, 4, 1, 3, 17, 1, 6, 3, 3, 1, 1, 1, 1, 1, 5, 2, 2, 1, 1, 1}}\), SequenceForm[ "l=", 114, " ", {{180, 1, 1, 1, 2, 2, 5, 1, 1, 1, 1, 1, 3, 3, 6, 1, 17, 3, 1, 4, 60, 4, 1, 3, 17, 1, 6, 3, 3, 1, 1, 1, 1, 1, 5, 2, 2, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]40\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 40, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]115\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 3, 29, 1, 15, 1, 1, 19, 1, 1, 1, 2, 11, 1, 2, 2, 3, 1, 1, 17, 1, 1, 3, 2, 2, 1, 11, 2, 1, 1, 1, 19, 1, 1, 15, 1, 29, 3, 1, 1, 1}}\), SequenceForm[ "l=", 115, " ", {{180, 1, 1, 1, 3, 29, 1, 15, 1, 1, 19, 1, 1, 1, 2, 11, 1, 2, 2, 3, 1, 1, 17, 1, 1, 3, 2, 2, 1, 11, 2, 1, 1, 1, 19, 1, 1, 15, 1, 29, 3, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]44\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 44, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]116\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 3, 1, 6, 2, 6, 1, 3, 1, 1, 1}}\), SequenceForm[ "l=", 116, " ", {{180, 1, 1, 1, 3, 1, 6, 2, 6, 1, 3, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]117\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 5, 5, 2, 22, 4, 1, 5, 1, 10, 2, 10, 1, 5, 1, 4, 22, 2, 5, 5, 1, 1, 1}}\), SequenceForm[ "l=", 117, " ", {{180, 1, 1, 1, 5, 5, 2, 22, 4, 1, 5, 1, 10, 2, 10, 1, 5, 1, 4, 22, 2, 5, 5, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]26\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 26, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]118\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 7, 1, 1, 2, 1, 4, 1, 3, 2, 29, 1, 3, 2, 5, 19, 1, 24, 1, 19, 5, 2, 3, 1, 29, 2, 3, 1, 4, 1, 2, 1, 1, 7, 1, 1, 1}}\), SequenceForm[ "l=", 118, " ", {{180, 1, 1, 1, 7, 1, 1, 2, 1, 4, 1, 3, 2, 29, 1, 3, 2, 5, 19, 1, 24, 1, 19, 5, 2, 3, 1, 29, 2, 3, 1, 4, 1, 2, 1, 1, 7, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]40\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 40, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]119\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 13, 3, 1, 1, 4, 4, 1, 25, 10, 1, 1, 1, 2, 7, 1, 1, 35, 1, 2, 1, 2, 1, 2, 17, 1, 3, 3, 1, 2, 4, 1, 4, 1, 1, 12, 2, 2, 9, 7, 6, 1, 4, 1, 89, 1, 4, 1, 6, 7, 9, 2, 2, 12, 1, 1, 4, 1, 4, 2, 1, 3, 3, 1, 17, 2, 1, 2, 1, 2, 1, 35, 1, 1, 7, 2, 1, 1, 1, 10, 25, 1, 4, 4, 1, 1, 3, 13, 1, 1, 1}}\), SequenceForm[ "l=", 119, " ", {{180, 1, 1, 1, 13, 3, 1, 1, 4, 4, 1, 25, 10, 1, 1, 1, 2, 7, 1, 1, 35, 1, 2, 1, 2, 1, 2, 17, 1, 3, 3, 1, 2, 4, 1, 4, 1, 1, 12, 2, 2, 9, 7, 6, 1, 4, 1, 89, 1, 4, 1, 6, 7, 9, 2, 2, 12, 1, 1, 4, 1, 4, 2, 1, 3, 3, 1, 17, 2, 1, 2, 1, 2, 1, 35, 1, 1, 7, 2, 1, 1, 1, 10, 25, 1, 4, 4, 1, 1, 3, 13, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]94\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 94, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]120\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 1, 1, 44, 1, 1, 1}}\), SequenceForm[ "l=", 120, " ", {{180, 1, 1, 1, 44, 1, 1, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]8\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 8, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 35, 1, 14, 7, 5, 2, 1, 4, 1, 4, 4, 1, 2, 3, 1, 3, 3, 1, 5, 1, 19, 3, 2, 1, 2, 3, 1, 1, 1, 14, 2, 8, 1, 1, 2, 2, 44, 1, 11, 8, 1, 59, 1, 1, 3, 1, 11, 3, 4, 1, 2, 2, 16, 16, 2, 2, 1, 4, 3, 11, 1, 3, 1, 1, 59, 1, 8, 11, 1, 44, 2, 2, 1, 1, 8, 2, 14, 1, 1, 1, 3, 2, 1, 2, 3, 19, 1, 5, 1, 3, 3, 1, 3, 2, 1, 4, 4, 1, 4, 1, 2, 5, 7, 14, 1, 35, 2, 1}}\), SequenceForm[ "l=", 121, " ", {{180, 1, 2, 35, 1, 14, 7, 5, 2, 1, 4, 1, 4, 4, 1, 2, 3, 1, 3, 3, 1, 5, 1, 19, 3, 2, 1, 2, 3, 1, 1, 1, 14, 2, 8, 1, 1, 2, 2, 44, 1, 11, 8, 1, 59, 1, 1, 3, 1, 11, 3, 4, 1, 2, 2, 16, 16, 2, 2, 1, 4, 3, 11, 1, 3, 1, 1, 59, 1, 8, 11, 1, 44, 2, 2, 1, 1, 8, 2, 14, 1, 1, 1, 3, 2, 1, 2, 3, 19, 1, 5, 1, 3, 3, 1, 3, 2, 1, 4, 4, 1, 4, 1, 2, 5, 7, 14, 1, 35, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]111\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 111, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]122\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 12, 1, 1, 1, 1, 1, 2, 3, 3, 7, 1, 15, 1, 1, 1, 1, 5, 4, 25, 1, 2, 90, 2, 1, 25, 4, 5, 1, 1, 1, 1, 15, 1, 7, 3, 3, 2, 1, 1, 1, 1, 1, 12, 2, 1}}\), SequenceForm[ "l=", 122, " ", {{180, 1, 2, 12, 1, 1, 1, 1, 1, 2, 3, 3, 7, 1, 15, 1, 1, 1, 1, 5, 4, 25, 1, 2, 90, 2, 1, 25, 4, 5, 1, 1, 1, 1, 15, 1, 7, 3, 3, 2, 1, 1, 1, 1, 1, 12, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]48\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 48, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]123\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 7, 1, 1, 4, 2, 1, 2, 2, 1, 1, 1, 1, 29, 1, 1, 1, 1, 2, 2, 1, 2, 4, 1, 1, 7, 2, 1}}\), SequenceForm[ "l=", 123, " ", {{180, 1, 2, 7, 1, 1, 4, 2, 1, 2, 2, 1, 1, 1, 1, 29, 1, 1, 1, 1, 2, 2, 1, 2, 4, 1, 1, 7, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]30\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 30, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]124\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 5, 2, 1}}\), SequenceForm[ "l=", 124, " ", {{180, 1, 2, 5, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]6\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 6, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]125\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 4, 11, 9, 2, 5, 2, 1, 1, 1, 6, 1, 1, 1, 2, 5, 2, 9, 11, 4, 2, 1}}\), SequenceForm[ "l=", 125, " ", {{180, 1, 2, 4, 11, 9, 2, 5, 2, 1, 1, 1, 6, 1, 1, 1, 2, 5, 2, 9, 11, 4, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]24\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 24, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]126\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 3, 3, 2, 2, 19, 1, 2, 1, 9, 1, 12, 20, 12, 1, 9, 1, 2, 1, 19, 2, 2, 3, 3, 2, 1}}\), SequenceForm[ "l=", 126, " ", {{180, 1, 2, 3, 3, 2, 2, 19, 1, 2, 1, 9, 1, 12, 20, 12, 1, 9, 1, 2, 1, 19, 2, 2, 3, 3, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]28\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 28, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]127\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 2, 1, 2, 1, 5, 1, 89, 1, 5, 1, 2, 1, 2, 2, 1}}\), SequenceForm[ "l=", 127, " ", {{180, 1, 2, 2, 1, 2, 1, 5, 1, 89, 1, 5, 1, 2, 1, 2, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]18\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 18, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]128\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 2, 2, 1}}\), SequenceForm[ "l=", 128, " ", {{180, 1, 2, 2, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]6\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 6, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]129\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 2, 44, 1, 12, 1, 44, 2, 2, 1}}\), SequenceForm[ "l=", 129, " ", {{180, 1, 2, 2, 44, 1, 12, 1, 44, 2, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]12\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 12, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]130\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 1, 1, 3, 2, 5, 1, 4, 2, 29, 1, 3, 1, 2, 5, 1, 2, 4, 3, 3, 19, 1, 6, 36, 6, 1, 19, 3, 3, 4, 2, 1, 5, 2, 1, 3, 1, 29, 2, 4, 1, 5, 2, 3, 1, 1, 2, 1}}\), SequenceForm[ "l=", 130, " ", {{180, 1, 2, 1, 1, 3, 2, 5, 1, 4, 2, 29, 1, 3, 1, 2, 5, 1, 2, 4, 3, 3, 19, 1, 6, 36, 6, 1, 19, 3, 3, 4, 2, 1, 5, 2, 1, 3, 1, 29, 2, 4, 1, 5, 2, 3, 1, 1, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]50\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 50, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]131\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 2, 1, 15, 1, 3, 1, 5, 17, 1, 35, 2, 1, 8, 1, 7, 2, 1, 5, 1, 1, 2, 1, 3, 6, 1, 89, 1, 6, 3, 1, 2, 1, 1, 5, 1, 2, 7, 1, 8, 1, 2, 35, 1, 17, 5, 1, 3, 1, 15, 1, 2, 2, 1, 3, 1, 2, 1, 1, 1, 2, 1}}\), SequenceForm[ "l=", 131, " ", {{180, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 2, 1, 15, 1, 3, 1, 5, 17, 1, 35, 2, 1, 8, 1, 7, 2, 1, 5, 1, 1, 2, 1, 3, 6, 1, 89, 1, 6, 3, 1, 2, 1, 1, 5, 1, 2, 7, 1, 8, 1, 2, 35, 1, 17, 5, 1, 3, 1, 15, 1, 2, 2, 1, 3, 1, 2, 1, 1, 1, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]72\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 72, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]132\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 1, 2, 2, 3, 3, 1, 1, 3, 7, 3, 1, 1, 3, 3, 2, 2, 1, 2, 1}}\), SequenceForm[ "l=", 132, " ", {{180, 1, 2, 1, 2, 2, 3, 3, 1, 1, 3, 7, 3, 1, 1, 3, 3, 2, 2, 1, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]22\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 22, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]133\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 1, 3, 1, 2, 10, 1, 59, 1, 1, 2, 1, 2, 8, 3, 1, 1, 1, 19, 1, 1, 9, 25, 1, 4, 1, 1, 6, 5, 1, 2, 2, 1, 7, 1, 15, 1, 1, 1, 1, 2, 1, 1, 1, 3, 4, 2, 1, 1, 1, 4, 1, 6, 1, 2, 1, 4, 1, 13, 7, 2, 22, 4, 1, 1, 1, 1, 4, 22, 2, 7, 13, 1, 4, 1, 2, 1, 6, 1, 4, 1, 1, 1, 2, 4, 3, 1, 1, 1, 2, 1, 1, 1, 1, 15, 1, 7, 1, 2, 2, 1, 5, 6, 1, 1, 4, 1, 25, 9, 1, 1, 19, 1, 1, 1, 3, 8, 2, 1, 2, 1, 1, 59, 1, 10, 2, 1, 3, 1, 2, 1}}\), SequenceForm[ "l=", 133, " ", {{180, 1, 2, 1, 3, 1, 2, 10, 1, 59, 1, 1, 2, 1, 2, 8, 3, 1, 1, 1, 19, 1, 1, 9, 25, 1, 4, 1, 1, 6, 5, 1, 2, 2, 1, 7, 1, 15, 1, 1, 1, 1, 2, 1, 1, 1, 3, 4, 2, 1, 1, 1, 4, 1, 6, 1, 2, 1, 4, 1, 13, 7, 2, 22, 4, 1, 1, 1, 1, 4, 22, 2, 7, 13, 1, 4, 1, 2, 1, 6, 1, 4, 1, 1, 1, 2, 4, 3, 1, 1, 1, 2, 1, 1, 1, 1, 15, 1, 7, 1, 2, 2, 1, 5, 6, 1, 1, 4, 1, 25, 9, 1, 1, 19, 1, 1, 1, 3, 8, 2, 1, 2, 1, 1, 59, 1, 10, 2, 1, 3, 1, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]133\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 133, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]134\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 1, 6, 1, 1, 25, 2, 1, 1, 4, 5, 1, 1, 1, 3, 17, 1, 6, 1, 17, 3, 1, 1, 1, 5, 4, 1, 1, 2, 25, 1, 1, 6, 1, 2, 1}}\), SequenceForm[ "l=", 134, " ", {{180, 1, 2, 1, 6, 1, 1, 25, 2, 1, 1, 4, 5, 1, 1, 1, 3, 17, 1, 6, 1, 17, 3, 1, 1, 1, 5, 4, 1, 1, 2, 25, 1, 1, 6, 1, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]38\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 38, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]135\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 2, 1, 19, 2, 2, 2, 19, 1, 2, 1}}\), SequenceForm[ "l=", 135, " ", {{180, 1, 2, 1, 19, 2, 2, 2, 19, 1, 2, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]12\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 12, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]136\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 25, 1, 2, 8, 1, 2, 1, 4, 3, 2, 1, 6, 1, 6, 2, 1, 1, 3, 2, 3, 1, 1, 2, 6, 1, 6, 1, 2, 3, 4, 1, 2, 1, 8, 2, 1, 25, 3, 1}}\), SequenceForm[ "l=", 136, " ", {{180, 1, 3, 25, 1, 2, 8, 1, 2, 1, 4, 3, 2, 1, 6, 1, 6, 2, 1, 1, 3, 2, 3, 1, 1, 2, 6, 1, 6, 1, 2, 3, 4, 1, 2, 1, 8, 2, 1, 25, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]42\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 42, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]137\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 7, 1, 1, 1, 3, 1, 3, 2, 3, 2, 2, 1, 1, 1, 3, 2, 44, 1, 15, 1, 1, 10, 6, 6, 10, 1, 1, 15, 1, 44, 2, 3, 1, 1, 1, 2, 2, 3, 2, 3, 1, 3, 1, 1, 1, 7, 3, 1}}\), SequenceForm[ "l=", 137, " ", {{180, 1, 3, 7, 1, 1, 1, 3, 1, 3, 2, 3, 2, 2, 1, 1, 1, 3, 2, 44, 1, 15, 1, 1, 10, 6, 6, 10, 1, 1, 15, 1, 44, 2, 3, 1, 1, 1, 2, 2, 3, 2, 3, 1, 3, 1, 1, 1, 7, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]51\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 51, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]138\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 4, 2, 2, 9, 6, 1, 7, 30, 7, 1, 6, 9, 2, 2, 4, 3, 1}}\), SequenceForm[ "l=", 138, " ", {{180, 1, 3, 4, 2, 2, 9, 6, 1, 7, 30, 7, 1, 6, 9, 2, 2, 4, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]20\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 20, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]139\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 3, 19, 1, 6, 3, 4, 1, 1, 2, 3, 29, 1, 24, 1, 29, 3, 2, 1, 1, 4, 3, 6, 1, 19, 3, 3, 1}}\), SequenceForm[ "l=", 139, " ", {{180, 1, 3, 3, 19, 1, 6, 3, 4, 1, 1, 2, 3, 29, 1, 24, 1, 29, 3, 2, 1, 1, 4, 3, 6, 1, 19, 3, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]30\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 30, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]140\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 2, 3, 3, 1, 5, 11, 5, 1, 3, 3, 2, 3, 1}}\), SequenceForm[ "l=", 140, " ", {{180, 1, 3, 2, 3, 3, 1, 5, 11, 5, 1, 3, 3, 2, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]16\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 16, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]141\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 1, 1, 5, 8, 2, 6, 1, 3, 1, 3, 1, 2, 1, 10, 1, 1, 1, 1, 2, 1, 21, 1, 35, 2, 1, 4, 4, 4, 1, 2, 35, 1, 21, 1, 2, 1, 1, 1, 1, 10, 1, 2, 1, 3, 1, 3, 1, 6, 2, 8, 5, 1, 1, 3, 1}}\), SequenceForm[ "l=", 141, " ", {{180, 1, 3, 1, 1, 5, 8, 2, 6, 1, 3, 1, 3, 1, 2, 1, 10, 1, 1, 1, 1, 2, 1, 21, 1, 35, 2, 1, 4, 4, 4, 1, 2, 35, 1, 21, 1, 2, 1, 1, 1, 1, 10, 1, 2, 1, 3, 1, 3, 1, 6, 2, 8, 5, 1, 1, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]58\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 58, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]142\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 1, 1, 1, 19, 1, 1, 7, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 7, 1, 1, 19, 1, 1, 1, 3, 1}}\), SequenceForm[ "l=", 142, " ", {{180, 1, 3, 1, 1, 1, 19, 1, 1, 7, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 7, 1, 1, 19, 1, 1, 1, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]29\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 29, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]143\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 1, 3, 1, 1, 1, 2, 3, 2, 16, 13, 1, 9, 1, 3, 25, 1, 2, 5, 1, 12, 7, 1, 4, 2, 6, 1, 1, 7, 1, 2, 1, 1, 5, 3, 1, 1, 8, 1, 89, 1, 8, 1, 1, 3, 5, 1, 1, 2, 1, 7, 1, 1, 6, 2, 4, 1, 7, 12, 1, 5, 2, 1, 25, 3, 1, 9, 1, 13, 16, 2, 3, 2, 1, 1, 1, 3, 1, 3, 1}}\), SequenceForm[ "l=", 143, " ", {{180, 1, 3, 1, 3, 1, 1, 1, 2, 3, 2, 16, 13, 1, 9, 1, 3, 25, 1, 2, 5, 1, 12, 7, 1, 4, 2, 6, 1, 1, 7, 1, 2, 1, 1, 5, 3, 1, 1, 8, 1, 89, 1, 8, 1, 1, 3, 5, 1, 1, 2, 1, 7, 1, 1, 6, 2, 4, 1, 7, 12, 1, 5, 2, 1, 25, 3, 1, 9, 1, 13, 16, 2, 3, 2, 1, 1, 1, 3, 1, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]82\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 82, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]144\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 3, 1, 10, 1, 1, 4, 1, 1, 10, 1, 3, 1}}\), SequenceForm[ "l=", 144, " ", {{180, 1, 3, 1, 10, 1, 1, 4, 1, 1, 10, 1, 3, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]145\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 4, 19, 1, 44, 2, 4, 1, 1, 4, 2, 44, 1, 19, 4, 1}}\), SequenceForm[ "l=", 145, " ", {{180, 1, 4, 19, 1, 44, 2, 4, 1, 1, 4, 2, 44, 1, 19, 4, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]17\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 17, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]146\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 4, 5, 7, 13, 1, 4, 1, 13, 7, 5, 4, 1}}\), SequenceForm[ "l=", 146, " ", {{180, 1, 4, 5, 7, 13, 1, 4, 1, 13, 7, 5, 4, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]14\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 14, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]147\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 4, 2, 1, 7, 4, 1, 3, 1, 1, 12, 2, 2, 2, 4, 2, 1, 3, 60, 3, 1, 2, 4, 2, 2, 2, 12, 1, 1, 3, 1, 4, 7, 1, 2, 4, 1}}\), SequenceForm[ "l=", 147, " ", {{180, 1, 4, 2, 1, 7, 4, 1, 3, 1, 1, 12, 2, 2, 2, 4, 2, 1, 3, 60, 3, 1, 2, 4, 2, 2, 2, 12, 1, 1, 3, 1, 4, 7, 1, 2, 4, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]38\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 38, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]148\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 4, 1, 1, 25, 2, 2, 14, 1, 2, 1, 3, 2, 1, 1, 1, 1, 1, 1, 6, 1, 19, 3, 5, 5, 1, 2, 22, 2, 1, 5, 5, 3, 19, 1, 6, 1, 1, 1, 1, 1, 1, 2, 3, 1, 2, 1, 14, 2, 2, 25, 1, 1, 4, 1}}\), SequenceForm[ "l=", 148, " ", {{180, 1, 4, 1, 1, 25, 2, 2, 14, 1, 2, 1, 3, 2, 1, 1, 1, 1, 1, 1, 6, 1, 19, 3, 5, 5, 1, 2, 22, 2, 1, 5, 5, 3, 19, 1, 6, 1, 1, 1, 1, 1, 1, 2, 3, 1, 2, 1, 14, 2, 2, 25, 1, 1, 4, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]56\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 56, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]149\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 4, 1, 2, 6, 1, 10, 2, 22, 4, 2, 1, 1, 2, 4, 22, 2, 10, 1, 6, 2, 1, 4, 1}}\), SequenceForm[ "l=", 149, " ", {{180, 1, 4, 1, 2, 6, 1, 10, 2, 22, 4, 2, 1, 1, 2, 4, 22, 2, 10, 1, 6, 2, 1, 4, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]25\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 25, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]150\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 4, 1, 6, 2, 3, 4, 7, 30, 7, 4, 3, 2, 6, 1, 4, 1}}\), SequenceForm[ "l=", 150, " ", {{180, 1, 4, 1, 6, 2, 3, 4, 7, 30, 7, 4, 3, 2, 6, 1, 4, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]18\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 18, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]151\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 5, 16, 2, 1, 6, 1, 1, 2, 5, 1, 1, 1, 19, 1, 1, 6, 4, 1, 1, 1, 2, 6, 1, 1, 1, 1, 3, 1, 4, 1, 2, 1, 1, 1, 1, 59, 1, 17, 5, 2, 4, 2, 5, 17, 1, 59, 1, 1, 1, 1, 2, 1, 4, 1, 3, 1, 1, 1, 1, 6, 2, 1, 1, 1, 4, 6, 1, 1, 19, 1, 1, 1, 5, 2, 1, 1, 6, 1, 2, 16, 5, 1}}\), SequenceForm[ "l=", 151, " ", {{180, 1, 5, 16, 2, 1, 6, 1, 1, 2, 5, 1, 1, 1, 19, 1, 1, 6, 4, 1, 1, 1, 2, 6, 1, 1, 1, 1, 3, 1, 4, 1, 2, 1, 1, 1, 1, 59, 1, 17, 5, 2, 4, 2, 5, 17, 1, 59, 1, 1, 1, 1, 2, 1, 4, 1, 3, 1, 1, 1, 1, 6, 2, 1, 1, 1, 4, 6, 1, 1, 19, 1, 1, 1, 5, 2, 1, 1, 6, 1, 2, 16, 5, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]84\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 84, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]152\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 5, 3, 1, 2, 3, 7, 1, 1, 1, 1, 22, 9, 1, 1, 13, 2, 4, 2, 2, 1, 44, 1, 2, 2, 4, 2, 13, 1, 1, 9, 22, 1, 1, 1, 1, 7, 3, 2, 1, 3, 5, 1}}\), SequenceForm[ "l=", 152, " ", {{180, 1, 5, 3, 1, 2, 3, 7, 1, 1, 1, 1, 22, 9, 1, 1, 13, 2, 4, 2, 2, 1, 44, 1, 2, 2, 4, 2, 13, 1, 1, 9, 22, 1, 1, 1, 1, 7, 3, 2, 1, 3, 5, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]44\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 44, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]153\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 5, 2, 44, 1, 24, 1, 44, 2, 5, 1}}\), SequenceForm[ "l=", 153, " ", {{180, 1, 5, 2, 44, 1, 24, 1, 44, 2, 5, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]12\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 12, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]154\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 5, 1, 2, 1, 3, 2, 16, 12, 1, 11, 5, 3, 1, 5, 3, 2, 1, 1, 3, 8, 2, 1, 2, 13, 1, 1, 1, 1, 9, 2, 29, 1, 4, 4, 2, 5, 2, 2, 2, 2, 1, 7, 1, 17, 3, 1, 1, 35, 1, 3, 2, 1, 4, 1, 4, 2, 1, 2, 1, 1, 1, 1, 1, 1, 59, 1, 19, 4, 1, 6, 5, 2, 1, 3, 1, 1, 1, 3, 2, 1, 1, 11, 1, 1, 10, 5, 1, 25, 8, 4, 1, 1, 6, 1, 2, 2, 90, 2, 2, 1, 6, 1, 1, 4, 8, 25, 1, 5, 10, 1, 1, 11, 1, 1, 2, 3, 1, 1, 1, 3, 1, 2, 5, 6, 1, 4, 19, 1, 59, 1, 1, 1, 1, 1, 1, 2, 1, 2, 4, 1, 4, 1, 2, 3, 1, 35, 1, 1, 3, 17, 1, 7, 1, 2, 2, 2, 2, 5, 2, 4, 4, 1, 29, 2, 9, 1, 1, 1, 1, 13, 2, 1, 2, 8, 3, 1, 1, 2, 3, 5, 1, 3, 5, 11, 1, 12, 16, 2, 3, 1, 2, 1, 5, 1}}\), SequenceForm[ "l=", 154, " ", {{180, 1, 5, 1, 2, 1, 3, 2, 16, 12, 1, 11, 5, 3, 1, 5, 3, 2, 1, 1, 3, 8, 2, 1, 2, 13, 1, 1, 1, 1, 9, 2, 29, 1, 4, 4, 2, 5, 2, 2, 2, 2, 1, 7, 1, 17, 3, 1, 1, 35, 1, 3, 2, 1, 4, 1, 4, 2, 1, 2, 1, 1, 1, 1, 1, 1, 59, 1, 19, 4, 1, 6, 5, 2, 1, 3, 1, 1, 1, 3, 2, 1, 1, 11, 1, 1, 10, 5, 1, 25, 8, 4, 1, 1, 6, 1, 2, 2, 90, 2, 2, 1, 6, 1, 1, 4, 8, 25, 1, 5, 10, 1, 1, 11, 1, 1, 2, 3, 1, 1, 1, 3, 1, 2, 5, 6, 1, 4, 19, 1, 59, 1, 1, 1, 1, 1, 1, 2, 1, 2, 4, 1, 4, 1, 2, 3, 1, 35, 1, 1, 3, 17, 1, 7, 1, 2, 2, 2, 2, 5, 2, 4, 4, 1, 29, 2, 9, 1, 1, 1, 1, 13, 2, 1, 2, 8, 3, 1, 1, 2, 3, 5, 1, 3, 5, 11, 1, 12, 16, 2, 3, 1, 2, 1, 5, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]196\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 196, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]155\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 5, 1}}\), SequenceForm[ "l=", 155, " ", {{180, 1, 5, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]4\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 4, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]156\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 6, 3, 1, 1, 1, 4, 45, 4, 1, 1, 1, 3, 6, 1}}\), SequenceForm[ "l=", 156, " ", {{180, 1, 6, 3, 1, 1, 1, 4, 45, 4, 1, 1, 1, 3, 6, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]16\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 16, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]157\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 6, 1, 1, 2, 1, 2, 2, 8, 4, 3, 5, 2, 1, 2, 3, 2, 2, 2, 2, 9, 6, 1, 1, 1, 1, 1, 59, 1, 21, 1, 2, 1, 3, 25, 1, 2, 3, 1, 1, 8, 11, 4, 7, 3, 19, 1, 6, 1, 19, 3, 7, 4, 11, 8, 1, 1, 3, 2, 1, 25, 3, 1, 2, 1, 21, 1, 59, 1, 1, 1, 1, 1, 6, 9, 2, 2, 2, 2, 3, 2, 1, 2, 5, 3, 4, 8, 2, 2, 1, 2, 1, 1, 6, 1}}\), SequenceForm[ "l=", 157, " ", {{180, 1, 6, 1, 1, 2, 1, 2, 2, 8, 4, 3, 5, 2, 1, 2, 3, 2, 2, 2, 2, 9, 6, 1, 1, 1, 1, 1, 59, 1, 21, 1, 2, 1, 3, 25, 1, 2, 3, 1, 1, 8, 11, 4, 7, 3, 19, 1, 6, 1, 19, 3, 7, 4, 11, 8, 1, 1, 3, 2, 1, 25, 3, 1, 2, 1, 21, 1, 59, 1, 1, 1, 1, 1, 6, 9, 2, 2, 2, 2, 3, 2, 1, 2, 5, 3, 4, 8, 2, 2, 1, 2, 1, 1, 6, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]96\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 96, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]158\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 6, 1, 9, 1, 4, 2, 3, 2, 90, 2, 3, 2, 4, 1, 9, 1, 6, 1}}\), SequenceForm[ "l=", 158, " ", {{180, 1, 6, 1, 9, 1, 4, 2, 3, 2, 90, 2, 3, 2, 4, 1, 9, 1, 6, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]20\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 20, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]159\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 7, 3, 1, 2, 1, 7, 5, 1, 13, 6, 1, 11, 3, 1, 6, 1, 1, 15, 1, 89, 1, 15, 1, 1, 6, 1, 3, 11, 1, 6, 13, 1, 5, 7, 1, 2, 1, 3, 7, 1}}\), SequenceForm[ "l=", 159, " ", {{180, 1, 7, 3, 1, 2, 1, 7, 5, 1, 13, 6, 1, 11, 3, 1, 6, 1, 1, 15, 1, 89, 1, 15, 1, 1, 6, 1, 3, 11, 1, 6, 13, 1, 5, 7, 1, 2, 1, 3, 7, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]42\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 42, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]160\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 7, 1, 1, 1, 19, 1, 1, 5, 2, 1, 5, 1, 1, 2, 1, 1, 5, 1, 2, 5, 1, 1, 19, 1, 1, 1, 7, 1}}\), SequenceForm[ "l=", 160, " ", {{180, 1, 7, 1, 1, 1, 19, 1, 1, 5, 2, 1, 5, 1, 1, 2, 1, 1, 5, 1, 2, 5, 1, 1, 19, 1, 1, 1, 7, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]30\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 30, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]161\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 8, 10, 1, 1, 2, 1, 1, 3, 1, 5, 1, 2, 2, 4, 1, 3, 3, 5, 1, 25, 7, 1, 6, 2, 1, 1, 8, 2, 44, 1, 35, 2, 1, 1, 1, 4, 1, 1, 3, 6, 4, 1, 3, 16, 3, 1, 4, 6, 3, 1, 1, 4, 1, 1, 1, 2, 35, 1, 44, 2, 8, 1, 1, 2, 6, 1, 7, 25, 1, 5, 3, 3, 1, 4, 2, 2, 1, 5, 1, 3, 1, 1, 2, 1, 1, 10, 8, 1}}\), SequenceForm[ "l=", 161, " ", {{180, 1, 8, 10, 1, 1, 2, 1, 1, 3, 1, 5, 1, 2, 2, 4, 1, 3, 3, 5, 1, 25, 7, 1, 6, 2, 1, 1, 8, 2, 44, 1, 35, 2, 1, 1, 1, 4, 1, 1, 3, 6, 4, 1, 3, 16, 3, 1, 4, 6, 3, 1, 1, 4, 1, 1, 1, 2, 35, 1, 44, 2, 8, 1, 1, 2, 6, 1, 7, 25, 1, 5, 3, 3, 1, 4, 2, 2, 1, 5, 1, 3, 1, 1, 2, 1, 1, 10, 8, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]90\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 90, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]162\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 8, 1, 1, 2, 1, 9, 2, 1, 1, 1, 1, 3, 3, 1, 19, 2, 3, 4, 2, 90, 2, 4, 3, 2, 19, 1, 3, 3, 1, 1, 1, 1, 2, 9, 1, 2, 1, 1, 8, 1}}\), SequenceForm[ "l=", 162, " ", {{180, 1, 8, 1, 1, 2, 1, 9, 2, 1, 1, 1, 1, 3, 3, 1, 19, 2, 3, 4, 2, 90, 2, 4, 3, 2, 19, 1, 3, 3, 1, 1, 1, 1, 2, 9, 1, 2, 1, 1, 8, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]42\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 42, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]163\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 9, 9, 2, 7, 2, 3, 10, 2, 2, 6, 3, 29, 1, 59, 1, 1, 1, 2, 1, 2, 2, 1, 4, 1, 1, 1, 4, 3, 1, 2, 1, 4, 19, 1, 89, 1, 19, 4, 1, 2, 1, 3, 4, 1, 1, 1, 4, 1, 2, 2, 1, 2, 1, 1, 1, 59, 1, 29, 3, 6, 2, 2, 10, 3, 2, 7, 2, 9, 9, 1}}\), SequenceForm[ "l=", 163, " ", {{180, 1, 9, 9, 2, 7, 2, 3, 10, 2, 2, 6, 3, 29, 1, 59, 1, 1, 1, 2, 1, 2, 2, 1, 4, 1, 1, 1, 4, 3, 1, 2, 1, 4, 19, 1, 89, 1, 19, 4, 1, 2, 1, 3, 4, 1, 1, 1, 4, 1, 2, 2, 1, 2, 1, 1, 1, 59, 1, 29, 3, 6, 2, 2, 10, 3, 2, 7, 2, 9, 9, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]72\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 72, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]164\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 9, 1, 2, 2, 1, 25, 3, 1, 2, 22, 2, 1, 3, 25, 1, 2, 2, 1, 9, 1}}\), SequenceForm[ "l=", 164, " ", {{180, 1, 9, 1, 2, 2, 1, 25, 3, 1, 2, 22, 2, 1, 3, 25, 1, 2, 2, 1, 9, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]22\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 22, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]165\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 10, 2, 1, 2, 2, 2, 7, 6, 7, 2, 2, 2, 1, 2, 10, 1}}\), SequenceForm[ "l=", 165, " ", {{180, 1, 10, 2, 1, 2, 2, 2, 7, 6, 7, 2, 2, 2, 1, 2, 10, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]18\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 18, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]166\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 11, 7, 1, 4, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 4, 1, 7, 11, 1}}\), SequenceForm[ "l=", 166, " ", {{180, 1, 11, 7, 1, 4, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 4, 1, 7, 11, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]33\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 33, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]167\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 11, 1}}\), SequenceForm[ "l=", 167, " ", {{180, 1, 11, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]4\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 4, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]168\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 12, 1}}\), SequenceForm[ "l=", 168, " ", {{180, 1, 12, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]4\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 4, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]169\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 14, 6, 4, 1, 7, 1, 5, 1, 5, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 35, 1, 3, 1, 2, 4, 3, 3, 1, 2, 1, 2, 1, 2, 3, 2, 1, 8, 2, 1, 1, 11, 1, 1, 8, 7, 6, 2, 1, 4, 1, 1, 19, 1, 1, 1, 14, 2, 44, 1, 59, 1, 1, 1, 4, 2, 1, 1, 2, 2, 25, 1, 1, 3, 1, 1, 7, 2, 1, 8, 1, 8, 5, 11, 1, 13, 13, 1, 11, 5, 8, 1, 8, 1, 2, 7, 1, 1, 3, 1, 1, 25, 2, 2, 1, 1, 2, 4, 1, 1, 1, 59, 1, 44, 2, 14, 1, 1, 1, 19, 1, 1, 4, 1, 2, 6, 7, 8, 1, 1, 11, 1, 1, 2, 8, 1, 2, 3, 2, 1, 2, 1, 2, 1, 3, 3, 4, 2, 1, 3, 1, 35, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 3, 1, 1, 1, 5, 1, 5, 1, 7, 1, 4, 6, 14, 1}}\), SequenceForm[ "l=", 169, " ", {{180, 1, 14, 6, 4, 1, 7, 1, 5, 1, 5, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 35, 1, 3, 1, 2, 4, 3, 3, 1, 2, 1, 2, 1, 2, 3, 2, 1, 8, 2, 1, 1, 11, 1, 1, 8, 7, 6, 2, 1, 4, 1, 1, 19, 1, 1, 1, 14, 2, 44, 1, 59, 1, 1, 1, 4, 2, 1, 1, 2, 2, 25, 1, 1, 3, 1, 1, 7, 2, 1, 8, 1, 8, 5, 11, 1, 13, 13, 1, 11, 5, 8, 1, 8, 1, 2, 7, 1, 1, 3, 1, 1, 25, 2, 2, 1, 1, 2, 4, 1, 1, 1, 59, 1, 44, 2, 14, 1, 1, 1, 19, 1, 1, 4, 1, 2, 6, 7, 8, 1, 1, 11, 1, 1, 2, 8, 1, 2, 3, 2, 1, 2, 1, 2, 1, 3, 3, 4, 2, 1, 3, 1, 35, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 3, 1, 1, 1, 5, 1, 5, 1, 7, 1, 4, 6, 14, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]181\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 181, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]170\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 15, 1, 1, 5, 1, 3, 9, 3, 5, 36, 5, 3, 9, 3, 1, 5, 1, 1, 15, 1}}\), SequenceForm[ "l=", 170, " ", {{180, 1, 15, 1, 1, 5, 1, 3, 9, 3, 5, 36, 5, 3, 9, 3, 1, 5, 1, 1, 15, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]22\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 22, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]171\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 17, 5, 7, 12, 1, 5, 1, 4, 2, 1, 13, 3, 3, 2, 1, 1, 2, 2, 1, 1, 4, 1, 3, 4, 1, 1, 9, 1, 1, 4, 3, 1, 4, 1, 1, 2, 2, 1, 1, 2, 3, 3, 13, 1, 2, 4, 1, 5, 1, 12, 7, 5, 17, 1}}\), SequenceForm[ "l=", 171, " ", {{180, 1, 17, 5, 7, 12, 1, 5, 1, 4, 2, 1, 13, 3, 3, 2, 1, 1, 2, 2, 1, 1, 4, 1, 3, 4, 1, 1, 9, 1, 1, 4, 3, 1, 4, 1, 1, 2, 2, 1, 1, 2, 3, 3, 13, 1, 2, 4, 1, 5, 1, 12, 7, 5, 17, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]56\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 56, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]172\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 19, 4, 1, 1, 1, 1, 2, 4, 3, 1, 1, 3, 1, 1, 3, 4, 2, 1, 1, 1, 1, 4, 19, 1}}\), SequenceForm[ "l=", 172, " ", {{180, 1, 19, 4, 1, 1, 1, 1, 2, 4, 3, 1, 1, 3, 1, 1, 3, 4, 2, 1, 1, 1, 1, 4, 19, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]26\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 26, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]173\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 21, 1, 2, 1, 10, 1, 1, 1, 1, 1, 5, 16, 2, 1, 3, 1, 1, 3, 1, 7, 7, 1, 3, 1, 1, 3, 1, 2, 16, 5, 1, 1, 1, 1, 1, 10, 1, 2, 1, 21, 1}}\), SequenceForm[ "l=", 173, " ", {{180, 1, 21, 1, 2, 1, 10, 1, 1, 1, 1, 1, 5, 16, 2, 1, 3, 1, 1, 3, 1, 7, 7, 1, 3, 1, 1, 3, 1, 2, 16, 5, 1, 1, 1, 1, 1, 10, 1, 2, 1, 21, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]43\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 43, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]174\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 24, 1}}\), SequenceForm[ "l=", 174, " ", {{180, 1, 24, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]4\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 4, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]175\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 29, 3, 19, 1, 7, 1, 2, 2, 12, 1, 1, 3, 8, 2, 1, 1, 1, 2, 1, 15, 1, 4, 2, 2, 3, 3, 3, 1, 1, 1, 6, 1, 1, 1, 3, 3, 3, 2, 2, 4, 1, 15, 1, 2, 1, 1, 1, 2, 8, 3, 1, 1, 12, 2, 2, 1, 7, 1, 19, 3, 29, 1}}\), SequenceForm[ "l=", 175, " ", {{180, 1, 29, 3, 19, 1, 7, 1, 2, 2, 12, 1, 1, 3, 8, 2, 1, 1, 1, 2, 1, 15, 1, 4, 2, 2, 3, 3, 3, 1, 1, 1, 6, 1, 1, 1, 3, 3, 3, 2, 2, 4, 1, 15, 1, 2, 1, 1, 1, 2, 8, 3, 1, 1, 12, 2, 2, 1, 7, 1, 19, 3, 29, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]64\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 64, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]176\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 35, 2, 1, 1, 6, 1, 2, 8, 1, 2, 1, 44, 1, 2, 1, 8, 2, 1, 6, 1, 1, 2, 35, 1}}\), SequenceForm[ "l=", 176, " ", {{180, 1, 35, 2, 1, 1, 6, 1, 2, 8, 1, 2, 1, 44, 1, 2, 1, 8, 2, 1, 6, 1, 1, 2, 35, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]26\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 26, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]177\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 44, 2, 44, 1}}\), SequenceForm[ "l=", 177, " ", {{180, 1, 44, 2, 44, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]6\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 6, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]178\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 59, 1, 1, 1, 19, 1, 1, 4, 6, 1, 1, 13, 2, 5, 1, 3, 1, 4, 1, 1, 3, 1, 3, 1, 1, 1, 12, 2, 1, 4, 4, 8, 2, 2, 1, 25, 3, 1, 1, 8, 10, 1, 1, 2, 2, 1, 2, 1, 6, 3, 1, 2, 1, 1, 1, 1, 3, 9, 1, 4, 1, 29, 2, 90, 2, 29, 1, 4, 1, 9, 3, 1, 1, 1, 1, 2, 1, 3, 6, 1, 2, 1, 2, 2, 1, 1, 10, 8, 1, 1, 3, 25, 1, 2, 2, 8, 4, 4, 1, 2, 12, 1, 1, 1, 3, 1, 3, 1, 1, 4, 1, 3, 1, 5, 2, 13, 1, 1, 6, 4, 1, 1, 19, 1, 1, 1, 59, 1}}\), SequenceForm[ "l=", 178, " ", {{180, 1, 59, 1, 1, 1, 19, 1, 1, 4, 6, 1, 1, 13, 2, 5, 1, 3, 1, 4, 1, 1, 3, 1, 3, 1, 1, 1, 12, 2, 1, 4, 4, 8, 2, 2, 1, 25, 3, 1, 1, 8, 10, 1, 1, 2, 2, 1, 2, 1, 6, 3, 1, 2, 1, 1, 1, 1, 3, 9, 1, 4, 1, 29, 2, 90, 2, 29, 1, 4, 1, 9, 3, 1, 1, 1, 1, 2, 1, 3, 6, 1, 2, 1, 2, 2, 1, 1, 10, 8, 1, 1, 3, 25, 1, 2, 2, 8, 4, 4, 1, 2, 12, 1, 1, 1, 3, 1, 3, 1, 1, 4, 1, 3, 1, 5, 2, 13, 1, 1, 6, 4, 1, 1, 19, 1, 1, 1, 59, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]130\[InvisibleSpace]" digits \ in repeating block"\), SequenceForm[ " ", 130, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]179\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1, 89, 1}}\), SequenceForm[ "l=", 179, " ", {{180, 1, 89, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]4\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 4, " digits in repeating block"], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]180\[InvisibleSpace]" "\ \[InvisibleSpace]{{180, 1}}\), SequenceForm[ "l=", 180, " ", {{180, 1}}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\(" "\[InvisibleSpace]2\[InvisibleSpace]" digits in \ repeating block"\), SequenceForm[ " ", 2, " digits in repeating block"], Editable->False]], "Print"] }, Open ]] }, FrontEndVersion->"4.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, WindowSize->{1016, 668}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1754, 51, 534, 8, 110, "Input"], Cell[2291, 61, 68, 1, 30, "Input"], Cell[CellGroupData[{ Cell[2384, 66, 590, 11, 170, "Input"], Cell[2977, 79, 171, 3, 29, "Output"], Cell[3151, 84, 63, 1, 29, "Output"], Cell[3217, 87, 63, 1, 29, "Output"] }, Open ]], Cell[3295, 91, 26, 0, 30, "Input"], Cell[CellGroupData[{ Cell[3346, 95, 386, 7, 90, "Input"], Cell[3735, 104, 193, 4, 25, "Print"], Cell[3931, 110, 210, 4, 25, "Print"], Cell[4144, 116, 201, 4, 25, "Print"], Cell[4348, 122, 210, 4, 25, "Print"], Cell[4561, 128, 201, 4, 25, "Print"], Cell[4765, 134, 210, 4, 25, "Print"], Cell[4978, 140, 201, 4, 25, "Print"], Cell[5182, 146, 210, 4, 25, "Print"], Cell[5395, 152, 201, 4, 25, "Print"], Cell[5599, 158, 210, 4, 25, "Print"], Cell[5812, 164, 201, 4, 25, "Print"], Cell[6016, 170, 210, 4, 25, "Print"], Cell[6229, 176, 552, 9, 44, "Print"], Cell[6784, 187, 212, 4, 25, "Print"], Cell[6999, 193, 241, 4, 25, "Print"], Cell[7243, 199, 210, 4, 25, "Print"], Cell[7456, 205, 201, 4, 25, "Print"], Cell[7660, 211, 210, 4, 25, "Print"], Cell[7873, 217, 203, 4, 25, "Print"], Cell[8079, 223, 210, 4, 25, "Print"], Cell[8292, 229, 736, 11, 44, "Print"], Cell[9031, 242, 212, 4, 25, "Print"], Cell[9246, 248, 203, 4, 25, "Print"], Cell[9452, 254, 210, 4, 25, "Print"], Cell[9665, 260, 284, 5, 25, "Print"], Cell[9952, 267, 212, 4, 25, "Print"], Cell[10167, 273, 432, 7, 25, "Print"], Cell[10602, 282, 212, 4, 25, "Print"], Cell[10817, 288, 203, 4, 25, "Print"], Cell[11023, 294, 210, 4, 25, "Print"], Cell[11236, 300, 290, 5, 25, "Print"], Cell[11529, 307, 212, 4, 25, "Print"], Cell[11744, 313, 510, 9, 25, "Print"], Cell[12257, 324, 212, 4, 25, "Print"], Cell[12472, 330, 203, 4, 25, "Print"], Cell[12678, 336, 210, 4, 25, "Print"], Cell[12891, 342, 416, 7, 25, "Print"], Cell[13310, 351, 212, 4, 25, "Print"], Cell[13525, 357, 201, 4, 25, "Print"], Cell[13729, 363, 210, 4, 25, "Print"], Cell[13942, 369, 332, 7, 25, "Print"], Cell[14277, 378, 212, 4, 25, "Print"], Cell[14492, 384, 694, 11, 44, "Print"], Cell[15189, 397, 212, 4, 25, "Print"], Cell[15404, 403, 428, 7, 25, "Print"], Cell[15835, 412, 212, 4, 25, "Print"], Cell[16050, 418, 239, 4, 25, "Print"], Cell[16292, 424, 210, 4, 25, "Print"], Cell[16505, 430, 255, 4, 25, "Print"], Cell[16763, 436, 212, 4, 25, "Print"], Cell[16978, 442, 243, 4, 25, "Print"], Cell[17224, 448, 210, 4, 25, "Print"], Cell[17437, 454, 284, 5, 25, "Print"], Cell[17724, 461, 212, 4, 25, "Print"], Cell[17939, 467, 386, 7, 25, "Print"], Cell[18328, 476, 212, 4, 25, "Print"], Cell[18543, 482, 810, 13, 44, "Print"], Cell[19356, 497, 212, 4, 25, "Print"], Cell[19571, 503, 201, 4, 25, "Print"], Cell[19775, 509, 210, 4, 25, "Print"], Cell[19988, 515, 625, 10, 44, "Print"], Cell[20616, 527, 212, 4, 25, "Print"], Cell[20831, 533, 362, 7, 25, "Print"], Cell[21196, 542, 212, 4, 25, "Print"], Cell[21411, 548, 566, 9, 44, "Print"], Cell[21980, 559, 212, 4, 25, "Print"], Cell[22195, 565, 738, 11, 44, "Print"], Cell[22936, 578, 212, 4, 25, "Print"], Cell[23151, 584, 416, 7, 25, "Print"], Cell[23570, 593, 212, 4, 25, "Print"], Cell[23785, 599, 201, 4, 25, "Print"], Cell[23989, 605, 210, 4, 25, "Print"], Cell[24202, 611, 775, 12, 44, "Print"], Cell[24980, 625, 212, 4, 25, "Print"], Cell[25195, 631, 280, 5, 25, "Print"], Cell[25478, 638, 212, 4, 25, "Print"], Cell[25693, 644, 376, 7, 25, "Print"], Cell[26072, 653, 212, 4, 25, "Print"], Cell[26287, 659, 239, 4, 25, "Print"], Cell[26529, 665, 210, 4, 25, "Print"], Cell[26742, 671, 866, 13, 63, "Print"], Cell[27611, 686, 212, 4, 25, "Print"], Cell[27826, 692, 225, 4, 25, "Print"], Cell[28054, 698, 210, 4, 25, "Print"], Cell[28267, 704, 700, 11, 44, "Print"], Cell[28970, 717, 212, 4, 25, "Print"], Cell[29185, 723, 428, 7, 25, "Print"], Cell[29616, 732, 212, 4, 25, "Print"], Cell[29831, 738, 201, 4, 25, "Print"], Cell[30035, 744, 210, 4, 25, "Print"], Cell[30248, 750, 348, 7, 25, "Print"], Cell[30599, 759, 212, 4, 25, "Print"], Cell[30814, 765, 502, 9, 25, "Print"], Cell[31319, 776, 212, 4, 25, "Print"], Cell[31534, 782, 255, 4, 25, "Print"], Cell[31792, 788, 212, 4, 25, "Print"], Cell[32007, 794, 430, 7, 25, "Print"], Cell[32440, 803, 212, 4, 25, "Print"], Cell[32655, 809, 268, 5, 25, "Print"], Cell[32926, 816, 212, 4, 25, "Print"], Cell[33141, 822, 268, 5, 25, "Print"], Cell[33412, 829, 212, 4, 25, "Print"], Cell[33627, 835, 700, 11, 44, "Print"], Cell[34330, 848, 212, 4, 25, "Print"], Cell[34545, 854, 346, 7, 25, "Print"], Cell[34894, 863, 212, 4, 25, "Print"], Cell[35109, 869, 284, 5, 25, "Print"], Cell[35396, 876, 212, 4, 25, "Print"], Cell[35611, 882, 440, 7, 25, "Print"], Cell[36054, 891, 212, 4, 25, "Print"], Cell[36269, 897, 878, 13, 63, "Print"], Cell[37150, 912, 212, 4, 25, "Print"], Cell[37365, 918, 554, 9, 44, "Print"], Cell[37922, 929, 212, 4, 25, "Print"], Cell[38137, 935, 898, 13, 63, "Print"], Cell[39038, 950, 214, 4, 25, "Print"], Cell[39255, 956, 396, 7, 25, "Print"], Cell[39654, 965, 212, 4, 25, "Print"], Cell[39869, 971, 201, 4, 25, "Print"], Cell[40073, 977, 210, 4, 25, "Print"], Cell[40286, 983, 1093, 16, 63, "Print"], Cell[41382, 1001, 214, 4, 25, "Print"], Cell[41599, 1007, 251, 4, 25, "Print"], Cell[41853, 1013, 212, 4, 25, "Print"], Cell[42068, 1019, 432, 7, 25, "Print"], Cell[42503, 1028, 212, 4, 25, "Print"], Cell[42718, 1034, 396, 7, 25, "Print"], Cell[43117, 1043, 212, 4, 25, "Print"], Cell[43332, 1049, 237, 4, 25, "Print"], Cell[43572, 1055, 210, 4, 25, "Print"], Cell[43785, 1061, 550, 9, 44, "Print"], Cell[44338, 1072, 212, 4, 25, "Print"], Cell[44553, 1078, 1085, 16, 63, "Print"], Cell[45641, 1096, 214, 4, 25, "Print"], Cell[45858, 1102, 380, 7, 25, "Print"], Cell[46241, 1111, 212, 4, 25, "Print"], Cell[46456, 1117, 518, 9, 44, "Print"], Cell[46977, 1128, 212, 4, 25, "Print"], Cell[47192, 1134, 382, 7, 25, "Print"], Cell[47577, 1143, 212, 4, 25, "Print"], Cell[47792, 1149, 870, 13, 63, "Print"], Cell[48665, 1164, 212, 4, 25, "Print"], Cell[48880, 1170, 239, 4, 25, "Print"], Cell[49122, 1176, 210, 4, 25, "Print"], Cell[49335, 1182, 510, 9, 25, "Print"], Cell[49848, 1193, 212, 4, 25, "Print"], Cell[50063, 1199, 463, 8, 25, "Print"], Cell[50529, 1209, 212, 4, 25, "Print"], Cell[50744, 1215, 280, 5, 25, "Print"], Cell[51027, 1222, 212, 4, 25, "Print"], Cell[51242, 1228, 514, 9, 25, "Print"], Cell[51759, 1239, 212, 4, 25, "Print"], Cell[51974, 1245, 311, 6, 25, "Print"], Cell[52288, 1253, 212, 4, 25, "Print"], Cell[52503, 1259, 330, 7, 25, "Print"], Cell[52836, 1268, 212, 4, 25, "Print"], Cell[53051, 1274, 1081, 16, 63, "Print"], Cell[54135, 1292, 214, 4, 25, "Print"], Cell[54352, 1298, 284, 5, 25, "Print"], Cell[54639, 1305, 212, 4, 25, "Print"], Cell[54854, 1311, 438, 7, 25, "Print"], Cell[55295, 1320, 212, 4, 25, "Print"], Cell[55510, 1326, 606, 9, 44, "Print"], Cell[56119, 1337, 212, 4, 25, "Print"], Cell[56334, 1343, 237, 4, 25, "Print"], Cell[56574, 1349, 210, 4, 25, "Print"], Cell[56787, 1355, 268, 5, 25, "Print"], Cell[57058, 1362, 212, 4, 25, "Print"], Cell[57273, 1368, 219, 4, 25, "Print"], Cell[57495, 1374, 210, 4, 25, "Print"], Cell[57708, 1380, 436, 7, 25, "Print"], Cell[58147, 1389, 212, 4, 25, "Print"], Cell[58362, 1395, 526, 9, 44, "Print"], Cell[58891, 1406, 212, 4, 25, "Print"], Cell[59106, 1412, 494, 9, 25, "Print"], Cell[59603, 1423, 212, 4, 25, "Print"], Cell[59818, 1429, 734, 11, 44, "Print"], Cell[60555, 1442, 212, 4, 25, "Print"], Cell[60770, 1448, 201, 4, 25, "Print"], Cell[60974, 1454, 210, 4, 25, "Print"], Cell[61187, 1460, 1389, 20, 101, "Print"], Cell[62579, 1482, 214, 4, 25, "Print"], Cell[62796, 1488, 538, 9, 44, "Print"], Cell[63337, 1499, 212, 4, 25, "Print"], Cell[63552, 1505, 728, 11, 44, "Print"], Cell[64283, 1518, 212, 4, 25, "Print"], Cell[64498, 1524, 344, 7, 25, "Print"], Cell[64845, 1533, 212, 4, 25, "Print"], Cell[65060, 1539, 239, 4, 25, "Print"], Cell[65302, 1545, 210, 4, 25, "Print"], Cell[65515, 1551, 514, 9, 25, "Print"], Cell[66032, 1562, 212, 4, 25, "Print"], Cell[66247, 1568, 332, 7, 25, "Print"], Cell[66582, 1577, 212, 4, 25, "Print"], Cell[66797, 1583, 700, 11, 44, "Print"], Cell[67500, 1596, 212, 4, 25, "Print"], Cell[67715, 1602, 594, 9, 44, "Print"], Cell[68312, 1613, 212, 4, 25, "Print"], Cell[68527, 1619, 253, 4, 25, "Print"], Cell[68783, 1625, 212, 4, 25, "Print"], Cell[68998, 1631, 676, 11, 44, "Print"], Cell[69677, 1644, 212, 4, 25, "Print"], Cell[69892, 1650, 442, 7, 25, "Print"], Cell[70337, 1659, 212, 4, 25, "Print"], Cell[70552, 1665, 476, 9, 25, "Print"], Cell[71031, 1676, 212, 4, 25, "Print"], Cell[71246, 1682, 556, 9, 44, "Print"], Cell[71805, 1693, 212, 4, 25, "Print"], Cell[72020, 1699, 461, 8, 25, "Print"], Cell[72484, 1709, 212, 4, 25, "Print"], Cell[72699, 1715, 882, 13, 63, "Print"], Cell[73584, 1730, 212, 4, 25, "Print"], Cell[73799, 1736, 307, 6, 25, "Print"], Cell[74109, 1744, 212, 4, 25, "Print"], Cell[74324, 1750, 286, 5, 25, "Print"], Cell[74613, 1757, 212, 4, 25, "Print"], Cell[74828, 1763, 1245, 18, 82, "Print"], Cell[76076, 1783, 214, 4, 25, "Print"], Cell[76293, 1789, 309, 6, 25, "Print"], Cell[76605, 1797, 212, 4, 25, "Print"], Cell[76820, 1803, 282, 5, 25, "Print"], Cell[77105, 1810, 212, 4, 25, "Print"], Cell[77320, 1816, 1144, 17, 82, "Print"], Cell[78467, 1835, 214, 4, 25, "Print"], Cell[78684, 1841, 708, 11, 44, "Print"], Cell[79395, 1854, 212, 4, 25, "Print"], Cell[79610, 1860, 488, 9, 25, "Print"], Cell[80101, 1871, 212, 4, 25, "Print"], Cell[80316, 1877, 524, 9, 44, "Print"], Cell[80843, 1888, 212, 4, 25, "Print"], Cell[81058, 1894, 282, 5, 25, "Print"], Cell[81343, 1901, 212, 4, 25, "Print"], Cell[81558, 1907, 384, 7, 25, "Print"], Cell[81945, 1916, 212, 4, 25, "Print"], Cell[82160, 1922, 492, 9, 25, "Print"], Cell[82655, 1933, 212, 4, 25, "Print"], Cell[82870, 1939, 876, 13, 63, "Print"], Cell[83749, 1954, 212, 4, 25, "Print"], Cell[83964, 1960, 241, 4, 25, "Print"], Cell[84208, 1966, 210, 4, 25, "Print"], Cell[84421, 1972, 1010, 15, 63, "Print"], Cell[85434, 1989, 214, 4, 25, "Print"], Cell[85651, 1995, 544, 9, 44, "Print"], Cell[86198, 2006, 212, 4, 25, "Print"], Cell[86413, 2012, 402, 7, 25, "Print"], Cell[86818, 2021, 212, 4, 25, "Print"], Cell[87033, 2027, 227, 4, 25, "Print"], Cell[87263, 2033, 210, 4, 25, "Print"], Cell[87476, 2039, 368, 7, 25, "Print"], Cell[87847, 2048, 212, 4, 25, "Print"], Cell[88062, 2054, 398, 7, 25, "Print"], Cell[88463, 2063, 212, 4, 25, "Print"], Cell[88678, 2069, 330, 7, 25, "Print"], Cell[89011, 2078, 212, 4, 25, "Print"], Cell[89226, 2084, 227, 4, 25, "Print"], Cell[89456, 2090, 210, 4, 25, "Print"], Cell[89669, 2096, 276, 5, 25, "Print"], Cell[89948, 2103, 212, 4, 25, "Print"], Cell[90163, 2109, 552, 9, 44, "Print"], Cell[90718, 2120, 212, 4, 25, "Print"], Cell[90933, 2126, 710, 11, 44, "Print"], Cell[91646, 2139, 212, 4, 25, "Print"], Cell[91861, 2145, 352, 7, 25, "Print"], Cell[92216, 2154, 212, 4, 25, "Print"], Cell[92431, 2160, 1156, 17, 82, "Print"], Cell[93590, 2179, 214, 4, 25, "Print"], Cell[93807, 2185, 465, 8, 25, "Print"], Cell[94275, 2195, 212, 4, 25, "Print"], Cell[94490, 2201, 274, 5, 25, "Print"], Cell[94767, 2208, 212, 4, 25, "Print"], Cell[94982, 2214, 498, 9, 25, "Print"], Cell[95483, 2225, 212, 4, 25, "Print"], Cell[95698, 2231, 560, 9, 44, "Print"], Cell[96261, 2242, 212, 4, 25, "Print"], Cell[96476, 2248, 342, 7, 25, "Print"], Cell[96821, 2257, 212, 4, 25, "Print"], Cell[97036, 2263, 410, 7, 25, "Print"], Cell[97449, 2272, 212, 4, 25, "Print"], Cell[97664, 2278, 305, 6, 25, "Print"], Cell[97972, 2286, 212, 4, 25, "Print"], Cell[98187, 2292, 602, 9, 44, "Print"], Cell[98792, 2303, 212, 4, 25, "Print"], Cell[99007, 2309, 398, 7, 25, "Print"], Cell[99408, 2318, 212, 4, 25, "Print"], Cell[99623, 2324, 787, 12, 44, "Print"], Cell[100413, 2338, 212, 4, 25, "Print"], Cell[100628, 2344, 286, 5, 25, "Print"], Cell[100917, 2351, 212, 4, 25, "Print"], Cell[101132, 2357, 330, 7, 25, "Print"], Cell[101465, 2366, 212, 4, 25, "Print"], Cell[101680, 2372, 286, 5, 25, "Print"], Cell[101969, 2379, 212, 4, 25, "Print"], Cell[102184, 2385, 461, 8, 25, "Print"], Cell[102648, 2395, 212, 4, 25, "Print"], Cell[102863, 2401, 592, 9, 44, "Print"], Cell[103458, 2412, 212, 4, 25, "Print"], Cell[103673, 2418, 378, 7, 25, "Print"], Cell[104054, 2427, 212, 4, 25, "Print"], Cell[104269, 2433, 330, 7, 25, "Print"], Cell[104602, 2442, 212, 4, 25, "Print"], Cell[104817, 2448, 806, 13, 44, "Print"], Cell[105626, 2463, 212, 4, 25, "Print"], Cell[105841, 2469, 516, 9, 25, "Print"], Cell[106360, 2480, 212, 4, 25, "Print"], Cell[106575, 2486, 276, 5, 25, "Print"], Cell[106854, 2493, 212, 4, 25, "Print"], Cell[107069, 2499, 1622, 23, 120, "Print"], Cell[108694, 2524, 214, 4, 25, "Print"], Cell[108911, 2530, 215, 4, 25, "Print"], Cell[109129, 2536, 210, 4, 25, "Print"], Cell[109342, 2542, 305, 6, 25, "Print"], Cell[109650, 2550, 212, 4, 25, "Print"], Cell[109865, 2556, 882, 13, 63, "Print"], Cell[110750, 2571, 212, 4, 25, "Print"], Cell[110965, 2577, 342, 7, 25, "Print"], Cell[111310, 2586, 212, 4, 25, "Print"], Cell[111525, 2592, 508, 9, 25, "Print"], Cell[112036, 2603, 212, 4, 25, "Print"], Cell[112251, 2609, 404, 7, 25, "Print"], Cell[112658, 2618, 212, 4, 25, "Print"], Cell[112873, 2624, 844, 13, 44, "Print"], Cell[113720, 2639, 212, 4, 25, "Print"], Cell[113935, 2645, 500, 9, 25, "Print"], Cell[114438, 2656, 212, 4, 25, "Print"], Cell[114653, 2662, 714, 11, 44, "Print"], Cell[115370, 2675, 212, 4, 25, "Print"], Cell[115585, 2681, 358, 7, 25, "Print"], Cell[115946, 2690, 212, 4, 25, "Print"], Cell[116161, 2696, 332, 7, 25, "Print"], Cell[116496, 2705, 212, 4, 25, "Print"], Cell[116711, 2711, 422, 7, 25, "Print"], Cell[117136, 2720, 212, 4, 25, "Print"], Cell[117351, 2726, 217, 4, 25, "Print"], Cell[117571, 2732, 210, 4, 25, "Print"], Cell[117784, 2738, 217, 4, 25, "Print"], Cell[118004, 2744, 210, 4, 25, "Print"], Cell[118217, 2750, 1500, 21, 101, "Print"], Cell[119720, 2773, 214, 4, 25, "Print"], Cell[119937, 2779, 358, 7, 25, "Print"], Cell[120298, 2788, 212, 4, 25, "Print"], Cell[120513, 2794, 590, 9, 44, "Print"], Cell[121106, 2805, 212, 4, 25, "Print"], Cell[121321, 2811, 380, 7, 25, "Print"], Cell[121704, 2820, 212, 4, 25, "Print"], Cell[121919, 2826, 512, 9, 25, "Print"], Cell[122434, 2837, 212, 4, 25, "Print"], Cell[122649, 2843, 217, 4, 25, "Print"], Cell[122869, 2849, 210, 4, 25, "Print"], Cell[123082, 2855, 664, 11, 44, "Print"], Cell[123749, 2868, 212, 4, 25, "Print"], Cell[123964, 2874, 382, 7, 25, "Print"], Cell[124349, 2883, 212, 4, 25, "Print"], Cell[124564, 2889, 231, 4, 25, "Print"], Cell[124798, 2895, 210, 4, 25, "Print"], Cell[125011, 2901, 1140, 17, 82, "Print"], Cell[126154, 2920, 214, 4, 25, "Print"], Cell[126371, 2926, 217, 4, 25, "Print"], Cell[126591, 2932, 210, 4, 25, "Print"], Cell[126804, 2938, 203, 4, 25, "Print"], Cell[127010, 2944, 210, 4, 25, "Print"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)