（*内容类型：application/vnd.wolfram.mathematica*）（***Wolfram笔记本文件***）(* http://www.wolfram.com/nb *)（*CreatedBy='Mathematica 9.0'*）（*CacheID:234*）（*内部缓存信息：笔记本文件断线测试笔记本文件断线测试笔记本数据位置[157，7]笔记本数据长度[10027，386]笔记本选项位置[8271，317]笔记本大纲位置[8624，333]单元格标签索引位置[8581，330]窗口框架->正常*）（*笔记本内容开头*）笔记本[{单元格[CellGroupData[{单元格[TextData[{“霍夫施塔特”，单元格[BoxData[表单框[“G”，传统表单]]，“无”]，“-序列”}]，“标题”]，单元格[CellGroupData[{单元格[“作者”，“小节”]，单元格[“\<\埃里克·韦斯特因2008年9月14日\\>“，”文本“]，单元格[文本数据[{“此笔记本下载自”，按钮框[“http://mathworld.wolfram.com/notebooks/Integer序列/\HofstadterG-Sequence.nb“，BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/notebooks/IntegerSequences/HofstadterG-\序列号nb“]，无}]，"."}]，“文本”]，单元格[TextData[{“有关更多信息，请参阅埃里克的”，StyleBox[“数学世界”，字体倾斜->“斜体”]，“条目”，按钮框[“http://mathworld.wolfram.com/HofstadterG-Sequence.html",BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/HofstadterG-Sequence.html“]，无}]，"."}]，“文本”]，单元格[“\<\\[版权所有]2008 Wolfram Research，Inc.，除非另有说明\\>“，”文本“]}，打开]]，单元格[CellGroupData[{单元格[“序列”，“节”]，单元格[CellGroupData[{单元格[BoxData[行框[{“RSolve”，“[”，行框[{行框[{“{”，行框[{行框[{行框[{“G”，“[”，“n”，“]”}]，“\[等于]”，行框[{“n”，“-”，行框[{“G”，“[”，行框[{“G”，“[”，行框[{“n”，“-”，“1”}]，“]”}]，行框[{行框[{“G”，“[”，“0”，“]”}]，“\[Equal]”，“0}]}”，“}”}]，“，”，行框[{“G”，“[”，“n”，“]”}]，“，”，单元格[BoxData[行框[{行框[{“RSolve”，“：：”，“\<\”nestdv\“\>”}]，“：”，" ", "\<\"\\!\\（\\*StyleBox[\\\“\\\\\\\\”表达式\\\\\\\“，\\”MT\\\\“]\\）\[NoBreak]\\！\\（\\*StyleBox[\\！\（G[\\（（\\（-1\\）\\）+\n\\）\\）]\\），\\\“MT\\\”]\\）\[NoBreak]\\\\（\\*StyleBox[\\\“\\\\\\”有\嵌套的因变量\\\\\\\“\\”，\\\“MT\\”]\\）\\\\（\\*按钮框[\\\\“\[RightSkeleton]\\\”，ButtonStyle->\\\“Link\\\”、ButtonFrame->无\ButtonData:>\\\“paclet:ref/message/RSolve/nestdv\\\”，ButtonNote->\\\\“RSolve:：nestdv\\”]\\）“\>”}]]，“消息”，“MSG”]，单元格[BoxData[行框[{“RSolve”，“[”，行框[{行框[{“{”，行框[{行框[{行框[{“G”，“[”，“n”，“]”}]，“\[等于]”，行框[{“n”，“-”，行框[{“G”，“[”，行框[{“G”，“[”，行框[{行框[{“-”，“1”}]，“+”，“n”}]，行框[{行框[{“G”，“[”，“0”，“]”}]，“\[Equal]”，“0}]}”，“}”}]，“，”，行框[{“G”，“[”，“n”，“]”}]，“，”，“n”}]”，“}]]，“输出”]}，打开]]，单元格[BoxData[{行框[{行框[{“G”，“[”，“0”，“]”}]，“：=”，“0}]，”\[IndentingNewLine]“，行框[{行框[{“G”，“[”，“n_”，“]”}]，“：=”，行框[{行框[{“G”，“[”，“n”，“]”}]，“=”，行框[{“n”，“-”，行框[{“G”，“[”，行框[{“G”，“[”，行框[{“n”，“-”，“1”}]，“]”}]，单元格[CellGroupData[{单元格[BoxData[行框[{“G”，“/@”，RowBox[｛“Range”，“[”，“20”，“]”｝]｝]]，“Input”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "4", ",", "4", ",", "5", ",", "6", ",", "6", ",", "7", ",", "8", ",", "8", ",", "9", ",", "9", ",", “10”，“，”，“11”，“}，打开]]}，打开]]，单元格[CellGroupData[{单元格[“公式”，“节”]，单元格[CellGroupData[{单元格[BoxData[表单框[行框[{行框[{“\[LeftFloor]”，行框[{行框[{“（”，行框[{“n”、“+”、“1”}]、“）”}]，“”，标记框[“\[Phi]”，函数[{}，GoldenRatio]]}]，“\[RightFloor]”}]，传统形式]]，“子节”]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{行框[{“Floor”，“[”，行框[{RowBox[｛“（”，行框[{“n”，“+”，“1”}]，“）”}]，"1"}], ",", 行框[{“{”，行框[{“n”，“，”，“20”}]，“}”}]]，“]”}]'，“输入”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "4", ",", "4", ",", "5", “，”，“6”，“，”，“6”，“，”，“7”，“，”，“8”，“，”，“8”，“，”，“9”，“，”，“9”，“，“10”，“，”，“11”，“}，打开]]}，打开]]，单元格[CellGroupData[{单元格[BoxData[表单框[行框[{“\[LeftFloor]”，分数框[行框[{“n”，“+”，“1”}]，标记框[“\[Phi]”，函数[{}，黄金比率]]]，“\[RightFloor]”}]，传统形式]]，“子节”]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{“Floor”，“[”，行框[{行框[{“（”，行框[{“n”，“+”，“1”}]，“）”}]，行框[{“{”，行框[{“n”，“，”，“20”}]，“}”}]]，“]”}]'，“输入”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "4", ",", "4", ",", "5", ",", "6", ",", "6", ",", "7", ",", "8", ",", "8", ",", "9", ",", "9", ",", “10”，“，”，“11”，“}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“完全简化”，“[”，行框[{行框[{行框[{“Floor”，“[”，行框[{行框[{“（”，RowBox[｛“n”，“+”，“1”｝]，“）”｝]，“/”，“GoldenRatio”｝]，“]”｝]，“-”，行框[{“（”，行框[{行框[{“Floor”，“[”，行框[{行框[{“（”，行框[{“n”，“+”，“1”}]，“）”}]，"-", "1"}], ")"}]}], ",", 行框[{“n”，“\[Element]”，“Integers”}]}]，“]”}]]，“Input”]，单元格[BoxData[行框[{“1”，“+”，“n”，“＋”，行框[{“Floor”，“[”，分数框[行框[{“1”、“+”、“n”}]、“黄金比率”]、“]”}]，“-”，行框[{“Floor”，“[”，行框[{“黄金比率”，“”，行框[{“（”，行框[{“1”，“+”，“n”}]，“）”}]}]，”]“}]}]]，“输出”]}，打开]]，单元格[CellGroupData[{单元格[BoxData[行框[{“表”，“[”，行框[{行框[{行框[{“Floor”，“[”，行框[{行框[{“（”，行框[{“n”，“+”，“1”}]，“）”}]，行框[{“（”，行框[{行框[{“Floor”，“[”，行框[{行框[{“（”，行框[{“n”，“+”，“1”}]，“）”}]，"-", "1"}], ")"}]}], ",", 行框[{“{”，行框[{“n”，“，”，行框[{“-”，“5”}]，“，”，单元格[BoxData[行框[{“{”，行框[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", “，”，“0”，“，”}，打开]]}，打开]]，单元格[CellGroupData[{单元格[BoxData[表单框[行框[{行框[{“a”，“（”，“n”，“）”}]，“=”，行框[{“n”，“-”，行框[{“a”，“（”，行框[{“\[LeftFloor]”，分数框[“n”，标记框[“\[Phi]”，函数[{}，黄金比率]]]，“\[RightFloor]”}]，“）”}]}]]，传统形式]]，“子节”]，单元格[BoxData[{行框[{行框[{“a”，“[”，“0”，“]”}]，“：=”，“0}]，”\[IndentingNewLine]“，行框[{RowBox[｛“a”，“[”，“1”，“]”｝]，“：=”，“1”｝]，“\[InditingNewLine]”，行框[{行框[{“a”，“[”，“n_”，“]”}]，“：=”，行框[{行框[{“a”，“[”，“n”，“]”}]，“=”，行框[{“n”，“-”，RowBox[｛“a”，“[”，行框[{“Floor”，“[”，行框[{“n”，“/”，“GoldenRatio”}]，“]”}]，单元格[CellGroupData[{单元格[BoxData[行框[{“a”，“/@”，行框[{“范围”，“[”，“20”，“]”}]]，“输入”]，单元格[BoxData[行框[{“{”，行框[{"1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "4", ",", "4", ",", "5", ",", "6", ",", "6", ",", "7", ",", "8", ",", "8", ",", "9", ",", "9", ",", “10”，“，”，“11”，“}，打开]]}，打开]]}，打开]]}，打开]]},窗口大小->{640，750}，窗口边距->{{36，自动}，{自动，84}}，FrontEndVersion->“9.0 for Mac OS X x86（32位、64位内核）（3月5日\2013)",样式定义->“Default.nb”]（*笔记本内容结束*）（*内部缓存信息*）（*单元格标签大纲单元格标签索引->{}*)（*单元格标签索引单元格标签索引->{}*)（*笔记本文件大纲笔记本[{单元格[CellGroupData[{单元格[579，22，115，5，93，“标题”]，单元格[CellGroupData[{单元格[719，31，28，0，44，“小节”]，单元格[750，33，60，3，49，“文本”]，单元格[813，38，307，9，68，“文本”]，单元格[1123,49,315,10,49，“文本”]，单元格[1441，61，99，2，30，“文本”]}，打开]]，单元格[CellGroupData[{单元格[1577,68,27,0,80，“节”]，单元格[CellGroupData[{单元格[1629，72，424，13，28，“输入”]，单元格[2056,87,572,9,24，“消息”]，单元格[2631，98，451，14，28，“输出”]}，打开]]，单元格[3097，115，324，10，46，“输入”]，单元格[CellGroupData[{单元格[3446，129，83，2，28，“输入”]，单元格[3532，133，269，5，28，“输出”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[3850，144，27，0，80，“节”]，单元格[CellGroupData[{单元格[3902148273,9,44，“小节”]，单元格[CellGroupData[{单元格[4200，161，290，10，28，“输入”]，单元格[4493、173、269、5、28，“输出”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[4811，184，206，7，70，“小节”]，单元格[CellGroupData[{单元格[5042、195、252、8、70，“输入”]，单元格[5297，205，269，5，70，“输出”]}，打开]]，单元格[CellGroupData[{单元格[5603，215，473，15，70，“输入”]，单元格[6079、232、276、8、70，“输出”]}，打开]]，单元格[CellGroupData[{单元格[6392，245，506，17，70，“输入”]，单元格[6901，264，170，4，70，“输出”]}，打开]]}，打开]]，单元格[CellGroupData[{单元格[7120，274，299，10，70，“小节”]，单元格[7422，286，417，12，70，“输入”]，单元格[CellGroupData[{单元格[7864，302，83，2，70，“输入”]，单元格[7950，306，269，5，70，“输出”]}，打开]]}，打开]]}，打开]]}，打开]]}]*)（*内部缓存信息结束*）