|
| |
| |
|
|
|
1, 1, 2, 3, 5, 4, 3, 7, 5, 6, 11, 17, 14, 31, 15, 23, 19, 21, 20, 41, 61, 51, 56, 107, 163, 135, 149, 142, 97, 239, 168, 37, 41, 39, 40, 79, 17, 48, 13, 61, 37, 49, 43, 46, 89, 45, 67, 56, 41, 97, 69, 83, 76, 53, 43, 48, 13
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
类似于以（1,1）开头的斐波那契递归，但每个新的非素数项都被其最小素因子除。序列在到达（48，13）的38个术语后进入长度为18的循环。
|
|
|
参考文献
|
Siobhan Roberts，《游戏中的天才：约翰·霍顿·康韦的好奇之心》，布卢姆斯伯里，2015年，第xx-xxi页。
|
|
|
链接
|
Sara Barrows、Emily Noye、Sarah Uttomark和Matthew Wright，三的人群：亚素数三波那契序列的探索，大学数学。J.（2023）。
Richard K.Guy、Tanya Khovanova和Julian Salazar，康威次斐波那契序列，arXiv:1207.5099[math.NT]，2012-2014年。
|
|
|
数学
|
guyKhoSal[{a_，b_}]：=块[{c，l，r}，c=NestWhile[（p=Tr[Take[#，-2]]；如果[PrimeQ[p]，q=p，q=p/Part[FactorInteger[p，FactorComplete->False]，1，1]]；扁平[{#，q}]）&，{a，b}，FreeQ[Partition[#1，2，1]，Take[#2，-2]&，1000]；l=长度[c]；r=Tr@位置[分区[c，2，1]，取[c，-2]，1，1]；l-r-1；c] ；guyKhoSal[{1，1}]
f[s_List]：=块[{a=s[[-2]]+s[[-1]]}，如果[PrimeQ[a]，追加[s，a]，附加[s，a/FactorInteger[a][[1，1]]]]；嵌套[f，{1，1}，73](*罗伯特·威尔逊v2012年8月9日*）
|
|
|
黄体脂酮素
|
（PARI）fatw（n，a=[0，1]，p=[]）={对于（i=2，n，my（f=factor（a[i]+a[i-1]）~）；对于（k=1，#f，setsearch（p，f[1，k]）&next；f[2，k]--；p=setunion（p，Set（f[1,k]））；break）；a=concat（a，factorback（f~））））；a}
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
