(************** 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[ 29287, 748]*) (*NotebookOutlinePosition[ 29993, 772]*) (* CellTagsIndexPosition[ 29949, 768]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[ \(\(\("\"\)\(\ \)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(m = 1; \ l = i^2;\), "\[IndentingNewLine]", \(For[i = 1, \ i < 9, \ \(i++\)\[IndentingNewLine]For[k = 1, k < 11, \(k++\), \[IndentingNewLine]Print["\", \ i^2\ , "\< \>", \ "\", \ k, "\< \>", LeafCount[\ ContinuedFraction[\((\((m + Sqrt[m^2 + 4 i^2])\)/2)\)^k]] - 3]]]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 4, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 4, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]5\), SequenceForm[ "l=", 4, " ", "k=", 3, " ", 5], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]22\), SequenceForm[ "l=", 4, " ", "k=", 4, " ", 22], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]27\), SequenceForm[ "l=", 4, " ", "k=", 5, " ", 27], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 4, " ", "k=", 6, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]167\), SequenceForm[ "l=", 4, " ", "k=", 7, " ", 167], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]294\), SequenceForm[ "l=", 4, " ", "k=", 8, " ", 294], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]203\), SequenceForm[ "l=", 4, " ", "k=", 9, " ", 203], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]10\[InvisibleSpace]" "\ \[InvisibleSpace]147\), SequenceForm[ "l=", 4, " ", "k=", 10, " ", 147], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 9, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 9, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]5\), SequenceForm[ "l=", 9, " ", "k=", 3, " ", 5], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]34\), SequenceForm[ "l=", 9, " ", "k=", 4, " ", 34], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]101\), SequenceForm[ "l=", 9, " ", "k=", 5, " ", 101], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]14\), SequenceForm[ "l=", 9, " ", "k=", 6, " ", 14], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]81\), SequenceForm[ "l=", 9, " ", "k=", 7, " ", 81], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]370\), SequenceForm[ "l=", 9, " ", "k=", 8, " ", 370], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]85\), SequenceForm[ "l=", 9, " ", "k=", 9, " ", 85], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]10\[InvisibleSpace]" "\ \[InvisibleSpace]456\), SequenceForm[ "l=", 9, " ", "k=", 10, " ", 456], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 16, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 16, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]17\), SequenceForm[ "l=", 16, " ", "k=", 3, " ", 17], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]30\), SequenceForm[ "l=", 16, " ", "k=", 4, " ", 30], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]29\), SequenceForm[ "l=", 16, " ", "k=", 5, " ", 29], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]290\), SequenceForm[ "l=", 16, " ", "k=", 6, " ", 290], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]99\), SequenceForm[ "l=", 16, " ", "k=", 7, " ", 99], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]338\), SequenceForm[ "l=", 16, " ", "k=", 8, " ", 338], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]182\), SequenceForm[ "l=", 16, " ", "k=", 9, " ", 182], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]16\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]10\[InvisibleSpace]" "\ \[InvisibleSpace]1234\), SequenceForm[ "l=", 16, " ", "k=", 10, " ", 1234], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 25, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 25, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]16\), SequenceForm[ "l=", 25, " ", "k=", 3, " ", 16], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]28\), SequenceForm[ "l=", 25, " ", "k=", 4, " ", 28], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]371\), SequenceForm[ "l=", 25, " ", "k=", 5, " ", 371], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]32\), SequenceForm[ "l=", 25, " ", "k=", 6, " ", 32], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]459\), SequenceForm[ "l=", 25, " ", "k=", 7, " ", 459], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]64\), SequenceForm[ "l=", 25, " ", "k=", 8, " ", 64], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]53850\), SequenceForm[ "l=", 25, " ", "k=", 9, " ", 53850], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]25\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]10\[InvisibleSpace]" "\ \[InvisibleSpace]57970\), SequenceForm[ "l=", 25, " ", "k=", 10, " ", 57970], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 36, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 36, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]44\), SequenceForm[ "l=", 36, " ", "k=", 3, " ", 44], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]82\), SequenceForm[ "l=", 36, " ", "k=", 4, " ", 82], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]390\), SequenceForm[ "l=", 36, " ", "k=", 5, " ", 390], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]134\), SequenceForm[ "l=", 36, " ", "k=", 6, " ", 134], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]1411\), SequenceForm[ "l=", 36, " ", "k=", 7, " ", 1411], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]164\), SequenceForm[ "l=", 36, " ", "k=", 8, " ", 164], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]39238\), SequenceForm[ "l=", 36, " ", "k=", 9, " ", 39238], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]36\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]10\[InvisibleSpace]" "\ \[InvisibleSpace]124856\), SequenceForm[ "l=", 36, " ", "k=", 10, " ", 124856], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 49, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 49, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]37\), SequenceForm[ "l=", 49, " ", "k=", 3, " ", 37], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]30\), SequenceForm[ "l=", 49, " ", "k=", 4, " ", 30], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]3489\), SequenceForm[ "l=", 49, " ", "k=", 5, " ", 3489], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]246\), SequenceForm[ "l=", 49, " ", "k=", 6, " ", 246], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]14115\), SequenceForm[ "l=", 49, " ", "k=", 7, " ", 14115], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]42326\), SequenceForm[ "l=", 49, " ", "k=", 8, " ", 42326], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]19242\), SequenceForm[ "l=", 49, " ", "k=", 9, " ", 19242], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]49\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]10\[InvisibleSpace]" "\ \[InvisibleSpace]1758078\), SequenceForm[ "l=", 49, " ", "k=", 10, " ", 1758078], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 64, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 64, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]18\), SequenceForm[ "l=", 64, " ", "k=", 3, " ", 18], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]110\), SequenceForm[ "l=", 64, " ", "k=", 4, " ", 110], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]461\), SequenceForm[ "l=", 64, " ", "k=", 5, " ", 461], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]128\), SequenceForm[ "l=", 64, " ", "k=", 6, " ", 128], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]7545\), SequenceForm[ "l=", 64, " ", "k=", 7, " ", 7545], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]746\), SequenceForm[ "l=", 64, " ", "k=", 8, " ", 746], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]292030\), SequenceForm[ "l=", 64, " ", "k=", 9, " ", 292030], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]64\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]10\[InvisibleSpace]" "\ \[InvisibleSpace]12378\), SequenceForm[ "l=", 64, " ", "k=", 10, " ", 12378], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 81, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 81, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]15\), SequenceForm[ "l=", 81, " ", "k=", 3, " ", 15], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]498\), SequenceForm[ "l=", 81, " ", "k=", 4, " ", 498], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]1042\), SequenceForm[ "l=", 81, " ", "k=", 5, " ", 1042], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]174\), SequenceForm[ "l=", 81, " ", "k=", 6, " ", 174], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]1367\), SequenceForm[ "l=", 81, " ", "k=", 7, " ", 1367], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]6706\), SequenceForm[ "l=", 81, " ", "k=", 8, " ", 6706], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]81\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]115395\), SequenceForm[ "l=", 81, " ", "k=", 9, " ", 115395], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 100, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 100, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]55\), SequenceForm[ "l=", 100, " ", "k=", 3, " ", 55], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]194\), SequenceForm[ "l=", 100, " ", "k=", 4, " ", 194], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]15896\), SequenceForm[ "l=", 100, " ", "k=", 5, " ", 15896], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]2154\), SequenceForm[ "l=", 100, " ", "k=", 6, " ", 2154], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]270\), SequenceForm[ "l=", 100, " ", "k=", 7, " ", 270], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]46670\), SequenceForm[ "l=", 100, " ", "k=", 8, " ", 46670], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]100\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]1693782\), SequenceForm[ "l=", 100, " ", "k=", 9, " ", 1693782], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]1\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 121, " ", "k=", 1, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]2\[InvisibleSpace]" "\ \[InvisibleSpace]3\), SequenceForm[ "l=", 121, " ", "k=", 2, " ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]3\[InvisibleSpace]" "\ \[InvisibleSpace]104\), SequenceForm[ "l=", 121, " ", "k=", 3, " ", 104], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]4\[InvisibleSpace]" "\ \[InvisibleSpace]1018\), SequenceForm[ "l=", 121, " ", "k=", 4, " ", 1018], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]5\[InvisibleSpace]" "\ \[InvisibleSpace]772\), SequenceForm[ "l=", 121, " ", "k=", 5, " ", 772], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]6\[InvisibleSpace]" "\ \[InvisibleSpace]60\), SequenceForm[ "l=", 121, " ", "k=", 6, " ", 60], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]7\[InvisibleSpace]" "\ \[InvisibleSpace]1482547\), SequenceForm[ "l=", 121, " ", "k=", 7, " ", 1482547], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]8\[InvisibleSpace]" "\ \[InvisibleSpace]453176\), SequenceForm[ "l=", 121, " ", "k=", 8, " ", 453176], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("l="\[InvisibleSpace]121\[InvisibleSpace]" "\ \[InvisibleSpace]"k="\[InvisibleSpace]9\[InvisibleSpace]" "\ \[InvisibleSpace]825674\), SequenceForm[ "l=", 121, " ", "k=", 9, " ", 825674], 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, 238, 3, 50, "Input"], Cell[CellGroupData[{ Cell[2017, 58, 403, 8, 90, "Input"], Cell[2423, 68, 268, 5, 25, "Print"], Cell[2694, 75, 268, 5, 25, "Print"], Cell[2965, 82, 268, 5, 25, "Print"], Cell[3236, 89, 270, 5, 25, "Print"], Cell[3509, 96, 270, 5, 25, "Print"], Cell[3782, 103, 268, 5, 25, "Print"], Cell[4053, 110, 272, 5, 25, "Print"], Cell[4328, 117, 272, 5, 25, "Print"], Cell[4603, 124, 272, 5, 25, "Print"], Cell[4878, 131, 274, 5, 25, "Print"], Cell[5155, 138, 268, 5, 25, "Print"], Cell[5426, 145, 268, 5, 25, "Print"], Cell[5697, 152, 268, 5, 25, "Print"], Cell[5968, 159, 270, 5, 25, "Print"], Cell[6241, 166, 272, 5, 25, "Print"], Cell[6516, 173, 270, 5, 25, "Print"], Cell[6789, 180, 270, 5, 25, "Print"], Cell[7062, 187, 272, 5, 25, "Print"], Cell[7337, 194, 270, 5, 25, "Print"], Cell[7610, 201, 274, 5, 25, "Print"], Cell[7887, 208, 270, 5, 25, "Print"], Cell[8160, 215, 270, 5, 25, "Print"], Cell[8433, 222, 272, 5, 25, "Print"], Cell[8708, 229, 272, 5, 25, "Print"], Cell[8983, 236, 272, 5, 25, "Print"], Cell[9258, 243, 274, 5, 25, "Print"], Cell[9535, 250, 272, 5, 25, "Print"], Cell[9810, 257, 274, 5, 25, "Print"], Cell[10087, 264, 274, 5, 25, "Print"], Cell[10364, 271, 278, 5, 25, "Print"], Cell[10645, 278, 270, 5, 25, "Print"], Cell[10918, 285, 270, 5, 25, "Print"], Cell[11191, 292, 272, 5, 25, "Print"], Cell[11466, 299, 272, 5, 25, "Print"], Cell[11741, 306, 274, 5, 25, "Print"], Cell[12018, 313, 272, 5, 25, "Print"], Cell[12293, 320, 274, 5, 25, "Print"], Cell[12570, 327, 272, 5, 25, "Print"], Cell[12845, 334, 278, 5, 25, "Print"], Cell[13126, 341, 280, 5, 25, "Print"], Cell[13409, 348, 270, 5, 25, "Print"], Cell[13682, 355, 270, 5, 25, "Print"], Cell[13955, 362, 272, 5, 25, "Print"], Cell[14230, 369, 272, 5, 25, "Print"], Cell[14505, 376, 274, 5, 25, "Print"], Cell[14782, 383, 274, 5, 25, "Print"], Cell[15059, 390, 276, 5, 25, "Print"], Cell[15338, 397, 274, 5, 25, "Print"], Cell[15615, 404, 278, 5, 25, "Print"], Cell[15896, 411, 282, 5, 25, "Print"], Cell[16181, 418, 270, 5, 25, "Print"], Cell[16454, 425, 270, 5, 25, "Print"], Cell[16727, 432, 272, 5, 25, "Print"], Cell[17002, 439, 272, 5, 25, "Print"], Cell[17277, 446, 276, 5, 25, "Print"], Cell[17556, 453, 274, 5, 25, "Print"], Cell[17833, 460, 278, 5, 25, "Print"], Cell[18114, 467, 278, 5, 25, "Print"], Cell[18395, 474, 278, 5, 25, "Print"], Cell[18676, 481, 284, 5, 25, "Print"], Cell[18963, 488, 270, 5, 25, "Print"], Cell[19236, 495, 270, 5, 25, "Print"], Cell[19509, 502, 272, 5, 25, "Print"], Cell[19784, 509, 274, 5, 25, "Print"], Cell[20061, 516, 274, 5, 25, "Print"], Cell[20338, 523, 274, 5, 25, "Print"], Cell[20615, 530, 276, 5, 25, "Print"], Cell[20894, 537, 274, 5, 25, "Print"], Cell[21171, 544, 280, 5, 25, "Print"], Cell[21454, 551, 280, 5, 25, "Print"], Cell[21737, 558, 270, 5, 25, "Print"], Cell[22010, 565, 270, 5, 25, "Print"], Cell[22283, 572, 272, 5, 25, "Print"], Cell[22558, 579, 274, 5, 25, "Print"], Cell[22835, 586, 276, 5, 25, "Print"], Cell[23114, 593, 274, 5, 25, "Print"], Cell[23391, 600, 276, 5, 25, "Print"], Cell[23670, 607, 276, 5, 25, "Print"], Cell[23949, 614, 280, 5, 25, "Print"], Cell[24232, 621, 272, 5, 25, "Print"], Cell[24507, 628, 272, 5, 25, "Print"], Cell[24782, 635, 274, 5, 25, "Print"], Cell[25059, 642, 276, 5, 25, "Print"], Cell[25338, 649, 280, 5, 25, "Print"], Cell[25621, 656, 278, 5, 25, "Print"], Cell[25902, 663, 276, 5, 25, "Print"], Cell[26181, 670, 280, 5, 25, "Print"], Cell[26464, 677, 284, 5, 25, "Print"], Cell[26751, 684, 272, 5, 25, "Print"], Cell[27026, 691, 272, 5, 25, "Print"], Cell[27301, 698, 276, 5, 25, "Print"], Cell[27580, 705, 278, 5, 25, "Print"], Cell[27861, 712, 276, 5, 25, "Print"], Cell[28140, 719, 274, 5, 25, "Print"], Cell[28417, 726, 284, 5, 25, "Print"], Cell[28704, 733, 282, 5, 25, "Print"], Cell[28989, 740, 282, 5, 25, "Print"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)