（*内容类型：application/vnd.wolfram.mathematica*）（***Wolfram笔记本文件***）(* http://www.wolfram.com/nb *)（*CreatedBy='Mathematica 11.1'*）（*CacheID:234*）（*内部缓存信息：笔记本文件断线测试笔记本文件断线测试笔记本数据位置[158,7]笔记本数据长度[15760，472]笔记本选项位置[12160，370]笔记本大纲位置[12563388]单元格标签索引位置[12520，385]窗口框架->正常*）（*笔记本内容开头*）笔记本[{单元格[CellGroupData[{单元格[“Demlo编号”，“标题”，表达式UUID->“7602d95a-c809-4926-bfb5-cfe7826ac785”]，单元格[CellGroupData[{单元格[“作者”，“小节”，表达UUID->“4ce0c43d-80bd-41f8-8dd3-2c0f6e589fbf”]，单元格[“\<\埃里克·韦斯特因2008年2月17日\\>“，”文本“，表达式UUID->“39a99410-9cb8-4023-8906-0cb5ac004e7c”]，单元格[TextData[{“此笔记本下载自”，按钮框[“http://mathworld.wolfram.com/notebooks/Integer序列/\DemloNumber.nb“，BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/notebooks/IntegerSequences/DemloNumber。\nb“]，无}]，"."}]，“文本”，表达式UUID->“0f29e278-73b8-4699-b529-2b66000362fc”]，单元格[TextData[{“有关更多信息，请参阅埃里克的”，StyleBox[“数学世界”，字体倾斜->“斜体”]，“条目”，按钮框[“http://mathworld.wolfram.com/DemloNumber.html",BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/DemloNumber.html“]，无}]，"."}]，“文本”，表达式UUID->“66f744bf-cbe6-47c3-8e7d-c5b35e733517”]，单元格[“\<\\[版权所有]2008 Wolfram Research，Inc.，除非另有说明\\>“，”文本“，表达式UUID->“2864993a-e7f6-446f-bb0b-d78b816e0176”]}，打开]]，单元格[CellGroupData[{单元格[“初始化”，“子节”，表达式UUID->“813ffbf2-81b6-4bf6-8139-6700d2ab92b2”]，单元格[BoxData[{行框[{RowBox[｛“Repunit”，“[”，“n_”，“]”｝]，“：=”，行框[{行框[{“（”，行框[{行框[{“10”，“^”，“n”}]，“-”，“1”}]，行框[{行框[{“Demlo”，“[”，“n_”，“]”}]，“：=”，行框[{行框[{“重新命名”，“[”，“n”，“]”}]，“^”，“2”}]]，“\n”，行框[{“SetAttributes”，“[”，行框[{“Demlo”，“，”，“Listable”}]，“]”}]}]，”输入“，初始化单元格->正确，表达式UUID->“c245e1d4-3c27-4b88-8ea4-5a3b7deee488”]}，打开]]，单元格[CellGroupData[{单元格[“枚举”，“节”，表达式UUID->“78d1f4e2-3208-46ff-81bc-c2d6e3fac054”]，单元格[CellGroupData[{单元格[BoxData[行框[{“Demlo”，“[”，行框[{“范围”，“[”，“11”，“]”}]，“]“}]]，“输入”，表达式UUID->\“92036c85-b1e8-4770-b39a-fc31eb16b550”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "121", ",", "12321", ",", "1234321", ",", "123454321", ",", "12345654321", ",", "1234567654321", ",", "123456787654321", ",", "12345678987654321", ",", "1234567900987654321", ",", “123456790120987654321”}]，“}”}]]，“输出”，表达式UUID->“a18422c5-28cf-\44ff-a37c-24ba7596260a“]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[“生成函数”，“节”，表达式UUID->“639cc6aa-fdc3-44d9-bf68-bd67436c1e50”]，单元格[CellGroupData[{单元格[BoxData[行框[{“系列”，“[”，行框[{行框[{“-”，行框[{“（”，行框[{行框[{“（”，行框[{行框[{“10”，“*”，“x”}]，“+”，“1”}]，行框[{“（”，行框[{行框[{“（”，行框[{“x”、“-”、“1”}]、“）”}]，“*”，行框[{“（”，行框[{行框[{“10”，“*”，“x”}]，“-”，“1”}]，行框[{“（”，行框[{行框[{“100”，“*”，“x”}]，“-”，“1”}]，",", 行框[{“{”，行框[{“x”，“，”，“0”，“”，“11”}]，“}”}]]，“]”}]'，“输入”，表达式UUI\D->“84443d58-2c1b-4973-8c61-386ab8013ca3”]，单元格[BoxData[解释框[行框[{“1”，“+”，行框[{“121”，“”，“x”}]，“+”，行框[{“12321”，“”，上标框[“x”，“2”]}]，“+”，行框[{“1234321”，“”，上标框[“x”，“3”]}]，“+”，行框[{“123454321”，“”，上标框[“x”，“4”]}]，“+”，行框[{“12345654321”，“”，上标框[“x”，“5”]}]，“+”，行框[{“1234567654321”，“”，上标框[“x”，“6”]}]，“+”，行框[{“123456787654321”，“”，上标框[“x”，“7”]}]，“+”，行框[{“12345678987654321”，“”，上标框[“x”，“8”]}]，“+”，行框[{“1234567900987654321”，“”，上标框[“x”，“9”]}]，“+”，行框[{“123456790120987654321”，“”，上标框[“x”，“10”]}]，“+”，RowBox[｛“12345679012320987654321”，“”，上标框[“x”，“11”]}]，“+”，解释框[上标框[行框[{“O”，“[”，“x”，“]”}]，“12”]，系列数据[$CellContext`x，0，{}，0，12，1]，可编辑->假]}]，系列数据[$CellContext`x，0{1, 121, 12321, 1234321, 123454321, 12345654321, 1234567654321, 123456787654321, 12345678987654321, 1234567900987654321, 123456790120987654321, 12345679012320987654321}, 0, 12, 1],可编辑->假]]，“输出”，表达式UUID->“0977e21b-fa38-4356-958b-\df775ed273d4“]}，打开]]，单元格[CellGroupData[{单元格[BoxData[RowBox[｛“系列系数”，“[”，行框[{行框[{“-”，分数框[行框[{行框[{“10”，“x”}]，“+”，“1”}]，行框[{行框[{“（”，行框[{“x”，“-”，“1”}]，“）”}]，行框[{“（”，行框[{行框[{“10”、“x”}]、“-”、“1”}]，“）”}]，行框[{“（”，行框[{行框[{“100”，“x”}]，“-”，“1”}]，行框[{“{”，行框[{“x”，“，”，“0”，“”，“n”}]，“}”}]]，“]”}]'，“输入”，表达式UUID\->“64fcf9fb-0fc8-4f7a-a5ee-4d3652942902”]，单元格[BoxData[行框[{分数框[“1”，“81”]，“”，上标框[行框[{“（”，行框[{RowBox[｛“-”，“1”｝]，“+”，上标框[“10”，行框[{“1”，“+”，“n”}]}]，“）”}]，”2“]}]]，“输出”，表达式UUID->\“956fd37b-9b1d-4e60-815e-4e428ab66efa”]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{分数框[“1”，“81”]，“”，上标框[行框[{“（”，行框[{RowBox[｛“-”，“1”｝]，“+”，上标框[“10”，行框[{“1”，“+”，“n”}]}]，“）”}]，行框[{“{”，行框[{“n”，“，”，“0”，“”，“10”}]，“}”}]]，“]”}]'，“输入”，表达式UUI\D->“ec7dd41c-86b5-4567-90fc-144ba8c22686”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "121", ",", "12321", ",", "1234321", ",", "123454321", ",", "12345654321", ",", "1234567654321", ",", "123456787654321", ",", "12345678987654321", ",", "1234567900987654321", ",", “123456790120987654321”}]，“}”}]]，“输出”，表达式UUID->“e28b6950-c007-\480e-929a-ad850ce0d604“]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[“位数总和”，“节”，表达式UUID->“c3916071-4284-44ee-9676-0af6ef0eae19”]，单元格[CellGroupData[{单元格[BoxData[行框[{“简化”，“[”，行框[{“总和”，“[”，行框[{RowBox[｛“k”，“+”，行框[{“（”，行框[{“k”，“-”，“1”}]，“）”}]]，“，”，行框[{“{”，行框[{“k”、“，”、“n”}]、“}”}]]、“]”}]，“]”{]]，“输入”，表达式UUID->\“e430d59e-3b26-4f26-937f-7d57d10e2788”]，单元格[BoxData[SuperscriptBox[“n”，“2”]]，“输出”，表达式UUID->“afe19bfc-bfca-45bd-a6b0-911bbc8e9265”]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“digsum”，“=”，行框[{行框[{行框[{“（”，行框[{“Plus”，“@@”，行框[{“整数位数”，“[”，“#”，“]”}]}]，“）”}]，行框[{“Demlo”，“[”，行框[{“范围”，“[”，“100”，“]”}]，“]“}]}]]，“输入”，表达式UUID->\“e652aba7-f361-4652-a94d-c83cd730cd8e”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "4", ",", "9", ",", "16", ",", "25", ",", "36", ",", "49", ",", "64", ",", "81", ",", "82", ",", "85", ",", "90", ",", "97", ",", "106", ",", "117", ",", "130", ",", "145", ",", "162", ",", "163", ",", "166", ",", "171", ",", "178", ",", "187", ",", "198", ",", "211", ",", "226", ",", "243", ",", "244", ",", "247", ",", "252", ",", "259", ",", "268", ",", "279", ",", "292", ",", "307", ",", "324", ",", "325", ",", "328", ",", "333", ",", "340", ",", "349", ",", "360", ",", "373", ",", "388", ",", "405", ",", "406", ",", "409", ",", "414", ",", "421", ",", "430", “，”，“441”，“，”，“454”，“，”，“469”，“，”，“486”，“，”，“487”，“，”，“490”，“，”，“495”，“，”，“502”，“，”，“511”，“，”，“522”，“，”，“535”，“，”，“550”，",", "567", ",", "568", ",", "571", ",", "576", ",", "583", ",", "592", ",", "603", ",", "616", ",", "631", ",", "648", ",", "649", ",", "652", ",", "657", ",", "664", ",", "673", ",", "684", ",", "697", ",", "712", ",", "729", ",", "730", ",", "733", ",", "738", ",", "745", ",", "754", “，”，“765”，“，”，“778”，“，”，“793”，“，”，“810”，“，”，“811”，“，”，“814”，“，”，“819”，“，”，“826”，“，”，“835”，“，”，“846”，“，”，“859”，“，”，“874”，“，”，“891”，“，”，“892”｝]，“｝”｝]]，“输出”，表达式UUID->“ba315336-9920-\4909-9f5b-969b6819eab0“]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“计时”，“[”，行框[{“p”，“=”，行框[{行框[{“位置”，“[”，行框[{行框[{“digsum”，“=”，行框[{“Sqrt”，“[”，行框[{行框[{行框[{“（”，行框[{“Plus”，“@@”，行框[{“整数位数”，“[”，“#”，“]”}]}]，“）”}]，行框[{“Demlo”，“[”，行框[{“范围”，“[”，“2500”，“]”}]，“]“}]}]，”]“}]}]”，“，”，“集成器”，“，”，行框[{“{”，“1”，“}”}]]，“]”}]，“//”，“扁平”}]}]\expressionUUID->“d8274f9f-1e83-4d48-900a-1971210b2c4f”]，单元格[BoxData[行框[{“{”，行框[{行框[{“5.39999999999999995`”，“”，“第二个”}]，“，”，行框[{“{”，行框[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",",", "9", ",", "36", ",", "51", ",", "66", ",", "81", ",", "102", ",", "123", ",", "144", ",", "225", ",", "258", ",", "291", ",", "324", ",", "363", ",", "402", ",", "441", ",", "576", ",", "593", ",", "610", ",", "627", ",", "644", ",", "661", ",", "678", ",", "695", ",", "712", ",", "729", ",", "748", ",", "767", ",", "786", ",", "805", ",", "824", ",", "843", ",", "862", ",", "881", ",", "900", ",", "1089", ",", "1158", ",","1227", ",", "1296", ",", "1371", ",", "1446", ",", "1521", ",", "1764",“，”，“1851”，“，”，“1938”，“，”，“2025”，“，”，“2118”，“，”，“2211”，“，”，“2304”｝]，“｝”｝]｝]，“｝”｝]]，“输出”，ExpressionUUID->“a5cd7ccf-8c6c-457f-\a24b-5e9天7天2天6“]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[“数字平方和”，“节”，表达式UUID->“ee4e569c-188b-4552-8ca1-e401a391b560”]，单元格[CellGroupData[{单元格[BoxData[行框[{“digsum2”，“=”，行框[{行框[{行框[{“（”，行框[{“Plus”，“@@”，行框[{“（”，行框[{行框[{“整数位数”，“[”，“#”，“]”}]，“^”，“2”}]，"&"}], "/@", 行框[{“Demlo”，“[”，行框[{“范围”，“[”，“60”，“]”}]，“]“}]}]]，“输入”，表达式UUID->\“5c5586be-873e-4aa5-9d24-6b35761e4 e2”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "6", ",", "19", ",", "44", ",", "85", ",", "146", ",", "231", ",","344", ",", "489", ",", "506", ",", "511", ",", "524", ",", "549", ",", "590", ",", "651", ",", "736", ",", "849", ",", "994", ",", "1011", ",", "1016", ",", "1029", ",", "1054", ",", "1095", ",", "1156", ",", "1241", ",", "1354", ",", "1499", ",", "1516", ",", "1521", ",", "1534", ",", "1559", ",", "1600", ",", "1661", ",", "1746", ",", "1859", ",", "2004", ",", "2021", ",", "2026", ",", "2039", ",", "2064", ",", "2105", ",", "2166", ",", "2251", ",", "2364", ",", "2509", ",", "2526", ",", "2531", ",", "2544", ",", "2569", ",", "2610", ",", "2671", ",", "2756", ",", "2869", ",", "3014", ",", "3031", ",", "3036", ",", "3049", ",", "3074", “，”、“3115”、“，”，“3176”}]，“}”}]]，“输出”，表达式UUID->“b5e7d8b4-\a56e-488b-9438-26404579e308“]}，打开]]}，打开]]}，打开]]},自动生成的包->无，窗口大小->{691747}，WindowMargins->｛｛自动，207｝，｛32，自动｝｝，ShowSelection->True，FrontEndVersion->“11.1 for Mac OS X x86（32位、64位内核）（6月2日\2017)",样式定义->“Default.nb”]（*笔记本内容结束*）（*内部缓存信息*）（*单元格标签大纲单元格标签索引->{}*)（*单元格标签索引单元格标签索引->{}*)（*笔记本文件大纲笔记本[{单元格[CellGroupData[{单元格[580，22，84，0，92，“标题”，“表达UUID”->\“7602d95a-c809-4926-bfb5-cfe7826ac785”]，单元格[CellGroupData[{单元格[689，26，83，0，44，“子节”，“表达式UUID”->\“4ce0c43d-80bd-41f8-8dd3-2c0f6e589fbf”]，单元格[775，28，114，3，49，“文本”，“表达式UUID”->\“39a99410-9cb8-4023-8906-0cb5ac004e7c”]，单元格[892，33，344，9，49，“文本”，“表达式UUID”->\“0f29e278-73b8-4699-b529-2b66000362fc”]，单元格[1239，44，352，10，49，“文本”，“表达式UUID”->\“66f744bf-cbe6-47c3-8e7d-c5b35e733517”]，单元格[1594，56，154，2，30，“文本”，“表达式UUID”->\“2864993a-e7f6-446f-bb0b-d78b816e0176”]}，打开]]，单元格[CellGroupData[{单元格[1785，63，91，0，44，“小节”，“表达式UUID”->\“813ffbf2-81b6-4bf6-8139-6700d2ab92b2”]，单元格[1879，65，480，14，91，“输入”，“表达式UUID”->\“c245e1d4-3c27-4b88-8ea4-5a3b7deee488”，初始化单元格->True]}，打开]]，单元格[CellGroupData[{单元格[2396，84，85，0，64，“Section”，“ExpressionUUID”->\“78d1f4e2-3208-46ff-81bc-c2d6e3fac054”]，单元格[CellGroupData[{单元格[2506,88,148,3,32，“输入”，“表达式UUID”->\“92036c85-b1e8-4770-b39a-fc31eb16b550”]，单元格[2657,93,345,7,75，“输出”，“表达式UUID”->\“a18422c5-28cf-44ff-a37c-24ba7596260a”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[3051，106，93，0，64，“节”，“表达式UUID”->\“639cc6aa-fdc3-44d9-bf68-bd67436c1e50”]，单元格[CellGroupData[{单元格[3169，110，665，22，32，“输入”，“表达式UUID”->\“84443d58-2c1b-4973-8c61-386ab8013ca3”]，单元格[3837、134、1294、34、96，“输出”，“表达式UUID”->\“0977e21b-fa8-4356-958b-df775ed273d4”]}，打开]]，单元格[CellGroupData[{单元格[5168，173，542，18，51，“输入”，“表达式UUID”->\“64fcf9fb-0fc8-4f7a-a5ee-4d3652942902”]，单元格[5713，193，278，9，70，“输出”，“表达式UUID”->\“956fd37b-9b1d-4e60-815e-4e428ab66efa”]}，打开]]，单元格[CellGroupData[{单元格[6028，207，407，13，70，“输入”，“表达式UUID”->\“ec7dd41c-86b5-4567-90fc-144ba8c22686”]，单元格[6438，222，345，7，70，“输出”，“表达式UUID”->\“e28b6950-c007-480e-929a-ad850ce0d604”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[6832，235，87，0，70，“节”，“表达式UUID”->\“c3916071-4284-44ee-9676-0af6ef0eae19”]，单元格[CellGroupData[{单元格[6944，239，301，9，70，“输入”，“表达式UUID”->\“e430d59e-3b26-4f26-937f-7d57d10e2788”]，单元格[7248，250，106，1，70，“输出”，“表达式UUID”->\“afe19bfc-bfca-45bd-a6b0-911bbc8e9265”]}，打开]]，单元格[CellGroupData[{单元格[7391，256，322，9，70，“输入”，“表达式UUID”->\“e652aba7-f361-4652-a94d-c83cd730cd8e”]，单元格[7716，267，1361，20，70，“输出”，“表达式UUID”->\“ba315336-9920-4909-9f5b-969b6819eab0”]}，打开]]，单元格[CellGroupData[{单元格[9114，292，606，17，70，“输入”，“表达式UUID”->\“d8274f9f-1e83-4d48-900a-1971210b2c4f”]，单元格[9723，311，929，16，70，“输出”，“表达式UUID”->\“a5cd7ccf-8c6c-457f-a24b-5e9d7dad2ee6”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[10701，333，99，0，70，“节”，“表达式UUID”->\“ee4e569c-188b-4552-8ca1-e401a391b560”]，单元格[CellGroupData[{单元格[10825，337，384，12，70，“输入”，“表达式UUID”->\“5c5586be-873e-4aa5-9d24-6b35761e4 e2”]，单元格[111212，351，908，14，70，“输出”，“表达式UUID”->\“b5e7d8b4-a56e-488b-9438-26404579e308”]}，打开]]}，打开]]}，打开]]}]*)（*内部缓存信息结束*）