（*内容类型：application/vnd.wolfram.mathematica*）（***Wolfram笔记本文件***）(* http://www.wolfram.com/nb *)（*CreatedBy='Mathematica 11.1'*）（*CacheID:234*）（*内部缓存信息：笔记本文件断线测试笔记本文件断线测试笔记本数据位置[158,7]笔记本数据长度[13568，441]笔记本选项位置[10716，359]笔记本大纲位置[11067375]单元格标签索引位置[11024，372]窗口框架->正常*）（*笔记本内容开头*）笔记本[{单元格[CellGroupData[{单元格[“数字添加”，“标题”，表达式UUID->“eb3415bc-561a-48f0-9781-91ea0ee1dd05”]，单元格[CellGroupData[{单元格[“作者”，“小节”，表达UUID->“f0004a46-57ac-446a-b62b-8a0f2892dc30”]，单元格[“\<\埃里克·韦斯特因2005年2月2日\\>“，”文本“，表达式UUID->“95fcd307-8a5a-43c3-a44d-2235f3390a5b”]，单元格[TextData[{“此笔记本下载自”，按钮框[“http://mathworld.wolfram.com/notebooks/Integer序列/\数字加法.nb“，BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/notebooks/Integer序列/\数字加法.nb“]，无}]，"."}]，“文本”，表达式UUID->“8b5e650d-913d-4d53-9b3c-8fe3382cc50”]，单元格[TextData[{“有关更多信息，请参阅埃里克的”，StyleBox[“数学世界”，字体倾斜->“斜体”]，“条目”，按钮框[“http://mathworld.wolfram.com/Digitaladdition.html",BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/Digitaladdition.html“]，无}]，"."}]，“文本”，表达式UUID->“39b378e5-85d0-43b1-a44f-2c766b2adbfe”]，单元格[“\<\\[版权所有]2005 Wolfram Research，Inc.，除非另有说明\\>“，”文本“，表达式UUID->“9cbfe628-a639-4dc8-bc2f-27250972833c”]}，打开]]，单元格[CellGroupData[{单元格[“代码”，“子节”，表达式UUID->“ef64dc29-2a79-4b77-a9c9-949f3b5149ae”]，单元格[BoxData[{行框[{行框[{“DigitaladditionSequence”，“[”，行框[{“k_”，“，”，“n_”}]，“]”}]，“：=”，RowBox[｛“NestWhileList”，“[”，行框[{行框[{行框[{“Plus”，“@@”，行框[{“（”，行框[{行框[{“整数位数”，“[”，“#”，“]”}]，“^”，“k”}]，“，”，“n”，“，”，行框[{行框[{“DigitaladditionStartOfPeriod”，“[”，RowBox[｛“k_”，“，”，“n_”｝]，“]”｝]，“：=”，行框[{“NestWhile”，“[”，行框[{行框[{行框[{“Plus”，“@@”，行框[{“（”，行框[{行框[{“整数位数”，“[”，“#”，“]”}]，“^”，“k”}]，“、”、“n”、“、”，“UnsameQ”、“，”、“All”}]、“]”}]}]}]，“Input”，初始化单元格->正确，表达式UUID->“85bca67f-9969-40de-bb82-b3fb48982a97”]}，打开]]，单元格[CellGroupData[{单元格[TextData[{单元格[BoxData[表单框[行框[{“k”，“\[LongEqual]”，“1”}]，传统形式]]，表达式UUID->“fe8f6d5d-6745-4d61-bd7c-2db2a470dbb”]，“（数字根）”}]，“节”，表达式UUID->“d6ad86bd-e151-41d7-aef4-84296707975b”]，单元格[CellGroupData[{单元格[BoxData[行框[{行框[{“（”，行框[{“l”，“=”，行框[{行框[{行框[{“DigitaladditionSequence”，“[”，RowBox[｛“1”，“，”，“#”｝]，“]”｝]，“&”｝]，“/@”，RowBox[｛“Range”，“[”，“20”，“]”｝]｝]｝]，“）”｝]，“//”，“ColumnForm”}]]，“Input”，表达式UUID->“9d857a09-c0c1-4f19-bd25-\c38c982f7ba5“]，单元格[BoxData[解释框[GridBox[{{行框[{“{”，行框[{“1”，“，”，“1”}]，“}”}]}，{行框[{“{”，行框[{“2”，“，”，“2”}]，“}”}]}，{RowBox[｛“｛”，行框[{“3”，“，”，“3”}]，“}”}]}，{行框[{“{”，行框[{“4”，“，”，“4”}]，“}”}]}，{行框[{“{”，行框[{“5”，“，”，“5”}]，“}”}]}，{行框[{“{”，行框[{“6”，“，”，“6”}]，“}”}]}，{行框[{“{”，行框[{“7”，“，”，“7”}]，“}”}]}，{行框[{“{”，行框[{“8”，“，”，“8”}]，“}”}]}，{行框[{“{”，行框[{“9”，“，”，“9”}]，“}”}]}，{行框[{“{”，行框[{“10”，“，”，“1”，“，{行框[{“{”，行框[{“11”，“，”，“2”，“，{行框[{“{”，行框[{“12”、“、”、“3”、“，”、“三”}]、“}”}]}，{行框[{“{”，行框[{“13”、“、”、“4”、“，”、“四”}]、“}”}]}，{行框[{“{”，行框[{“14”、“、”、“5”、“，”、“五”}]、“}”}]}，{行框[{“{”，行框[{“15”，“，”，“6”，“，{行框[{“{”，行框[{“16”，“，”，“7”，“，{RowBox[｛“｛”，RowBox[｛“17”，“，”，“8”，“，”，“8”｝]，“｝”｝]｝，{行框[{“{”，行框[{“18”，“，”，“9”，“，{行框[{“{”，行框[{“19”，“，”，“10”，“，{行框[{“{”，行框[{“20”，“，”，“2”，“},基线位置->{基线，{1，1}}，网格框对齐->{“列”->｛｛左｝｝，“列索引”->｛｝，“行”->｛｛基线｝｝，“行索引”->{}}]，柱形[{{1，1}，{2，2}，}3，3}，2,4}，5,5}，6,6}，7,7}，8}, {9, 9}, {10, 1, 1}, {11, 2, 2}, {12, 3, 3}, {13, 4, 4}, {14, 5, 5}, {15, 6, 6}, {16, 7, 7}, {17, 8, 8}, {18, 9, 9}, {19, 10, 1, 1}, {20, 2, 2}}],可编辑->假]]，“输出”，表达式UUID->“33678a3b-ce92-4ad1-92e3-\6cb3bfcdf4fb“]}，打开]]，单元格[CellGroupData[{单元格[“数字根”，“子节”，表达式UUID->“9f708753-9121-48a8-bd16-bba99d1b851c”]，单元格[CellGroupData[{单元格[BoxData[行框[{行框[{行框[{“DigitaladditionStartOfPeriod”，“[”，行框[{“1”，“，”，“#”}]，“]”}]，行框[{“范围”，“[”，“20”，“]”}]]，“输入”，表达式UUID->“e84c7ce9-\b2f1-416a-8623-2e08037a74de“]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", “7”，“，”，“8”，“\UID->“c4d28c5a-662d-467f-94e0-1edd47e899d8”]}，打开]]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[BoxData[表单框[行框[{“k”，“\[LongEqual]”，“2”}]，传统格式]]，“节”，表达式U\UID->“f6589593-56bc-4c69-bca9-2eca771223cd”]，单元格[CellGroupData[{单元格[BoxData[行框[{行框[{“Take”，“[”，行框[{行框[{“l”，“=”，行框[{行框[{行框[{“DigitaladditionSequence”，“[”，行框[{“2”，“，”，“#”}]，“]”}]，行框[{“范围”，“[”，“100”，“]”}]}]，“，”，“10”}]，“ColumnForm”}]]，“Input”，表达式UUID->“59339f70-f0d8-4fb6-8b13-\0e76c1c1fdcc“]，单元格[BoxData[解释框[GridBox[{{行框[{“{”，行框[{“1”，“，”，“1”}]，“}”}]}，{行框[{“{”，行框[{"2", ",", "4", ",", "16", ",", "37", ",", "58", ",", "89", ",", "145", ",", "42", ",", "20", ",", "4"}], "}"}]},{行框[{“{”，行框[{"3", ",", "9", ",", "81", ",", "65", ",", "61", ",", "37", ",", "58", ",", "89", ",", "145", ",", "42", ",", "20", ",", "4", ",", "16", ",", "37"}], "}"}]},{行框[{“{”，行框[{"4", ",", "16", ",", "37", ",", "58", ",", "89", ",", "145", ",", "42", ",", "20", ",", "4"}], "}"}]},{行框[{“{”，行框[{“5”，“，”，“25”，“，”，“29”，“，”，“85”，“，”，“89”，“，”，“145”，“，”，“42”，“，”，“20”，“，”，“4”，“，”，“16”，“，”，“37”，“，”，“58”，“，”，“89”}]，"}"}]},{行框[{“{”，行框[{"6", ",", "36", ",", "45", ",", "41", ",", "17", ",", "50", ",", "25", ",", "29", ",", "85", ",", "89", ",", "145", ",", "42", ",", "20", ",","4", ",", "16", ",", "37", ",", "58", ",", "89"}], "}"}]},{行框[{“{”，行框[{“7”，“，”，“49”，“，”，“97”，“，”，“130”，“，”，“10”，“，”，“1”，“，”，“1”}]，"}"}]},{行框[{“{”，行框[{"8", ",", "64", ",", "52", ",", "29", ",", "85", ",", "89", ",", "145", ",", "42", ",", "20", ",", "4", ",", "16", ",", "37", ",", "58", ",", "89"}], "}"}]},{行框[{“{”，行框[{"9", ",", "81", ",", "65", ",", "61", ",", "37", ",", "58", ",", "89", ",", "145", ",", "42", ",", "20", ",", "4", ",", "16", ",", "37"}], "}"}]},{行框[{“{”，行框[{“10”，“，”，“1”，“},基线位置->{基线，{1，1}}，网格框对齐->{“列”->{{Left}}、“列索引”->{}、”行“->{基线}}，“行索引”->{}}]，柱形[{{1，1}，{2，4，16，37，58，89，145，42，20，4}，}，61, 37, 58, 89, 145, 42, 20, 4, 16, 37}, {4, 16, 37, 58, 89, 145, 42, 20, 4}, {5, 25, 29, 85, 89, 145, 42, 20, 4, 16, 37, 58, 89}, {6, 36, 45, 41, 17, 50, 25, 29, 85, 89, 145, 42, 20, 4, 16, 37, 58, 89}, {7, 49, 97, 130, 10, 1, 1}, {8, 64, 52, 29, 85, 89, 145, 42, 20, 4, 16, 37, 58, 89}, {9, 81, 65, 61, 37, 58, 89, 145, 42, 20, 4, 16, 37}, {10, 1, 1}}],可编辑->假]]，“输出”，表达式UUID->“9e2be106-41c1-4d69-b6a1-\9c08e33f20f0“]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{行框[{行框[{“DigitaladditionStartOfPeriod”，“[”，行框[{“2”，“，”，“#”}]，“]”}]，行框[{“范围”，“[”，“20”，“]”}]]，“输入”，表达式UUID->“95317b9f-\8cb4-495c-b731-f0c0fcb2908a“]，单元格[BoxData[行框[{“{”，行框[{“1”，“，”，“4”，“，”，“37”，“，”，“4”，“，”，“89”，“，”，“89”，“，”，“1”，“，”，"89", ",", "37", ",", "1", ",", "4", ",", "89", ",", "1", ",", "89", ",", "16", ",", "16", ",", "89", ",", "37", ",", "1", ",", "20"}], “}”}]]，“输出”，表达式UUID->“0412715d-1ce3-40f3-bef0-1dd15d4e9777”]}，打开]]，单元格[CellGroupData[{单元格[“快乐数字”，“小节”，表达式UUID->“fedf1f59-d953-41a0-8f7e-e4cd5b9aca28”]，单元格[CellGroupData[{单元格[BoxData[行框[{行框[{“位置”，“[”，行框[{行框[{“展平”，“[”，行框[{“-”，行框[{“减法”，“@@@”，行框[{“（”，行框[{行框[{行框[{“位置”，“[”，行框[{“#”，“，”，行框[{“最后”，“[”，“#”，“]”}]}]，“]“}]，”&“}]”，“/@”，“l”}]，“）”}]}]}]“]”}]“，”，“，”\ssionUUID->“adfe1d9f-c416-46c8-976b-e949329c140a”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "7", ",", "10", ",", "13", ",", "19", ",", "23", ",", "28", ",", "31", ",", "32", ",", "44", ",", "49", ",", "68", ",", "70", ",", "79", “，”，“82”，“，”，“86”，“，”，“91”，“，”，“94”，“，”，“97”，“，”，“100”}]，“｝”｝]]，“输出”，ExpressionUUID->“ecb5e851-955c-4486-b205-09e90236f05b”]}，打开]]}，打开]]}，打开]]}，打开]]},窗口大小->{804，753}，窗口边距->{{4，自动}，{自动，4}}，FrontEndVersion->“11.1 for Mac OS X x86（32位、64位内核）（6月2日\2017)",样式定义->“Default.nb”]（*笔记本内容结束*）（*内部缓存信息*）（*单元格标签大纲单元格标签索引->{}*)（*单元格标签索引单元格标签索引->{}*)（*笔记本文件大纲笔记本[{单元格[CellGroupData[{单元格[580，22，85，0，92，“标题”，“表达式UUID”->\“eb3415bc-561a-48f0-9781-91ea0ee1dd05”]，单元格[CellGroupData[{单元格[690,26,83,0,44，“子节”，“表达式UUID”->\“f0004a46-57ac-446a-b62b-8a0f2892dc30”]，单元格[776，28，113，3，49，“文本”，“表达式UUID”->\“95fcd307-8a5a-43c3-a44d-2235f3390a5b”]，单元格[892，33，348，9，30，“文本”，“表达式UUID”->\“8b5e650d-913d-4d53-9b3c-8fe3382c1c50”]，单元格[1243,44,356,10,30，“文本”，“表达式UUID”->\“39b378e5-85d0-43b1-a44f-2c766b2adbfe”]，单元格[1602，56，154，2，30，“文本”，“表达式UUID”->\“9cbfe628-a639-4dc8-bc2f-27250972833c”]}，打开]]，单元格[CellGroupData[{单元格[1793，63，81，0，44，“小节”，“表达式UUID”->\“ef64dc29-2a79-4b77-a9c9-949f3b5149ae”]，单元格[1877，65，816，24，112，“输入”，“表达式UUID”->\“85bca67f-9969-40de-bb82-b3fb48982a97”，初始化单元格->真]}，打开]]，单元格[CellGroupData[{单元格[2730，94，248，6，64，“节”，“表达式UUID”->\“d6ad86bd-e151-41d7-aef4-84296707975b”]，单元格[CellGroupData[{单元格[3003，104，329，10，32，“输入”，“表达式UUID”->\“9d857a09-c0c1-4f19-bd25-c38c982f7ba5”]，单元格[3335、116、1954、72、375，“输出”，“表达式UUID”->\“33678a3b-ce92-4ad1-92e3-6cb3bfcdf4fb”]}，打开]]，单元格[CellGroupData[{单元格[5326，193，90，0，70，“子节”，“表达式UUID”->\“9f708753-9121-48a8-bd16-bba99d1b851c”]，单元格[CellGroupData[{单元格[5441，197，237，6，70，“输入”，“表达式UUID”->\“e84c7ce9-b2f1-416a-8623-2e08037a74de”]，单元格[5681，205，321，6，70，“输出”，“表达式UUID”->\“c4d28c5a-662d-467f-94e0-1edd47e899d8”]}，打开]]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[6063、218、148、3、70，“节”，“表达式UUID”->\“f6589593-56bc-4c69-bca9-2eca771223cd”]，单元格[CellGroupData[{单元格[6236，225，369，11，70，“输入”，“表达式UUID”->\“59339f70-f0d8-4fb6-8b13-0e76c1c1fdcc”]，单元格[6608，238，2476，65，70，“输出”，“表达式UUID”->\“9e2be106-41c1-4d69-b6a1-9c08e33f20f0”]}，打开]]，单元格[CellGroupData[{单元格[9121，308，237，6，70，“输入”，“表达式UUID”->\“95317b9f-8cb4-495c-b731-f0c0fcb2908a”]，单元格[9361、316、334、6、70，“输出”，“表达式UUID”->\“0412715d-1ce3-40f3-bef0-1dd15d4e9777”]}，打开]]，单元格[CellGroupData[{单元格[9732327，90，0，70，“小节”，“表达UUID”->\“fedf1f59-d953-41a0-8f7e-e4cd5b9aca28”]，单元格[CellGroupData[{单元格[9847，331，473，14，70，“输入”，“表达式UUID”->\“adfe1d9f-c416-46c8-976b-e949329c140a”]，单元格[10323，347，341，6，70，“输出”，“表达式UUID”->\“ecb5e851-955c-4486-b205-09e90236f05b”]}，打开]]}，打开]]}，打开]]}，打开]]}]*)（*内部缓存信息结束*）