(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 48337, 999] NotebookOptionsPosition[ 46840, 950] NotebookOutlinePosition[ 47185, 965] CellTagsIndexPosition[ 47142, 962] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"Given", " ", "n"}], " ", ">", " ", RowBox[{"1", " ", "there", " ", "is", " ", "an", " ", "m"}], " ", ">", " ", RowBox[{ "1", " ", "such", " ", "that", " ", "nm", " ", "has", " ", "only", " ", "0", "s", " ", "and", " ", "1", "s", " ", "base", " ", "10"}]}], "Section"]], "Input", CellChangeTimes->{{3.44810706409807*^9, 3.4481070754205875`*^9}}], Cell[BoxData[{ RowBox[{"Needs", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Needs", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Needs", "[", "\"\\"", "]"}]}], "Input", CellChangeTimes->{{3.448122899597228*^9, 3.4481229008149242`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"FromDigits", "[", RowBox[{"IntegerDigits", "[", RowBox[{"1000000", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"FromDigits", "[", RowBox[{"IntegerDigits", "[", RowBox[{"110000", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"23886", "/", RowBox[{"(", RowBox[{"60", " ", "60."}], ")"}]}]}], "Input", CellChangeTimes->{{3.44931004621875*^9, 3.44931014209375*^9}}], Cell[BoxData["11110100001001000000"], "Output", CellChangeTimes->{{3.449310061828125*^9, 3.44931014253125*^9}}], Cell[BoxData["11010110110110000"], "Output", CellChangeTimes->{{3.449310061828125*^9, 3.44931014253125*^9}}], Cell[BoxData["6.635`"], "Output", CellChangeTimes->{{3.449310061828125*^9, 3.44931014253125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"list", " ", "=", " ", RowBox[{"{", RowBox[{ "1", ",", "10", ",", "11", ",", "100", ",", "101", ",", "110", ",", "111", ",", "1000", ",", "1001", ",", "1010", ",", "1011", ",", "1100", ",", "1101", ",", "1110", ",", "1111"}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"list", " ", "=", " ", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"x", "=", " ", "1"}], ",", " ", RowBox[{"x", " ", "\[LessEqual]", "1100000"}], ",", " ", RowBox[{"x", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"list", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"list", ",", RowBox[{"FromDigits", "[", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"x", ",", "2"}], "]"}], ",", "10"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"list", "[", RowBox[{"[", RowBox[{"Length", "[", "list", "]"}], "]"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.448107080255239*^9, 3.448107094709392*^9}, { 3.448107131035192*^9, 3.448107165365026*^9}, {3.4481071959187346`*^9, 3.448107251125162*^9}, {3.448107456487994*^9, 3.4481075213129473`*^9}, { 3.448107602194489*^9, 3.4481076052499576`*^9}, {3.4481076409351735`*^9, 3.44810766736024*^9}, 3.4481172699653606`*^9, 3.448117366950364*^9, { 3.448122890378092*^9, 3.448122896998762*^9}, 3.4481365566812057`*^9, { 3.448144629216288*^9, 3.448144629749457*^9}, {3.44837545447425*^9, 3.448375491193*^9}, {3.448381518302375*^9, 3.44838151872425*^9}, { 3.4483833403805*^9, 3.448383341021125*^9}, {3.449143423828125*^9, 3.449143424375*^9}, {3.44924068278125*^9, 3.449240683703125*^9}, { 3.44931015165625*^9, 3.449310152234375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"29224.577999999998`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{{3.448375463302375*^9, 3.448375483177375*^9}, 3.448375542177375*^9, 3.448381620114875*^9, 3.448383863614875*^9, 3.449156599421875*^9, 3.44926539678125*^9, 3.4493405604217343`*^9}], Cell[BoxData["100001100100011100000"], "Print", CellChangeTimes->{ 3.448107794492728*^9, {3.4481172677311287`*^9, 3.448117271259223*^9}, 3.4481175200470104`*^9, 3.4481368112742853`*^9, 3.4481453000571404`*^9, { 3.448375463302375*^9, 3.44837548322425*^9}, 3.448375542239875*^9, 3.448381620114875*^9, 3.448383863614875*^9, 3.449156599578125*^9, 3.44926539678125*^9, 3.4493405604373593`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"numfound", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"end", " ", "=", " ", "10000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"start", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"badones", " ", "=", " ", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"successlist", " ", "=", " ", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"print", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"n", " ", "=", " ", "start"}], ",", " ", RowBox[{"n", " ", "\[LessEqual]", "end"}], ",", " ", RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"found", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"10", " ", "n"}], ",", RowBox[{"(", RowBox[{"end", " ", "-", " ", "start", "+", "1"}], ")"}]}], "]"}], " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"100.0", " ", RowBox[{"n", " ", "/", " ", RowBox[{"(", RowBox[{"end", "-", "start", "+", "1"}], ")"}]}]}], ",", " ", "\"\<%.\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", " ", "=", " ", "1"}], ",", " ", RowBox[{"j", " ", "\[LessEqual]", " ", RowBox[{"Length", "[", "list", "]"}]}], ",", " ", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "n"}], "]"}], " ", "\[Equal]", " ", "0"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"print", " ", "\[Equal]", " ", "1"}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "n", ",", " ", "\"\< and number is \>\"", ",", " ", RowBox[{"list", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"numfound", " ", "=", " ", RowBox[{"numfound", " ", "+", " ", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"found", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"successlist", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"successlist", ",", " ", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"1.0", " ", RowBox[{"list", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", " ", "=", " ", RowBox[{ RowBox[{"Length", "[", "list", "]"}], " ", "+", " ", "10"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], " ", "]"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "IF"}], " ", "*)"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "FOR"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"found", " ", "\[Equal]", " ", "0"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"print", " ", "\[Equal]", " ", "1"}], ",", RowBox[{ "Print", "[", "\"\\"", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"badlones", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"badones", ",", " ", "n"}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"end", " ", "-", " ", "start", " ", "+", " ", "1"}], ",", " ", "\"\< we found \>\"", ",", " ", "numfound", ",", " ", "\"\< which is \>\"", ",", " ", RowBox[{"100.", " ", RowBox[{"numfound", " ", "/", " ", RowBox[{"(", RowBox[{"end", " ", "-", " ", "start", "+", "1"}], ")"}]}]}], " ", ",", " ", "\"\<%.\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "badones"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Histogram", "[", RowBox[{"successlist", ",", " ", RowBox[{"HistogramScale", " ", "\[Rule]", " ", "1"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "start", ",", " ", "\"\< to \>\"", ",", " ", "end", ",", " ", "\"\<.\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "badones", ",", " ", "\"\<.\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"list", "[", RowBox[{"[", RowBox[{"Length", "[", "list", "]"}], "]"}], "]"}], ",", " ", "\"\< which is of size 10^\>\"", ",", " ", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"1.0", " ", RowBox[{"list", "[", RowBox[{"[", RowBox[{"Length", "[", "list", "]"}], "]"}], "]"}]}]}], "]"}], ",", " ", "\"\<.\>\""}], "]"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4481076887602377`*^9, 3.4481077353314753`*^9}, { 3.448107860545141*^9, 3.4481078801366606`*^9}, {3.448107914645194*^9, 3.44810793208646*^9}, {3.4481079762144957`*^9, 3.448108005760456*^9}, { 3.448108214598652*^9, 3.448108289418082*^9}, {3.4481083362851996`*^9, 3.4481083740327835`*^9}, {3.448117083857155*^9, 3.448117130388356*^9}, { 3.4481171894627004`*^9, 3.4481172273020754`*^9}, {3.4481173204816585`*^9, 3.448117507744087*^9}, {3.448117625019784*^9, 3.4481177823270984`*^9}, { 3.448117816409878*^9, 3.4481178247696943`*^9}, {3.4481228665007143`*^9, 3.4481228713793077`*^9}, {3.448122911687275*^9, 3.4481231487756157`*^9}, { 3.4481232785270767`*^9, 3.4481234217718153`*^9}, {3.448123452707335*^9, 3.448123526819779*^9}, {3.448123586106024*^9, 3.4481235897571573`*^9}, { 3.448139349083535*^9, 3.4481393627984776`*^9}, {3.44813940174618*^9, 3.448139413201502*^9}, 3.4481394984909644`*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "10.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 10., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449397623005875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "20.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 20., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.44939767517775*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "30.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 30., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449397743084*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "40.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 40., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449397819537125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "50.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 50., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449397907474625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "60.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 60., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.44939799892775*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "70.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 70., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398098193375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "80.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 80., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398210224625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "90.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 90., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.44939832317775*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"We've done \"\>", "\[InvisibleSpace]", "100.`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["We've done ", 100., "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398448959*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398448959*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Of \"\>", "\[InvisibleSpace]", "10000", "\[InvisibleSpace]", "\<\" we found \"\>", "\[InvisibleSpace]", "9942", "\[InvisibleSpace]", "\<\" which is \"\>", "\[InvisibleSpace]", "99.42`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["Of ", 10000, " we found ", 9942, " which is ", 99.42, "%."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398448959*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Bad ones are \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "792", ",", "999", ",", "1188", ",", "1584", ",", "1998", ",", "2079", ",", "2178", ",", "2376", ",", "2439", ",", "2997", ",", "3168", ",", "3564", ",", "3636", ",", "3861", ",", "3960", ",", "3996", ",", "4059", ",", "4158", ",", "4356", ",", "4554", ",", "4752", ",", "4878", ",", "4995", ",", "5445", ",", "5544", ",", "5940", ",", "5994", ",", "6138", ",", "6237", ",", "6336", ",", "6514", ",", "6534", ",", "6633", ",", "6732", ",", "6831", ",", "6993", ",", "7128", ",", "7227", ",", "7272", ",", "7317", ",", "7425", ",", "7623", ",", "7722", ",", "7821", ",", "7920", ",", "7992", ",", "8118", ",", "8316", ",", "8514", ",", "8712", ",", "8991", ",", "9108", ",", "9207", ",", "9306", ",", "9504", ",", "9756", ",", "9990", ",", "9999"}], "}"}]}], SequenceForm[ "Bad ones are ", {792, 999, 1188, 1584, 1998, 2079, 2178, 2376, 2439, 2997, 3168, 3564, 3636, 3861, 3960, 3996, 4059, 4158, 4356, 4554, 4752, 4878, 4995, 5445, 5544, 5940, 5994, 6138, 6237, 6336, 6514, 6534, 6633, 6732, 6831, 6993, 7128, 7227, 7272, 7317, 7425, 7623, 7722, 7821, 7920, 7992, 8118, 8316, 8514, 8712, 8991, 9108, 9207, 9306, 9504, 9756, 9990, 9999}], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398448974625*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0., 0}, {0.2, 0.0005029169181251258}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.20000000000000004`, 0}, {0.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.39999999999999997`, 0}, {0.6000000000000001, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.6000000000000001, 0}, {0.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{0.8, 0}, {1., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1., 0}, {1.2000000000000002`, 0.002011667672500501}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.2000000000000002`, 0}, {1.4000000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.4, 0}, {1.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.6, 0}, {1.8000000000000003`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{1.7999999999999998`, 0}, {2., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2., 0}, {2.2, 0.0060350030175015034`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.2, 0}, {2.4000000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.4000000000000004`, 0}, {2.5999999999999996`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.6, 0}, {2.8000000000000003`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{2.8000000000000007`, 0}, {3., 0.003520418426875885}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3., 0}, {3.2, 0.014081673707503507`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.2, 0}, {3.4000000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.4000000000000004`, 0}, {3.5999999999999996`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.6, 0}, {3.8000000000000003`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.8000000000000007`, 0}, {4., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{3.9999999999999996`, 0}, \ {4.199999999999999, 0.04475960571313615}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{4.200000000000001, 0}, {4.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{4.4, 0}, {4.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{4.600000000000001, 0}, {4.800000000000001, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{4.800000000000001, 0}, {5., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{5., 0}, {5.199999999999999, 0.0915308790987728}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{5.200000000000001, 0}, {5.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{5.4, 0}, {5.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{5.600000000000001, 0}, {5.800000000000001, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{5.800000000000001, 0}, {6., 0.00201166767250051}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{6., 0}, {6.199999999999999, 0.14484007242003608`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{6.200000000000001, 0}, {6.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{6.4, 0}, {6.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{6.600000000000001, 0}, {6.800000000000001, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{6.800000000000001, 0}, {7., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{7., 0}, {7.199999999999999, 0.19814926574129937`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{7.200000000000001, 0}, {7.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{7.4, 0}, {7.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{7.600000000000001, 0}, {7.800000000000001, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{7.800000000000001, 0}, {8., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{8., 0}, {8.200000000000003, 0.2841480587406945}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{8.200000000000001, 0}, {8.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{8.4, 0}, {8.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{8.599999999999998, 0}, {8.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{8.8, 0}, {9., 0.001005833836250255}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{9., 0}, {9.200000000000003, 0.4214443773888531}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{9.200000000000001, 0}, {9.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{9.399999999999999, 0}, {9.600000000000001, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{9.600000000000001, 0}, {9.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{9.8, 0}, {10., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{10., 0}, {10.200000000000003`, 0.5823777911888925}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{10.200000000000001`, 0}, {10.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{10.399999999999999`, 0}, {10.600000000000001`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{10.600000000000001`, 0}, {10.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{10.8, 0}, {11., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{11., 0}, {11.200000000000003`, 0.752363709515184}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{11.200000000000001`, 0}, {11.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{11.399999999999999`, 0}, {11.600000000000001`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{11.600000000000001`, 0}, {11.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{11.8, 0}, {12., 0.0005029169181251275}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{12., 0}, {12.200000000000003`, 0.9007242003620954}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{12.200000000000001`, 0}, {12.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{12.399999999999999`, 0}, {12.600000000000001`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{12.600000000000001`, 0}, {12.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{12.8, 0}, {13., 0.0005029169181251275}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{13., 0}, {13.200000000000003`, 0.8081874874270728}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{13.200000000000001`, 0}, {13.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{13.399999999999999`, 0}, {13.600000000000001`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{13.600000000000001`, 0}, {13.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{13.8, 0}, {14., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{14., 0}, {14.200000000000003`, 0.49235566284449545`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{14.200000000000001`, 0}, {14.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{14.399999999999999`, 0}, {14.600000000000001`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{14.600000000000001`, 0}, {14.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{14.8, 0}, {15., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{15., 0}, {15.200000000000003`, 0.16646549989941573`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{15.200000000000001`, 0}, {15.4, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{15.399999999999999`, 0}, {15.600000000000001`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{15.600000000000001`, 0}, {15.8, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{15.8, 0}, {16., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{16., 0}, {16.200000000000003`, 0.03268959967813329}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{16.2, 0}, {16.400000000000002`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{16.4, 0}, {16.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{16.6, 0}, {16.800000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{16.799999999999997`, 0}, {17., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{17., 0}, {17.200000000000003`, 0.013578756789378444`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{17.2, 0}, {17.400000000000002`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{17.4, 0}, {17.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{17.6, 0}, {17.800000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{17.799999999999997`, 0}, {18., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{18., 0}, {18.200000000000003`, 0.012572922953128188`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{18.2, 0}, {18.400000000000002`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{18.4, 0}, {18.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{18.6, 0}, {18.800000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{18.799999999999997`, 0}, {19., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{19., 0}, {19.200000000000003`, 0.023134178233755458`}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{19.200000000000003`, 0}, {19.400000000000006`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{19.4, 0}, {19.6, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{19.6, 0}, {19.800000000000004`, 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{19.799999999999997`, 0}, {20., 0}]}, {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], EdgeForm[GrayLevel[0]], RectangleBox[{20., 0}, {20.200000000000003`, 0.0005029169181251186}]}}, AlignmentPoint->Center, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->None, AxesOrigin->{0., 0}, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->{{0., 20.200000000000003`}, All}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->{{{0., FormBox["0", TraditionalForm]}, {5., FormBox["5", TraditionalForm]}, {10., FormBox["10", TraditionalForm]}, {15., FormBox["15", TraditionalForm]}, {20., FormBox["20", TraditionalForm]}}, Automatic}, TicksStyle->{}]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398449193375*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXbty00AU3VgrbF4zlFRMvgB+gQqI8xiqFFQxGWaSYRiCkjIVNRQMpUv+ gKFSy0BF6U+g0vAPQvfuaiXZKyVyZFsrnUwsK/s495xz13K80sr7k4uTN+8m F6fHk+3nweTs5PT4fPvZ+yAp8raE2DoRQvzdFrQfJ7t6Eye/8SltqMS+f8RP UkRhINKf6Sw+4OKRmE11WRCKSAGasiCMdrnAX2hGaAMu8AiNW9HjBW9vZ+2z iPPQSXAmeMxPXlI1FTMNs6dh4jgSYZCVx9R/OtNQgQijWIx1/3xbacHc0ZhE ncLH8UyE9GzBHBapReGUi6uoEaxxIoGkEFXU8phjnYwoDKvwNKvXKWoUiqQN 99gvYaW0Xc3Ks2DualZk1NQYtIA3LI4zhcA5J5SD2naNFrNehFRahyZZNihN apKOgzAb3WWMrju2BhZM1e5OLoGJZUJhWHAL7PKWce1eWsxBjWwTN/cSGlc1 XQDeMa2JnUGxAY8WDyQPVDN95NGe0fZwPfWUMd4RR9zG2uERbX0q4uaS9gbx 7z//5trdVVZQGdXyI9m/Zy++X9XaLxTrqg0jOaSgmJdR+Vh40m0f3FdQL5Oy S9I3pEAW95rJzlPkZMm4j+H/5v3n0oewt/m4Y5gKU9tlKnfx4ONN4766wr2r /72AYalhL2GT1SZ2CeZgDMEm2ASbYBNsgk2wCTY1bZOEM4vOTPruB9vRexcw KuAH/IAf8AN+wA/4AT/a54fstQUfeiOcdfdHbm/zDOGdEs5hOy3zLcRBHMRt QpxatlBYiqE00ooNtf6E6jyu9QtLr2IFIM4744VvXZOjFlDJ+XVcXqeHhW9d 5eQrzYV1Y555jzqjPa8CvLVabavWfKMuW41my/lHx7Ta8npLq0uHPP016IBW 28tZ5dC3Lp1zP79y/nCeHr3m1uBJ15Xa3pUhAAIgAAIgoJ4A5u8ebed9hwAI gIAOCpBucf4Kpn1iykRbzM8dJ8EUTMEUTMEUTNvKFO/2YAqmYAqmnWeq7/JV cTFHeutNvlFnxUntluqzn9H1XRdlOyVvMmXutCr0DZBlLrH8YOpf2irOdm2F yo7kv7lOZc52UtqppBVuA61Ho1Oiyq9/0hfCEBW3RC1cEZFe7OLm4aL03Ui2 lNw3UAIlUFolJWbUBiIt9AaUQAmUQGn9lOSmWVyu/S3isiVqERuxERuxuxYb R3HERux1xfYr+jYW6UeD+Lq6ajFvvl7YZ9wbZVS9Bo/rct/wSPPptqnYhinZ pu6zZYEldTwavjdLpPzciJ9bbqwyltVtzJvs6/149OS/yHHdIyj7VsvMpZUP 5tJTCel3na4jR6s+iAAf+DfGZ3jnWAMf+MDHUQH4wAd+V/Czo45slOgvAAGo 7kdINfqqZ2iyCz6rPmQvF/8a8zG6Lv1k3WTsyskFc5+tufsx8cTLzyUj2mZY zAWNOg1Ub5s7WJlKc2O95bIrayQ0d41jakWNcJ90kJK7SvnFwaon8urj13h5 ocdyPbhDS7igR7t63GRscNHn8ka8PVxPvdj6D7bvuI4=\ \>"]], Cell[BoxData["\<\"Histogram of log of the number with all 0s and 1s with n as \ a factor.\"\>"], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398449193375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Range is from \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" to \"\>", "\[InvisibleSpace]", "10000", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm["Range is from ", 1, " to ", 10000, "."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398449193375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Couldn't find a factor for \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "792", ",", "999", ",", "1188", ",", "1584", ",", "1998", ",", "2079", ",", "2178", ",", "2376", ",", "2439", ",", "2997", ",", "3168", ",", "3564", ",", "3636", ",", "3861", ",", "3960", ",", "3996", ",", "4059", ",", "4158", ",", "4356", ",", "4554", ",", "4752", ",", "4878", ",", "4995", ",", "5445", ",", "5544", ",", "5940", ",", "5994", ",", "6138", ",", "6237", ",", "6336", ",", "6514", ",", "6534", ",", "6633", ",", "6732", ",", "6831", ",", "6993", ",", "7128", ",", "7227", ",", "7272", ",", "7317", ",", "7425", ",", "7623", ",", "7722", ",", "7821", ",", "7920", ",", "7992", ",", "8118", ",", "8316", ",", "8514", ",", "8712", ",", "8991", ",", "9108", ",", "9207", ",", "9306", ",", "9504", ",", "9756", ",", "9990", ",", "9999"}], "}"}], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Couldn't find a factor for ", {792, 999, 1188, 1584, 1998, 2079, 2178, 2376, 2439, 2997, 3168, 3564, 3636, 3861, 3960, 3996, 4059, 4158, 4356, 4554, 4752, 4878, 4995, 5445, 5544, 5940, 5994, 6138, 6237, 6336, 6514, 6534, 6633, 6732, 6831, 6993, 7128, 7227, 7272, 7317, 7425, 7623, 7722, 7821, 7920, 7992, 8118, 8316, 8514, 8712, 8991, 9108, 9207, 9306, 9504, 9756, 9990, 9999}, "."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398449193375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Note: only looking at numbers up to \"\>", "\[InvisibleSpace]", "100001100100011100000", "\[InvisibleSpace]", "\<\" which is of size 10^\"\>", "\[InvisibleSpace]", "20.000004777647362`", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Note: only looking at numbers up to ", 100001100100011100000, " which is of size 10^", 20.000004777647362`, "."], Editable->False]], "Print", CellChangeTimes->{ 3.448122988471423*^9, 3.4481230563547735`*^9, 3.448123149379093*^9, { 3.448123315656536*^9, 3.448123331769763*^9}, {3.4481233681688004`*^9, 3.4481233784142385`*^9}, {3.4481235109448185`*^9, 3.4481235275453186`*^9}, 3.448123623678814*^9, 3.448137366659637*^9, 3.448139415581232*^9, 3.4481395440027*^9, 3.4481455545564766`*^9, 3.44838054216175*^9, 3.44838223841175*^9, 3.448384153052375*^9, 3.4492207331875*^9, 3.449309179296875*^9, 3.449398449193375*^9}] }, Open ]] }, Open ]] }, WindowSize->{1110, 853}, WindowMargins->{{-5, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 412, 9, 39, "Input"], Cell[960, 31, 314, 5, 72, "Input"], Cell[CellGroupData[{ Cell[1299, 40, 436, 10, 72, "Input"], Cell[1738, 52, 112, 1, 30, "Output"], Cell[1853, 55, 109, 1, 30, "Output"], Cell[1965, 58, 98, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2100, 64, 2117, 47, 152, "Input"], Cell[4220, 113, 301, 5, 30, "Output"], Cell[4524, 120, 406, 6, 23, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[4967, 131, 7636, 175, 732, "Input"], Cell[CellGroupData[{ Cell[12628, 310, 707, 13, 23, "Print"], Cell[13338, 325, 706, 13, 23, "Print"], Cell[14047, 340, 704, 13, 23, "Print"], Cell[14754, 355, 707, 13, 23, "Print"], Cell[15464, 370, 707, 13, 23, "Print"], Cell[16174, 385, 706, 13, 23, "Print"], Cell[16883, 400, 707, 13, 23, "Print"], Cell[17593, 415, 707, 13, 23, "Print"], Cell[18303, 430, 706, 13, 23, "Print"], Cell[19012, 445, 706, 13, 23, "Print"], Cell[19721, 460, 531, 8, 23, "Print"], Cell[20255, 470, 886, 15, 23, "Print"], Cell[21144, 487, 1871, 30, 62, "Print"], Cell[23018, 519, 19491, 347, 236, 17364, 311, "CachedBoxData", "BoxData", \ "Print"], Cell[42512, 868, 604, 9, 23, "Print"], Cell[43119, 879, 792, 14, 23, "Print"], Cell[43914, 895, 1946, 32, 62, "Print"], Cell[45863, 929, 949, 17, 23, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)