（*内容类型：application/vnd.wolfram.mathematica*）（***Wolfram笔记本文件***）(* http://www.wolfram.com/nb *)（*CreatedBy='Mathematica 11.1'*）（*CacheID:234*）（*内部缓存信息：笔记本文件断线测试笔记本文件断线测试笔记本数据位置[158,7]笔记本数据长度[17090，535]笔记本选项位置[13334，431]笔记本大纲位置[13706，448]单元格标签索引位置[13663，445]窗口框架->正常*）（*笔记本内容开头*）笔记本[{单元格[CellGroupData[{单元格[“Carmichael函数”，“标题”，表达式UUID->“9849ec20-2b67-40f5-a2e3-99deb2680285”]，单元格[CellGroupData[{单元格[“作者”，“小节”，表达式UUID->“4302407a-1475-4cfe-9fe2-bb9c8dc86fcb”]，单元格[“\<\埃里克·韦斯特因2009年7月5日\\>“，”文本“，表达式UUID->“f0f9281d-4941-4a62-af1d-6b31eb7e5b55”]，单元格[TextData[{“此笔记本下载自”，按钮框[“http://mathworld.wolfram.com/notebooks/NumberTheoreticFunctions（数字理论函数）/\CarmichaelFunction.nb“，BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/notebooks/NumberTheoreticFunctions（数字理论函数）/\CarmichaelFunction.nb“]，无}]，"."}]，“文本”，表达式UUID->“776adb26-f2c3-42e4-a55f-7aa29a5657bf”]，单元格[TextData[{“有关更多信息，请参阅埃里克的”，StyleBox[“数学世界”，字体倾斜->“斜体”]，“条目”，按钮框[“http://mathworld.wolfram.com/CarmichaelFunction.html",BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/CarmichaelFunction.html“]，无｝]，"."}]，“文本”，ExpressionUUID->“6fad2fb7-5b84-4641-a1a0-7b6f578292ec”]，单元格[“\<\\[版权所有]2009 Wolfram Research，Inc.，除非另有说明\\>“，”文本“，表达式UUID->“746aac55-6e22-4f9b-b51b-39cf1fc526b8”]}，打开]]，单元格[“初始化”，“子节”，表达式UUID->“6fca7e67-2f57-496c-8581-171f508ab648”]，单元格[CellGroupData[{单元格[“代码”，“小节”，表达式UUID->“54d5f7b4-6c28-4a79-9cb3-a99a680b5c94”]，单元格[BoxData[{行框[{行框[{“MyCarmichaelLambda”，“[”，“1”，“]”}]，“：=”，“1”}]，“\[IndentingNewLine]”，行框[{行框[{“MyCarmichaelLambda”，“[”，“n_”，“]”}]，“：=”，RowBox[｛“LCM”，“@@”，行框[{“映射”，“[”，行框[{行框[{行框[{行框[{“（”，行框[{行框[{“#1”，“[”，行框[{“[”，“1”，“]”}]，“]“}]，”-“，”1“}]”）“}]，行框[{行框[{“#1”，“[”，行框[{“[”，“1”，“]”}]，“]“}]，”^“，行框[{“（”，行框[{行框[{“#1”，“[”，行框[{“[”，“2”，“]”}]，“]“}]，”-“，”1“}]，行框[{“FactorInteger”，“[”，“n”，“]”}]}]，“]“}]}]}”，“输入”，表达式\在UUID上->“a6a99e68-f0ae-4e92-92f1-45a68047c836”]，单元格[BoxData[{行框[{行框[{“lambda”，“[”，“1”，“]“}]，”：=“，”1“}]”，“\[IndentingNewLine]”，行框[{行框[{“lambda”，“[”，“n_”，“]”}]，“：=”，行框[{“模块”，“[”，行框[{行框[{“{”，行框[{行框[{“f”，“=”，行框[{“FactorInteger”，“[”，“n”，“]”}]}]，“，”，“p”，“，“}”}]，“，”，“\[IndentingNewLine]”，行框[{行框[{“如果”，“[”，行框[{行框[{RowBox[｛“Length”，“[”，“f”，“]”｝]，“\[Equal]”，“1”｝]，“，”，行框[{行框[{“{”，行框[{“p”、“，”、“a”}]、“}”}]，“=”，RowBox[｛“f”，“[”，行框[{“[”，“1”，“]”}]，“]“}]}]}]，”]“}]”，“；”，“\[IndentingNewLine]”，行框[{“Which”，“[”，“\[IndentingNewLine]”，行框[{行框[{行框[{行框[{“长度”，“[”，“f”，“]”}]，“\[Equal]”，“1”}]，“&&”，行框[{“（”，行框[{行框[{“（”，行框[{行框[{“p”，“==”，“2”}]，“&&”，行框[{“a”，“\[LessEqual]”，“2”}]}，“）”}]，“||”，行框[{“p”，“\[GreaterEqual]”，“3”}]}]，“）”}]]，“，”，行框[{“EulerPhi”，“[”，“n”，“]”}]，“，”，“\[IndentingNewLine]”，行框[{行框[{行框[{“长度”，“[”，“f”，“]”}]，“\[Equal]”，“1”}]，“&&”，行框[{“p”，“==”，“2”}]，“&&”，行框[{“a”，“\[GreaterEqual]”，“3”}]}]，“，”，行框[{行框[{“EulerPhi”、“[”、“n”、“]”}]、“/”、“2”}]，“，”，“\[IndentingNewLine]”，“True”，“，”，行框[{“LCM”，“@@”，行框[{“（”，RowBox[｛“lambda”，“/@”，行框[{“（”，行框[{“电源”，“@@@”，“f”}]，“）”}]}]，”）“}]}]}]，“\[IndentingNewLine]”，“]”}]}]}]，“\[IdentingNewline]”，“]”}]}]}]，“输入”，表达式UUID->“45cfadf7-95ac-4d64-88be-64acb5d5f3fd”]}，打开]]，单元格[CellGroupData[{单元格[“表”，“节”，表达式UUID->“d4cfab73-5c61-486e-9ef8-08f03b654351”]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{“CarmichaelLambda”，“[”，“n”，“]”}]，“，”，行框[{“{”，行框[{“n”，“，”，“20”}]，“}”}]}]，”]“}]]，“输入”，表达式UUID->\“7ee9d40f-2a78-4d7d-b5f9-102eb5f06aa8”]，单元格[BoxData[行框[{“{”，行框[{“1”，“，”，“1”，“，”，“2”，“，”，“2”，“，”，“4”，“，”，“2”，“，”，“6”，“，”，“2”，",", "6", ",", "4", ",", "10", ",", "2", ",", "12", ",", "6", ",", "4", “，”，“4”，“，”\essionUUID->“140e390b-ca78-422c-b163-e8bbceecf578”]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{“MyCarmichaelLambda”，“[”，“n”，“]”}]，“，”，行框[{“{”，行框[{“n”，“，”，“20”}]，“}”}]}]，”]“}]]，“输入”，表达式UUID->\“99897731-b146-4f1a-a7c8-d9e6fa6e71d8”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "2", ",", "4", ",", "2", ",", "6", ",", "4", ",", "6", ",", "4", ",", "10", ",", "2", ",", "12", ",", "6", ",", "4", “，”，“8”，“，”\essionUUID->“e6258a2b-9bf5-48f1-a7f6-4f5175d8a440”]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{“lambda”，“[”，“n”，“]”}]，“，”，行框[{“{”，行框[{“n”，“，”，“20”}]，“}”}]}]，”]“}]]，“输入”，表达式UUID->\“084534be-6b36-4409-a601-d35cb3366dd2”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "2", ",", "4", ",", "2", ",", "6", ",", "2", “，”，“6”，“，”，“4”，“，”，“10”，“，”，“2”，“，”，“12”，“，”，“6”，“，”，“4”，“，”，“4”，“，”\会话UUID->“6c19d1d9-f5c5-4c0a-93e2-766cf1880890”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[“Identities”，“Section”，ExpressionUUID->“82a1721f-c2c4-4d1a-bb9d-34ed7d9a8994”]，单元格[CellGroupData[{单元格[BoxData[表单框[行框[{模板框[{SuperscriptBox[“2”，“r”]}，“CarmichaelLambda”]，“\[LongEqual]”，行框[{“\[分段]”，网格框[{{"1", 行框[{行框[{“r”，“\[LongEqual]”，“0”}]，“\[或]”，行框[{“r”，“\[LongEqual]”，“1”}]}，{"2", 行框[{“r”，“\[LongEqual]”，“2”}]}，{上标框[“2”，行框[{“r”，“-”，“2”}]，标记框[“True”，“逐段默认”，自动删除->假，删除警告->真]}},网格框对齐->{“列”->{{Left}}、“列索引”->{}、”行“->{基线}}，“行索引”->{}}，网格框项目大小->{“列”->{{Automatic}}、“列索引”->{}、”行“->{1.}}，“行索引”->{}}，网格框间距->{“列”->{偏移量【0.27999999999999997’】{偏移[0.84]}，偏移量[0.27999999999999997`]}，“列索引”->{}，”行“->{偏移[0.2]{偏移[0.4]}，偏移[0.2]}，“索引行”->{}}]}]}]，传统形式]]，“小节”，表达UUID->“8ca7ccd2-8865-4024-aa05-\90f4192255f0“]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{“CarmichaelLambda”，“[”，行框[{“2”、“^”、“n”}]、“]”}]，“，”，行框[{“{”，行框[{“n”，“，”，“0”，“”，“10”}]，“}”}]]，“]”}]'，“输入”，表达式UUI\D->“fee500f8-76ad-4747-b3ab-8c099decc1b9”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "2", ",", "4", ",", "8", ",", "16", ",", "32",“、”、“64”、“、”，“128”、“，”、“256”}]、“}”}]]，“输出”，表达式UUID->\“3cf63ec1-9800-4fe1-980d-a1390ac6e69f”]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{“分段”，“[”，行框[{行框[{“{”，行框[{行框[{“{”，行框[{“1”，“，”，行框[{行框[{“r”，“==”，“0”}]，“||”，行框[{“r”，“==”，“1”}]}]，“}”}]，”，“，”，行框[{“{”，行框[{“2”，“，”，行框[{“r”，“==”，“2”}]}]，“}”}]]，“{“}]，”，“，”，上标框[“2”，行框[{“r”，“-”，“2”}]}]，“]”}]，”，“，”，行框[{“{”，行框[{“r”，“，”，“0”，“”，“10”}]，“}”}]]，“]”}]'，“输入”，表达式UUI\D->“aee24924-5c67-464c-99e9-b1a6d56ad7b0”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "2", ",", "4", ",", "8", ",", "16", ",", "32",“、”、“64”、“、”，“128”、“，”、“256”}]、“}”}]]，“输出”，表达式UUID->\“4c992839-4cf8-4163-bcd4-4e3908e62f0b”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[BoxData[表单框[行框[{模板框[{RowBox[{“n”，“！”}]}，“CarmichaelLambda”]，“\[LongEqual]”，行框[{“\[分段]”，网格框[{{"1", 行框[{行框[{“n”，“\[LongEqual]”，“1”}]，“\[或]”，RowBox[｛“n”，“\[LongEqual]”，“2”｝]｝]｝，{"2", 行框[{“n”，“\[LongEqual]”，“3”}]}，{"4", 行框[{“n”，“\[LongEqual]”，“5”}]}，{分数框[行框[{“n”，“！”}]，行框[{“2”，“”，行框[{“（”，行框[{“n”，“#”}]，“）”}]]，标记框[“True”，“逐段默认”，自动删除->假，删除警告->真]}},网格框对齐->{“列”->{{Left}}、“列索引”->{}、”行“->{基线}}，“行索引”->{}}，网格框项目大小->{“列”->{{Automatic}}、“列索引”->{}、”行“->{1.}}，“行索引”->{}}，网格框间距->{“列”->{偏移量【0.27999999999999997’】{偏移[0.84]}，偏移量[0.27999999999999997`]}，“列索引”->{}，”行“->{偏移[0.2]{偏移[0.4]}，偏移[0.2]}，“索引行”->{}}]}]}]，传统形式]]，“子节”，表达式UUID->“1ca5209e-4ecc-47b7-a2b0-\63ac69e15ea4“]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{“CarmichaelLambda”，“[”，行框[{“n”、“！”}]、“]”}]，“，”，行框[{“{”，行框[{“n”，“，”，“20”}]，“}”}]}]，”]“}]]，“输入”，表达式UUID->\“b769ef17-fa2a-4763-a801-9fed8894b5fc”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "2", ",", "4", ",", "12", ",", "12", ",", "96", ",", "864", ",", "8640", ",", "8640", ",", "103680", ",", "103680", ",", "1451520", ",", "21772800", ",", "348364800", ",", "348364800", ",", “6270566400”，“，”，“627056/6400”、“，”、“125411328000”}]，“}”}]]，“输出”，示例\压力UUID->“5a26b46b-8fa9-40fc-9f7e-025e57b45e19”]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{分数框[行框[{“n”，“！”}]，行框[{“2”，行框[{“Primarial”，“[”，“n”，“]”}]]，“，”，行框[{“{”，RowBox[｛“n”，“，”，“20”｝]，“｝”｝]｝]，“]”｝]]，“Input”，ExpressionUUID->\“60bfc621-1ff1-4da4-9e86-ee654ff1fdb2”]，单元格[BoxData[行框[{“{”，行框[{分数框[“1”，“2”]，“，”，分数框[“1”，“2”]，“，”，分数框[“1”，“2”]，",", "864", ",", "8640", ",", "8640", ",", "103680", ",", "103680", ",", "1451520", ",", "21772800", ",", "348364800", ",", "348364800", ",", “6270566400”，“，”，“627056/6400”、“，”、“125411328000”}]，“}”}]]，“输出”，示例\压力UUID->“4d8aacf0-9eb3-4fac-9802-61f853f6241d”]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{“分段”，“[”，行框[{行框[{“{”，行框[{行框[{“{”，行框[{“1”，“，”，行框[{RowBox[｛“n”，“\[Equal]”，“1”｝]，“||”，行框[{“n”，“\[相等]”，“2”}]}]]，“}”}]，“，”，行框[{“{”，行框[{“2”，“，”，行框[{“n”，“\[Equal]”，“3”}]}，“}”}]，“，”，行框[{“{”，行框[{“4”，“，”，行框[{“n”，“\[Equal]”，“5”}]}]，“}”}]]，“{“}]，”，“，”，分数框[行框[{“n”，“！”}]，行框[{“2”，行框[{“Primarial”，“[”，“n”，“]”}]]}]，“]“}]，”，“，”，行框[{“{”，行框[{“n”，“，”，“20”}]，“}”}]}]，”]“}]]，“输入”，表达式UUID->\“2d44e39f-da9c-4ef-86c7-4beebf5174bf”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "2", ",", "4", ",", "12", ",", "12", ",", "96", ",", "864", ",", "8640", ",", "8640", ",", "103680", ",", "103680", ",", "1451520", ",", "21772800", ",", "348364800", ",", "348364800", ",", “6270566400”，“，”，“627056/6400”、“，”、“125411328000”}]，“}”}]]，“输出”，示例\按UUID->“a7a37a32-93bb-4a11-bf0a-aa511ee2bc1”]}，打开]]}，打开]]}，打开]]}，打开]]},窗口大小->{769，834}，窗口边距->{{0，自动}，{自动，2}}，ShowSelection->True，FrontEndVersion->“11.1 for Mac OS X x86（32位、64位内核）（6月2日\2017)",样式定义->“Default.nb”]（*笔记本内容结束*）（*内部缓存信息*）（*单元格标签大纲单元格标签索引->{}*)（*单元格标签索引单元格标签索引->{}*)（*笔记本文件大纲笔记本[{单元格[CellGroupData[{单元格[580，22，91，0，92，“标题”，“表达式UUID”->\“9849ec20-2b67-40f5-a2e3-99deb2680285”]，单元格[CellGroupData[{单元格[696，26，83，0，44，“子节”，“表达式UUID”->\“4302407a-1475-4cfe-9fe2-bb9c8dc86fcb”]，单元格[782，28，109，3，49，“文本”，“表达式UUID”->\“f0f9281d-4941-4a62-af1d-6b31eb7e5b55”]，单元格[894，33，374，9，49，“文本”，“表达式UUID”->\“776adb26-f2c3-42e4-a55f-7aa29a5567bf”]，单元格[1271，44，366，10，49，“文本”，“表达式UUID”->\“6fad2fb7-5b84-4641-a1a0-7b6f578292ec”]，单元格[1640，56，154，2，30，“文本”，“表达式UUID”->\“746aac55-6e22-4f9b-b51b-39cf1fc526b8”]}，打开]]，单元格[1809，61，90，0，44，“子节”，“表达式UUID”->\“6fca7e67-2f57-496c-8581-171f508ab648”]，单元格[CellGroupData[{单元格[1924，65，81，0，36，“小节”，“表达式UUID”->\“54d5f7b4-6c28-4a79-9cb3-a99a680b5c94”]，细胞[2008,67,773,24,75，“Input”，“ExpressionUUID”->\“a6a99e68-f0ae-4e92-92f1-45a68047c836”]，单元格[2784，93，1836，50，201，“输入”，“表达式UUID”->\“45cfadf7-95ac-4d64-88be-64acb5d5f3fd”]}，打开]]，单元格[CellGroupData[{单元格[4657，148，79，0，64，“节”，“表达式UUID”->\“d4cfab73-5c61-486e-9ef8-08f03b654351”]，单元格[CellGroupData[{单元格[4761，152，232，6，32，“输入”，“表达式UUID”->\“7ee9d40f-2a78-4d7d-b5f9-102eb5f06aa8”]，单元格[4996，160，325，6，32，“输出”，“表达式UUID”->\“140e390b-ca78-422c-b163-e8bbceecf578”]}，打开]]，单元格[CellGroupData[{单元格[5358171234,6,32，“输入”，“表达式UUID”->\“99897731-b146-4f1a-a7c8-d9e6fa6e71d8”]，单元格[5595，179，325，6，32，“输出”，“表达式UUID”->\“e6258a2b-9bf5-48f1-a7f6-4f5175d8a440”]}，打开]]，单元格[CellGroupData[{单元格[5957190222,6,32，“输入”，“表达式UUID”->\“084534be-6b36-4409-a601-d35cb3366dd2”]，单元格[6182，198，325，6，32，“输出”，“表达式UUID”->\“6c19d1d9-f5c5-4c0a-93e2-766cf1880890”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[6556，210，84，0，70，“节”，“表达式UUID”->\“82a1721f-c2c4-4d1a-bb9d-34ed7d9a8994”]，单元格[CellGroupData[{单元格[6665，214，1166，34，70，“小节”，“表达式UUID”->\“8ca7ccd2-8865-4024-aa05-90f4192255f0”]，单元格[CellGroupData[{单元格[7856，252，267，7，70，“输入”，“表达式UUID”->\“fee500f8-76ad-4747-b3ab-8c099decc1b9”]，单元格[8126，261，234，5，70，“输出”，“表达式UUID”->\“3cf63ec1-9980-4fe1-980d-a1390ac6e69f”]}，打开]]，单元格[CellGroupData[{单元格[8397，271，607，19，70，“输入”，“表达式UUID”->\“aee24924-5c67-464c-99e9-b1a6d56ad7b0”]，单元格[9007，292，234，5，70，“输出”，“表达式UUID”->\“4c992839-4cf8-4163-bcd4-4e3908e62f0b”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[9290，303，1294，39，70，“小节”，“表达式UUID”->\“1ca5209e-4ecc-47b7-a2b0-63ac69e15ea4”]，单元格[CellGroupData[{单元格[10609，346，252，7，70，“输入”，“表达式UUID”->\“b769ef17-fa2a-4763-a801-9fed8894b5fc”]，单元格[10864，355，404，7，70，“输出”，“表达式UUID”->\“5a26b46b-8fa9-40fc-9f7e-025e57b45e19”]}，打开]]，单元格[CellGroupData[{单元格[11305，367，289，9，70，“输入”，“表达式UUID”->\“60bfc621-1ff1-4da4-9e86-ee654ff1fd2”]，单元格[11597，378，467，9，70，“输出”，“表达式UUID”->\“4d8aacf0-9eb3-4fac-9802-61f853f6241d”]}，打开]]，单元格[CellGroupData[{单元格[12101，392，774，24，70，“输入”，“表达式UUID”->\“2d44e39f-da9c-4efe-86c7-4beebf5174bf”]，单元格[12878，418，404，7，70，“输出”，“表达式UUID”->\“a7a37a32-93bb-4a11-bf0a-aa511ee2bc1”]}，打开]]}，打开]]}，打开]]}，打开]]}]*)（*内部缓存信息结束*）