（**************内容类型：应用程序/数学**************CreatedBy='Mathematica 5.2'数学兼容笔记本此笔记本可与任何数学兼容应用程序，如Mathematica、MathReader或Publicon。数据因为笔记本以上面包含星星的线开始。要将笔记本放入Mathematica-compatible应用程序，请执行以下操作以下之一：*将以上面的星线开始的数据保存到文件中名称以.nb结尾，然后在应用；*将数据从上面的星线开始复制到剪贴板，然后使用应用程序内的“粘贴”菜单命令。笔记本电脑的数据仅包含可打印的7位ASCII码以电子邮件或文本模式通过ftp直接发送。新品可以是CR、LF或CRLF（Unix、Macintosh或MS-DOS样式）。注意：如果修改此笔记本的数据而不是Mathematica中的数据-兼容的应用程序，必须删除下面包含单词CacheID，否则Mathematica-compatible应用程序可能尝试使用无效的缓存数据。有关笔记本电脑和Mathematica-compatible的更多信息应用程序，请联系Wolfram Research：网状物：网址：http://www.wolfram.com电子邮件：info@wolfram.com电话：+1-217-398-0700（美国）笔记本阅读器应用程序可从免费获得Wolfram研究。*******************************************************************)（*缓存ID:232*）（*笔记本文件断线测试笔记本文件线路中断测试*）（*笔记本选项位置[7228，251]*）（*笔记本大纲位置[7866，273]*）（*单元格标签索引位置[7822，269]*）（*WindowFrame->正常*）笔记本[{单元格[CellGroupData[{细胞[“第44次梅森素数”，“标题”]，单元格[“\<\埃里克·韦斯特因http://mathworld.wolfram.com/news/2006-09-11/mersene-44/mersene44.nb\\>“，”文本“]，单元格[“\<\2006年9月4日，GIMPS项目的一名成员发现了已知的第44个\梅森素数。评估下面的单元格以计算其值\\>“，”文本“]，单元格[BoxData[行框[{行框[{“mersenne44”，“=”，行框[{行框[{“2”、“^”、“32582657”}]、“”、“-”、“”，“1”}]}]，“；”}]]，“输入”]，单元格[“\<\计算下面的单元格以计算素数的小数位数\\>“，”文本“]，单元格[CellGroupData[{单元格[BoxData[行框[{行框[{行框[{“数字”，“=”，行框[{“整数位数”，“[”，“mersenne44”，“]”}]}]，“；”}]，”//“，“定时”}]]，“输入”]，单元格[BoxData[行框[{“{”，行框[{行框[{“49.871403999999984`”，“”，“Second”}]，“，”，“Null”}]，“}”}]]，“输出”]}，打开]]，单元格[“\<\计算下面的单元格以计算质数中的小数位数\\\>“，”文本“]，单元格[CellGroupData[{单元格[BoxData[行框[{“长度”，“[”，“数字”，“]”}]]，“输入”]，单元格[BoxData[“9808358”]，“输出”]}，打开]]，单元格[“评估下面的单元格以查看第一个和最后几个数字”，“文本”]，单元格[CellGroupData[{单元格[BoxData[行框[{行框[{“ToString”，“[”，行框[{“FromDigits”，“[”，行框[{“Take”，“[”，行框[{“数字”，“，”，“20”}]，“]”}]，“\”\<\[中心省略号]\>\“”，“<>”，RowBox[｛“ToString”，“[”，行框[{“FromDigits”，“[”，行框[{“Take”，“[”，行框[{“数字”，“，”，行框[{“-”，“20”}]}]，“]”}]，单元格[BoxData[“\<\”12457502601536945540\[中心省略号]1175288015405367871\“\\>“]，”输出“]}，打开]]，单元格[“\<\评估以下内容以计算每个十进制数字的次数\出现\\>“，”文本“]，单元格[CellGroupData[{单元格[BoxData[行框[{“计数”，“=”，行框[{“长度”，“/@”，行框[{“拆分”，“[”，行框[{“排序”，“[”，“数字”，“]”}]，“]“}]}]]，“输入”]，单元格[BoxData[行框[{“{”，行框[{"981284", ",", "981525", ",", "980761", ",", "978652", ",", "980519", ",", "981645", ",", "979697", ",", "980817", ",", "982176", ",", “981282”｝]，“｝”｝]]，“输出”]}，打开]]，单元格[“\<\评估以下内容以生成格式良好的表，其中显示\数字的分布\\>“，”文本“]，单元格[CellGroupData[{单元格[BoxData[行框[{“DisplayForm”，“[”，行框[{“GridBox”，“[”，“\[IndentingNewLine]”，行框[{行框[{“映射索引”，“[”，行框[{行框[{行框[{“{”，行框[{行框[{行框[{“#2”，“[”，行框[{“[”，“1”，“]”}]，“]“}]，”-“，”1“}]，“#1”}]，“}”}]，“&”}]，行框[{“GridFrame”，“\[Rule]”，“True”}]，“，”，行框[{“RowLines”，“\[Rule]”，“True”}]，“，”，行框[{“ColumnLines”，“\[Rule]”，“True”}]}]，“]”}]，”]“}]]，“Input”]，单元格[BoxData[标记框[GridBox[{{"0", "981284"},{"1", "981525"},{"2", "980761"},{"3", "978652"},{"4", "980519"},{"5", "981645"},{"6", "979697"},{"7", "980817"},{"8", "982176"},{"9", "981282"}},GridFrame->True，行线->真，ColumnLines->True]，显示窗体]]，“输出”]}，打开]]，单元格[“\<\可以看出，3是最罕见的数字，8是最常见的数字。评估\下面的单元格显示按频率排列的数字列表，其中最罕见的是\数字首先出现\\>“，”文本“]，单元格[CellGroupData[{单元格[BoxData[行框[{行框[{“排序”，“[”，“计数”，“]”}]，“-”，“1”}]]，“输入”]，单元格[BoxData[行框[{“{”，行框[{"3", ",", "6", ",", "4", ",", "2", ",", "7", ",", "9", ",", "0", ",", “1”、“、”、“5”、“，”、“8”}]、“}”}]]、“输出”]}，打开]]，单元格[“\<\共有9808358位数字。评估下面的单元格以验证上面的\counts和为总位数\\>“，”文本“]，单元格[CellGroupData[{单元格[BoxData[行框[{“Plus”，“@@”，“counts”}]]，“Input”]，单元格[BoxData[“9808358”]，“输出”]}，打开]]，单元格[“评估下面的单元格以查看完整质数”，“文本”]，单元格[BoxData[“mersenne44”]，“Input”]，单元格[TextData[{“寻找大型梅森素数的原始算法是在年开发的\",样式框[“Mathematica”，字体倾斜->“斜体”]，“作者：Richard Crandall。地址：”，按钮框[“www.perfsci.com”，按钮数据：>{URL[“http://www.perfsci.com网站/“]，无}，按钮样式->“超链接”]，”，产品“PrimeKit”可用，这是一个精确的一对一\Crandall和Pomerance算法笔记本集合\书\t“，StyleBox[“素数：计算视角”，字体倾斜->“斜体”]，“。这里讨论了IBDWT算法，以及有关\书籍可从“，按钮框[“http://library.wolfram.com/infocenter/Books/953/",按钮数据：>{URL[“http://library.wolfram.com/infocenter/Books/953/“]，无}，按钮样式->“超链接”]，"."}]，“文本”]}，打开]]},FrontEndVersion->“5.2 for Macintosh”，屏幕矩形->{{0，1680}，{0，977}}，窗口大小->{620715}，窗口边距->{{自动，80}，{自动的，104}}](*******************************************************************缓存数据紧随其后。如果您直接编辑此笔记本文件使用Mathematica，必须删除包含CacheID的行文件的顶部。然后将在以下情况下重新创建缓存数据：您可以从Mathematica中保存此文件。*******************************************************************)（*单元格标签大纲单元格标签索引->{}*)（*单元格标签索引单元格标记索引->｛｝*)（*笔记本文件大纲笔记本[{单元格[CellGroupData[{单元格[1776，53，39，0，88，“标题”]，单元格[1818，55，112，3，46，“文本”]，单元格[1933，60，167，3，46，“文本”]，单元格[2103，65，167，5，27，“输入”]，单元格[2273,72,93,2,30，“文本”]，单元格[CellGroupData[{单元格[2391，78，178，5，27，“输入”]，单元格[2572，85，142，4，27，“输出”]}，打开]]，单元格[2729，92，103，3，30，“文本”]，单元格[CellGroupData[{单元格[2857，99，67，1，27，“输入”]，单元格[2927，102，34，0，27，“输出”]}，打开]]，单元格[2976，105，76，0，30，“文本”]，单元格[CellGroupData[{单元格[3077，109，445，11，43，“输入”]，单元格[3525、122、94、1、27，“输出”]}，打开]]，单元格[3634，126，107，3，30，“文本”]，单元格[CellGroupData[{单元格[3766，133，172，4，27，“输入”]，单元格[3941、139、235、5、43，“输出”]}，打开]]，单元格[4191，147，121，3，30，“文本”]，单元格[CellGroupData[{单元格[4337，154，668，15，59，“输入”]，单元格[500817142416185，“输出”]}，打开]]，单元格[5447，190，202，4，50，“文本”]，单元格[CellGroupData[{单元格[5674，198，96，2，27，“输入”]，单元格[5773、202、176、4、27，“输出”]}，打开]]，单元格[5964，209，145，3，50，“文本”]，单元格[CellGroupData[{单元格[6134，216，61，1，27，“输入”]，单元格[6198，219，34，0，27，“输出”]}，打开]]，单元格[6247，222，61，0，32，“文本”]，单元格[6311，224，36，0，27，“输入”]，单元格[6350，226，862，22，104，“文本”]}，打开]]}]*)(*******************************************************************Mathematica笔记本文件结束。*******************************************************************)