(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' 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[ 41603, 1331]*) (*NotebookOutlinePosition[ 42252, 1353]*) (* CellTagsIndexPosition[ 42208, 1349]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ \(\(\( (*\(\ \)\(Procedure\ to\ generate\ 3\ Random\ Integers\ \(\(in\)\(\ \ \)\([\)\(10^40, 10^50\)\)\)\()\)\ *) \)\(\[IndentingNewLine]\)\(Do[\ \[IndentingNewLine]\tn = 0; \[IndentingNewLine]\t digito[1] = Random[Integer, {1, 9}]; \[IndentingNewLine]\t Do[digito[i] = Random[Integer, {0, 9}], {i, 2, 41}]; \[IndentingNewLine]\t Do[n = n + digito[i]*10^\((41 - i)\), {i, 41}]; \[IndentingNewLine]\t Print[n]; \[IndentingNewLine]\t numero[j] = n, \[IndentingNewLine]\[IndentingNewLine]{j, 1, 3}];\)\)\)], "Input"], Cell[BoxData[ \(60015254618373567092325508663009089040266\)], "Print"], Cell[BoxData[ \(89606953039807561770335959771712998788095\)], "Print"], Cell[BoxData[ \(24947670751438770481648290815882732349651\)], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(\[IndentingNewLine]\)\(\(<< NumberTheory`NumberTheoryFunctions`;\)\[IndentingNewLine] (*Procedure\ \ to\ Obtain\ the\ List\ of\ Prime\ Numbers\ between\ n\ and\ n + 10^6*) \[IndentingNewLine] \(var1 = 10^80;\)\[IndentingNewLine] t1 = SessionTime[]; n = var1 + 10^8; l = 1; p = NextPrime[var1];\[IndentingNewLine] \(While[ p < n, \[IndentingNewLine]\t\ \ \ \ \ parray[l] = p; \[IndentingNewLine]\t\ \ \ \ \ \(l++\); \[IndentingNewLine]\t\ \ \ \ \ \ If[Mod[l, 10000] \[Equal] 0, \ Print["\", l, "\< which is \>", p]]; \[IndentingNewLine]\t\ \ \ \ \ p = NextPrime[p]];\)\[IndentingNewLine] \(t2 = SessionTime[] - t1;\)\[IndentingNewLine] \(Print["\", IntegerPart[N[t2/60]], "\< minutes and \>", t2 - IntegerPart[N[t2/60]]*60, "\< seconds, found \>", l - 1, \ "\< primes.\>"];\)\[IndentingNewLine]\[IndentingNewLine] (*\ Procedure\ to\ Count\ the\ Number\ of\ k - prime\ pairs, i . e . \ where\ p, p + 2 k\ are\ both\ prime, \ with\ k\ ranging\ from\ 1\ to\ 10000*) \[IndentingNewLine] \(Do[parray[i] = \((parray[i] - var1)\)/2, {i, 1, l - 1}];\)\[IndentingNewLine] m = l - 1; \ k = m - 1; \ t1 = SessionTime[];\[IndentingNewLine] \(Do[\ pcountarray[i] = 0\ \ , {i, 10000}];\)\[IndentingNewLine] \(Do[\ \ \[IndentingNewLine]\tt = m - i; \[IndentingNewLine]\t If[Mod[i, 100000] \[Equal] 0, Print[i]]; \[IndentingNewLine]\t Do[\ \ \ \ \[IndentingNewLine]\t\taux1 = parray[i + j] - parray[i]; \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ If[aux1 < 10001, \(pcountarray[aux1]++\), Break[]];\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ , {j, t}];\[IndentingNewLine]\ \ \ \ \ , {i, k}];\)\[IndentingNewLine] \(t2 = SessionTime[] - t1;\)\[IndentingNewLine] \(Print["\", IntegerPart[N[t2/60]], "\< minutes and \>", t2 - IntegerPart[ N[t2/60]]*60, "\"];\)\[IndentingNewLine]\ \[IndentingNewLine] \)\)\)], "Input"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]10000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000001871\ 571\), SequenceForm[ "I'm at Prime # ", 10000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00001871571], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]20000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000003724\ 261\), SequenceForm[ "I'm at Prime # ", 20000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00003724261], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]30000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000005539\ 221\), SequenceForm[ "I'm at Prime # ", 30000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00005539221], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]40000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000007385\ 457\), SequenceForm[ "I'm at Prime # ", 40000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00007385457], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]50000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000009233\ 653\), SequenceForm[ "I'm at Prime # ", 50000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00009233653], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]60000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000011081\ 013\), SequenceForm[ "I'm at Prime # ", 60000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00011081013], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]70000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000012912\ 391\), SequenceForm[ "I'm at Prime # ", 70000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00012912391], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]80000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000014763\ 861\), SequenceForm[ "I'm at Prime # ", 80000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00014763861], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]90000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000016598\ 761\), SequenceForm[ "I'm at Prime # ", 90000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00016598761], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]100000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000018439\ 927\), SequenceForm[ "I'm at Prime # ", 100000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00018439927], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]110000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000020281\ 171\), SequenceForm[ "I'm at Prime # ", 110000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00020281171], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]120000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000022112\ 961\), SequenceForm[ "I'm at Prime # ", 120000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00022112961], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]130000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000023929\ 459\), SequenceForm[ "I'm at Prime # ", 130000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00023929459], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]140000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000025775\ 563\), SequenceForm[ "I'm at Prime # ", 140000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00025775563], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]150000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000027605\ 787\), SequenceForm[ "I'm at Prime # ", 150000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00027605787], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]160000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000029434\ 671\), SequenceForm[ "I'm at Prime # ", 160000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00029434671], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]170000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000031260\ 321\), SequenceForm[ "I'm at Prime # ", 170000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00031260321], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]180000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000033084\ 067\), SequenceForm[ "I'm at Prime # ", 180000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00033084067], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]190000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000034957\ 567\), SequenceForm[ "I'm at Prime # ", 190000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00034957567], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]200000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000036782\ 193\), SequenceForm[ "I'm at Prime # ", 200000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00036782193], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]210000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000038633\ 437\), SequenceForm[ "I'm at Prime # ", 210000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00038633437], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]220000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000040467\ 469\), SequenceForm[ "I'm at Prime # ", 220000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00040467469], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]230000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000042360\ 189\), SequenceForm[ "I'm at Prime # ", 230000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00042360189], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]240000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000044223\ 363\), SequenceForm[ "I'm at Prime # ", 240000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00044223363], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]250000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000046054\ 261\), SequenceForm[ "I'm at Prime # ", 250000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00046054261], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]260000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000047919\ 537\), SequenceForm[ "I'm at Prime # ", 260000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00047919537], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]270000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000049780\ 369\), SequenceForm[ "I'm at Prime # ", 270000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00049780369], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]280000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000051612\ 987\), SequenceForm[ "I'm at Prime # ", 280000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00051612987], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]290000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000053439\ 189\), SequenceForm[ "I'm at Prime # ", 290000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00053439189], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]300000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000055258\ 273\), SequenceForm[ "I'm at Prime # ", 300000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00055258273], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]310000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000057136\ 501\), SequenceForm[ "I'm at Prime # ", 310000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00057136501], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]320000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000058982\ 563\), SequenceForm[ "I'm at Prime # ", 320000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00058982563], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]330000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000060843\ 139\), SequenceForm[ "I'm at Prime # ", 330000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00060843139], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]340000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000062710\ 267\), SequenceForm[ "I'm at Prime # ", 340000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00062710267], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]350000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000064548\ 289\), SequenceForm[ "I'm at Prime # ", 350000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00064548289], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]360000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000066380\ 727\), SequenceForm[ "I'm at Prime # ", 360000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00066380727], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]370000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000068230\ 297\), SequenceForm[ "I'm at Prime # ", 370000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00068230297], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]380000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000070074\ 367\), SequenceForm[ "I'm at Prime # ", 380000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00070074367], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]390000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000071923\ 569\), SequenceForm[ "I'm at Prime # ", 390000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00071923569], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]400000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000073797\ 753\), SequenceForm[ "I'm at Prime # ", 400000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00073797753], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]410000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000075666\ 847\), SequenceForm[ "I'm at Prime # ", 410000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00075666847], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]420000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000077516\ 523\), SequenceForm[ "I'm at Prime # ", 420000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00077516523], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]430000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000079334\ 139\), SequenceForm[ "I'm at Prime # ", 430000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00079334139], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]440000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000081177\ 993\), SequenceForm[ "I'm at Prime # ", 440000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00081177993], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]450000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000083026\ 749\), SequenceForm[ "I'm at Prime # ", 450000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00083026749], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]460000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000084868\ 393\), SequenceForm[ "I'm at Prime # ", 460000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00084868393], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]470000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000086691\ 543\), SequenceForm[ "I'm at Prime # ", 470000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00086691543], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]480000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000088516\ 963\), SequenceForm[ "I'm at Prime # ", 480000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00088516963], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]490000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000090356\ 137\), SequenceForm[ "I'm at Prime # ", 490000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00090356137], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]500000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000092221\ 507\), SequenceForm[ "I'm at Prime # ", 500000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00092221507], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]510000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000094064\ 041\), SequenceForm[ "I'm at Prime # ", 510000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00094064041], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]520000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000095898\ 063\), SequenceForm[ "I'm at Prime # ", 520000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00095898063], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]530000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000097760\ 883\), SequenceForm[ "I'm at Prime # ", 530000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00097760883], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("I'm at Prime # "\[InvisibleSpace]540000\ \[InvisibleSpace]" which is \ "\[InvisibleSpace]\ 100000000000000000000000000000000000000000000000000000000000000000000000099592\ 111\), SequenceForm[ "I'm at Prime # ", 540000, " which is ", 1000000000000000000000000000000000000000000000000000000000000000000000\ 00099592111], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Total time used was "\[InvisibleSpace]328\ \[InvisibleSpace]" minutes and "\[InvisibleSpace]50.7113696`8.855620337855118\ \[InvisibleSpace]" seconds, found "\[InvisibleSpace]542302\[InvisibleSpace]" \ primes."\), SequenceForm[ "Total time used was ", 328, " minutes and ", 50.7113696`8.855620337855118, " seconds, found ", 542302, " primes."], Editable->False]], "Print"], Cell[BoxData[ \(100000\)], "Print"], Cell[BoxData[ \(200000\)], "Print"], Cell[BoxData[ \(300000\)], "Print"], Cell[BoxData[ \(400000\)], "Print"], Cell[BoxData[ \(500000\)], "Print"], Cell[BoxData[ InterpretationBox[\("Total time used was "\[InvisibleSpace]37\ \[InvisibleSpace]" minutes and "\[InvisibleSpace]1.2540064`7.248814750815996\ \[InvisibleSpace]"seconds"\), SequenceForm[ "Total time used was ", 37, " minutes and ", 1.2540064`7.248814750815996, "seconds"], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[971/60]\)], "Input"], Cell[BoxData[ \(16.183333333333334`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(971 - 16*60\)], "Input"], Cell[BoxData[ \(11\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(\[IndentingNewLine]\)\( (*Procedure\ to\ \ give\ a\ list\ of\ the\ k - prime\ pair\ counts\ with\ certain\ prime\ factors*) \)\(\ \[IndentingNewLine]\)\(factlist = {2}; numlist = {}; ub = 0; lb = 10^550;\[IndentingNewLine] \(Do[\ \[IndentingNewLine]\t templist = FactorInteger[2*i]; \[IndentingNewLine]\t pcheck = True; \[IndentingNewLine]\t If[Length[factlist] \[Equal] Length[templist], \[IndentingNewLine]\t\tDo[ If[factlist[\([j]\)] \[NotEqual] templist[\([j, 1]\)], pcheck = False; Break[]], {j, Length[factlist]}]\[IndentingNewLine]\t\t, pcheck = False\[IndentingNewLine]\t\ \ \ ]; \t\[IndentingNewLine]\ \[IndentingNewLine]\t If[pcheck, numlist = Append[numlist, pcountarray[i]]; \[IndentingNewLine]\t\tIf[ pcountarray[i] > ub, ub = pcountarray[i]]; \[IndentingNewLine]\t\tIf[ pcountarray[i] < lb, lb = pcountarray[ i]]\[IndentingNewLine]\t\ \ \ ];\[IndentingNewLine], {i, 10000}];\)\[IndentingNewLine] \(Print["\", factlist, "\< as prime divisors: \>"];\)\[IndentingNewLine] \(Print[numlist];\)\[IndentingNewLine] \(Print["\", ub];\)\[IndentingNewLine] \(Print["\", lb];\)\[IndentingNewLine] \(Print["\", ub - lb];\)\[IndentingNewLine] \(Print["\", N[ub/lb]];\)\[IndentingNewLine] \(mn = N[Mean[numlist], 10];\)\[IndentingNewLine] \(Print["\", mn];\)\[IndentingNewLine] \(aux2 = 1;\)\[IndentingNewLine] \(Do[aux2 = aux2*\((factlist[\([i + 1]\)] - 1)\)/\((factlist[\([i + 1]\)] - 2)\), {i, Length[factlist] - 1}];\)\[IndentingNewLine] \(interm = N[\((n/\((Log[n])\)^2 - var1/\((Log[var1])\)^2)\), 1000];\)\[IndentingNewLine] \(aux3 = N[2*0.6601618158*aux2*interm, 100];\)\[IndentingNewLine] \(Print["\", aux3];\)\[IndentingNewLine] \(Print["\", N[mn/aux3, 100]];\)\[IndentingNewLine]\[IndentingNewLine]\[IndentingNewLine] \)\)\)], "Input"], Cell[BoxData[ InterpretationBox[\("List of k-prime pair counts for those with only "\ \[InvisibleSpace]{2}\[InvisibleSpace]" as prime divisors: "\), SequenceForm[ "List of k-prime pair counts for those with only ", {2}, " as prime divisors: "], Editable->False]], "Print"], Cell[BoxData[ \({3776, 3866, 3863, 3838, 3930, 3947, 3869, 3868, 3833, 3898, 3907, 3776, 3841, 3909}\)], "Print"], Cell[BoxData[ InterpretationBox[\("Highest = "\[InvisibleSpace]3947\), SequenceForm[ "Highest = ", 3947], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Lowest = "\[InvisibleSpace]3776\), SequenceForm[ "Lowest = ", 3776], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Difference = "\[InvisibleSpace]171\), SequenceForm[ "Difference = ", 171], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Ratio = "\[InvisibleSpace]1.0452860169491525`\), SequenceForm[ "Ratio = ", 1.0452860169491525], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Mean = \ "\[InvisibleSpace]3865.7857142857142857143`10. \), SequenceForm[ "Mean = ", 3865.785714`10.], Editable->False]], "Print"], Cell[BoxData[ RowBox[{\(N::"meprec"\), \(\(:\)\(\ \)\), "\<\"Internal precision limit \ $MaxExtraPrecision = \\!\\(50.`\\) reached while evaluating \ \\!\\(\\(\\(-\\(\\(\\(1000000000000000000000000000 \\(\\(\[LeftSkeleton] 25 \ \[RightSkeleton]\\)\\) \ 0000000000000000000000000000\\)\\/\\(Log[\\(\\(100000000 \ \\(\\(\[LeftSkeleton] 62 \[RightSkeleton]\\)\\) \ 0000000000\\)\\)]\\)\\^2\\)\\)\\)\\) + \\(100000 \\(\\(\[LeftSkeleton] 69 \ \[RightSkeleton]\\)\\) 000000\\)\\/\\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\)\\^2\\). \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"General::meprec\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ InterpretationBox[\("Hardy&Littlewood prediction using the Circle Method \ was: "\[InvisibleSpace]3848.8232560130605`\), SequenceForm[ "Hardy&Littlewood prediction using the Circle Method was: ", 3848.8232560130605], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Ratio of Mean to H&L = \ "\[InvisibleSpace]1.004407180362505`\), SequenceForm[ "Ratio of Mean to H&L = ", 1.004407180362505], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("List of k-prime pair counts for those with only "\ \[InvisibleSpace]{2, 3, 5}\[InvisibleSpace]" as prime divisors: "\), SequenceForm[ "List of k-prime pair counts for those with only ", {2, 3, 5}, " as prime divisors: "], Editable->False]], "Print", GeneratedCell->False, CellAutoOverwrite->False], Cell[BoxData[ \({10368, 10402, 10356, 10392, 10396, 10240, 10391, 10418, 10326, 10265, 10402, 10284, 10461, 10364, 10455, 10317, 10292, 10385, 10283, 10349, 10345, 10186, 10324, 10336, 10429, 10477, 10460, 10344, 10520, 10372, 10392, 10228, 10262, 10348, 10330, 10339, 10267, 10266, 10270, 10110, 10433, 10533, 10407, 10289, 10275, 10521, 10295, 10453, 10287, 10231, 10420, 10212, 10273, 10211, 10381, 10362, 10411, 10513, 10350, 10251, 10352, 10307, 10409, 10398, 10328, 10423, 10269, 10403, 10294, 10515, 10433, 10441, 10455, 10452}\)], "Print"], Cell[BoxData[ InterpretationBox[\("Highest = "\[InvisibleSpace]10533\), SequenceForm[ "Highest = ", 10533], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Lowest = "\[InvisibleSpace]10110\), SequenceForm[ "Lowest = ", 10110], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Difference = "\[InvisibleSpace]423\), SequenceForm[ "Difference = ", 423], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Ratio = "\[InvisibleSpace]1.0418397626112759`\), SequenceForm[ "Ratio = ", 1.0418397626112759], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Mean = \ "\[InvisibleSpace]10355.9189189189189189189`9.999999999999998\), SequenceForm[ "Mean = ", 10355.91892`9.999999999999998], Editable->False]], "Print"], Cell[BoxData[ RowBox[{\(N::"meprec"\), \(\(:\)\(\ \)\), "\<\"Internal precision limit \ $MaxExtraPrecision = \\!\\(50.`\\) reached while evaluating \ \\!\\(\\(\\(-\\(\\(\\(1000000000000000000000000000 \\(\\(\[LeftSkeleton] 25 \ \[RightSkeleton]\\)\\) \ 0000000000000000000000000000\\)\\/\\(Log[\\(\\(100000000 \ \\(\\(\[LeftSkeleton] 62 \[RightSkeleton]\\)\\) \ 0000000000\\)\\)]\\)\\^2\\)\\)\\)\\) + \\(100000 \\(\\(\[LeftSkeleton] 69 \ \[RightSkeleton]\\)\\) 000000\\)\\/\\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\)\\^2\\). \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"General::meprec\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ InterpretationBox[\("Hardy&Littlewood prediction using the Circle Method \ was: "\[InvisibleSpace]10263.528682701493`\), SequenceForm[ "Hardy&Littlewood prediction using the Circle Method was: ", 10263.528682701493], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("Ratio of Mean to H&L = \ "\[InvisibleSpace]1.009001800362593`\), SequenceForm[ "Ratio of Mean to H&L = ", 1.0090018003625929], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(aux2\)\)\)], "Input"], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(interm\)], "Input"], Cell[BoxData[ \(114.\ 243301964879219301966511091116808802322032606213429478049280645674235303370365\ 1503528648473152935315973770902452025`100. \)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(Log[Exp[2]]\)\)\)], "Input"], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[3.45]\)], "Input"], Cell[BoxData[ \(3.45`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[2/5]\)], "Input"], Cell[BoxData[ \(0.4`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(2/5\)], "Input"], Cell[BoxData[ \(2\/5\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[\((n/\((Log[n])\)^2 - var1/\((Log[var1])\)^2)\), 100]\)], "Input"], Cell[BoxData[ \(114.\ 243301964879219301966511091116808802322032606213429478049280645674235303370365\ 1503528648473152935315973770902452025`100. \)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(n\)\)\)], "Input"], Cell[BoxData[ \(15509790983325038473338941802497331700213\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(var1\)\)\)], "Input"], Cell[BoxData[ \(15509790983325038473338941802497330700213\)], "Output"] }, Open ]], Cell[BoxData[ \(N\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(Mean[{1, 2}]\)\)\)], "Input"], Cell[BoxData[ \(3\/2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Mean[numlist], 10]\)], "Input"], Cell[BoxData[ \(313.3018867924528301887`9.999999999999998\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(313.3018867924528301887`9.999999999999998/301.6762626724895`\)], "Input"], Cell[BoxData[ \(1.0385367546553854`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(numero[1] = 60015254618373567092325508663009089040266\)], "Input"], Cell[BoxData[ \(60015254618373567092325508663009089040266\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(4 + 4\)\)\)], "Input"], Cell[BoxData[ \(8\)], "Output"] }, Open ]], Cell[BoxData[ \(x = 10^6 + 18\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Do[If[Mod[i, 10^5] \[Equal] 0, Print[i]], {i, 4*10^6}]\)], "Input"], Cell[BoxData[ \(100000\)], "Print"], Cell[BoxData[ \(200000\)], "Print"], Cell[BoxData[ \(300000\)], "Print"], Cell[BoxData[ \(400000\)], "Print"], Cell[BoxData[ \(500000\)], "Print"], Cell[BoxData[ \(600000\)], "Print"], Cell[BoxData[ \(700000\)], "Print"], Cell[BoxData[ \(800000\)], "Print"], Cell[BoxData[ \(900000\)], "Print"], Cell[BoxData[ \(1000000\)], "Print"], Cell[BoxData[ \(1100000\)], "Print"], Cell[BoxData[ \(1200000\)], "Print"], Cell[BoxData[ \(1300000\)], "Print"], Cell[BoxData[ \(1400000\)], "Print"], Cell[BoxData[ \(1500000\)], "Print"], Cell[BoxData[ \(1600000\)], "Print"], Cell[BoxData[ \(1700000\)], "Print"], Cell[BoxData[ \(1800000\)], "Print"], Cell[BoxData[ \(1900000\)], "Print"], Cell[BoxData[ \(2000000\)], "Print"], Cell[BoxData[ \(2100000\)], "Print"], Cell[BoxData[ \(2200000\)], "Print"], Cell[BoxData[ \(2300000\)], "Print"], Cell[BoxData[ \(2400000\)], "Print"], Cell[BoxData[ \(2500000\)], "Print"], Cell[BoxData[ \(2600000\)], "Print"], Cell[BoxData[ \(2700000\)], "Print"], Cell[BoxData[ \(2800000\)], "Print"], Cell[BoxData[ \(2900000\)], "Print"], Cell[BoxData[ \(3000000\)], "Print"], Cell[BoxData[ \(3100000\)], "Print"], Cell[BoxData[ \(3200000\)], "Print"], Cell[BoxData[ \(3300000\)], "Print"], Cell[BoxData[ \(3400000\)], "Print"], Cell[BoxData[ \(3500000\)], "Print"], Cell[BoxData[ \(3600000\)], "Print"], Cell[BoxData[ \(3700000\)], "Print"], Cell[BoxData[ \(3800000\)], "Print"], Cell[BoxData[ \(3900000\)], "Print"], Cell[BoxData[ \(4000000\)], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(Mod[3, 4]\)\)\)], "Input"], Cell[BoxData[ \(3\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(2 + 2\)], "Input"], Cell[BoxData[ \(4\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[Log[10^80]]\)], "Input"], Cell[BoxData[ \(184.20680743952366`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(10^8/184\)], "Input"], Cell[BoxData[ \(12500000\/23\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[%]\)], "Input"], Cell[BoxData[ \(543478.2608695652`\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(2 + 3\)\)\)], "Input"], Cell[BoxData[ \(5\)], "Output"] }, Open ]] }, FrontEndVersion->"5.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 681}}, WindowSize->{1014, 647}, WindowMargins->{{Automatic, -473}, {Automatic, 631}} ] (******************************************************************* 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[CellGroupData[{ Cell[1776, 53, 608, 11, 210, "Input"], Cell[2387, 66, 74, 1, 26, "Print"], Cell[2464, 69, 74, 1, 26, "Print"], Cell[2541, 72, 74, 1, 26, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[2652, 78, 2233, 42, 630, "Input"], Cell[4888, 122, 411, 10, 26, "Print"], Cell[5302, 134, 411, 10, 26, "Print"], Cell[5716, 146, 411, 10, 26, "Print"], Cell[6130, 158, 411, 10, 26, "Print"], Cell[6544, 170, 411, 10, 26, "Print"], Cell[6958, 182, 411, 10, 26, "Print"], Cell[7372, 194, 411, 10, 26, "Print"], Cell[7786, 206, 411, 10, 26, "Print"], Cell[8200, 218, 411, 10, 26, "Print"], Cell[8614, 230, 413, 10, 26, "Print"], Cell[9030, 242, 413, 10, 26, "Print"], Cell[9446, 254, 413, 10, 26, "Print"], Cell[9862, 266, 413, 10, 26, "Print"], Cell[10278, 278, 413, 10, 26, "Print"], Cell[10694, 290, 413, 10, 26, "Print"], Cell[11110, 302, 413, 10, 26, "Print"], Cell[11526, 314, 413, 10, 26, "Print"], Cell[11942, 326, 413, 10, 26, "Print"], Cell[12358, 338, 413, 10, 26, "Print"], Cell[12774, 350, 413, 10, 26, "Print"], Cell[13190, 362, 413, 10, 26, "Print"], Cell[13606, 374, 413, 10, 26, "Print"], Cell[14022, 386, 413, 10, 26, "Print"], Cell[14438, 398, 413, 10, 26, "Print"], Cell[14854, 410, 413, 10, 26, "Print"], Cell[15270, 422, 413, 10, 26, "Print"], Cell[15686, 434, 413, 10, 26, "Print"], Cell[16102, 446, 413, 10, 26, "Print"], Cell[16518, 458, 413, 10, 26, "Print"], Cell[16934, 470, 413, 10, 26, "Print"], Cell[17350, 482, 413, 10, 26, "Print"], Cell[17766, 494, 413, 10, 26, "Print"], Cell[18182, 506, 413, 10, 26, "Print"], Cell[18598, 518, 413, 10, 26, "Print"], Cell[19014, 530, 413, 10, 26, "Print"], Cell[19430, 542, 413, 10, 26, "Print"], Cell[19846, 554, 413, 10, 26, "Print"], Cell[20262, 566, 413, 10, 26, "Print"], Cell[20678, 578, 413, 10, 26, "Print"], Cell[21094, 590, 413, 10, 26, "Print"], Cell[21510, 602, 413, 10, 26, "Print"], Cell[21926, 614, 413, 10, 26, "Print"], Cell[22342, 626, 413, 10, 26, "Print"], Cell[22758, 638, 413, 10, 26, "Print"], Cell[23174, 650, 413, 10, 26, "Print"], Cell[23590, 662, 413, 10, 26, "Print"], Cell[24006, 674, 413, 10, 26, "Print"], Cell[24422, 686, 413, 10, 26, "Print"], Cell[24838, 698, 413, 10, 26, "Print"], Cell[25254, 710, 413, 10, 26, "Print"], Cell[25670, 722, 413, 10, 26, "Print"], Cell[26086, 734, 413, 10, 26, "Print"], Cell[26502, 746, 413, 10, 26, "Print"], Cell[26918, 758, 413, 10, 26, "Print"], Cell[27334, 770, 445, 9, 26, "Print"], Cell[27782, 781, 39, 1, 26, "Print"], Cell[27824, 784, 39, 1, 26, "Print"], Cell[27866, 787, 39, 1, 26, "Print"], Cell[27908, 790, 39, 1, 26, "Print"], Cell[27950, 793, 39, 1, 26, "Print"], Cell[27992, 796, 344, 7, 26, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[28373, 808, 42, 1, 30, "Input"], Cell[28418, 811, 53, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28508, 817, 44, 1, 30, "Input"], Cell[28555, 820, 36, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28628, 826, 2371, 48, 690, "Input"], Cell[31002, 876, 304, 6, 26, "Print"], Cell[31309, 884, 124, 2, 26, "Print"], Cell[31436, 888, 149, 3, 26, "Print"], Cell[31588, 893, 149, 3, 26, "Print"], Cell[31740, 898, 153, 3, 26, "Print"], Cell[31896, 903, 174, 3, 26, "Print"], Cell[32073, 908, 181, 4, 26, "Print"], Cell[32257, 914, 693, 11, 54, "Message"], Cell[32953, 927, 290, 6, 26, "Print"], Cell[33246, 935, 204, 4, 26, "Print"], Cell[33453, 941, 368, 8, 26, "Print"], Cell[33824, 951, 600, 8, 86, "Print"], Cell[34427, 961, 151, 3, 26, "Print"], Cell[34581, 966, 151, 3, 26, "Print"], Cell[34735, 971, 153, 3, 26, "Print"], Cell[34891, 976, 174, 3, 26, "Print"], Cell[35068, 981, 209, 4, 26, "Print"], Cell[35280, 987, 693, 11, 54, "Message"], Cell[35976, 1000, 290, 6, 26, "Print"], Cell[36269, 1008, 205, 4, 26, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[36511, 1017, 68, 1, 50, "Input"], Cell[36582, 1020, 35, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36654, 1026, 39, 1, 30, "Input"], Cell[36696, 1029, 163, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36896, 1037, 75, 1, 50, "Input"], Cell[36974, 1040, 35, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37046, 1046, 40, 1, 30, "Input"], Cell[37089, 1049, 39, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37165, 1055, 39, 1, 30, "Input"], Cell[37207, 1058, 38, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37282, 1064, 36, 1, 30, "Input"], Cell[37321, 1067, 38, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37396, 1073, 88, 1, 30, "Input"], Cell[37487, 1076, 163, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37687, 1084, 65, 1, 50, "Input"], Cell[37755, 1087, 75, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37867, 1093, 68, 1, 50, "Input"], Cell[37938, 1096, 75, 1, 30, "Output"] }, Open ]], Cell[38028, 1100, 34, 1, 30, "Input"], Cell[CellGroupData[{ Cell[38087, 1105, 76, 1, 50, "Input"], Cell[38166, 1108, 38, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38241, 1114, 53, 1, 30, "Input"], Cell[38297, 1117, 75, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38409, 1123, 93, 1, 30, "Input"], Cell[38505, 1126, 53, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38595, 1132, 86, 1, 30, "Input"], Cell[38684, 1135, 75, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38796, 1141, 69, 1, 50, "Input"], Cell[38868, 1144, 35, 1, 30, "Output"] }, Open ]], Cell[38918, 1148, 46, 1, 30, "Input"], Cell[CellGroupData[{ Cell[38989, 1153, 87, 1, 30, "Input"], Cell[39079, 1156, 39, 1, 26, "Print"], Cell[39121, 1159, 39, 1, 26, "Print"], Cell[39163, 1162, 39, 1, 26, "Print"], Cell[39205, 1165, 39, 1, 26, "Print"], Cell[39247, 1168, 39, 1, 26, "Print"], Cell[39289, 1171, 39, 1, 26, "Print"], Cell[39331, 1174, 39, 1, 26, "Print"], Cell[39373, 1177, 39, 1, 26, "Print"], Cell[39415, 1180, 39, 1, 26, "Print"], Cell[39457, 1183, 40, 1, 26, "Print"], Cell[39500, 1186, 40, 1, 26, "Print"], Cell[39543, 1189, 40, 1, 26, "Print"], Cell[39586, 1192, 40, 1, 26, "Print"], Cell[39629, 1195, 40, 1, 26, "Print"], Cell[39672, 1198, 40, 1, 26, "Print"], Cell[39715, 1201, 40, 1, 26, "Print"], Cell[39758, 1204, 40, 1, 26, "Print"], Cell[39801, 1207, 40, 1, 26, "Print"], Cell[39844, 1210, 40, 1, 26, "Print"], Cell[39887, 1213, 40, 1, 26, "Print"], Cell[39930, 1216, 40, 1, 26, "Print"], Cell[39973, 1219, 40, 1, 26, "Print"], Cell[40016, 1222, 40, 1, 26, "Print"], Cell[40059, 1225, 40, 1, 26, "Print"], Cell[40102, 1228, 40, 1, 26, "Print"], Cell[40145, 1231, 40, 1, 26, "Print"], Cell[40188, 1234, 40, 1, 26, "Print"], Cell[40231, 1237, 40, 1, 26, "Print"], Cell[40274, 1240, 40, 1, 26, "Print"], Cell[40317, 1243, 40, 1, 26, "Print"], Cell[40360, 1246, 40, 1, 26, "Print"], Cell[40403, 1249, 40, 1, 26, "Print"], Cell[40446, 1252, 40, 1, 26, "Print"], Cell[40489, 1255, 40, 1, 26, "Print"], Cell[40532, 1258, 40, 1, 26, "Print"], Cell[40575, 1261, 40, 1, 26, "Print"], Cell[40618, 1264, 40, 1, 26, "Print"], Cell[40661, 1267, 40, 1, 26, "Print"], Cell[40704, 1270, 40, 1, 26, "Print"], Cell[40747, 1273, 40, 1, 26, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[40824, 1279, 73, 1, 50, "Input"], Cell[40900, 1282, 35, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40972, 1288, 38, 1, 30, "Input"], Cell[41013, 1291, 35, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41085, 1297, 46, 1, 30, "Input"], Cell[41134, 1300, 53, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41224, 1306, 41, 1, 30, "Input"], Cell[41268, 1309, 46, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41351, 1315, 37, 1, 30, "Input"], Cell[41391, 1318, 52, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41480, 1324, 69, 1, 50, "Input"], Cell[41552, 1327, 35, 1, 30, "Output"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)