搜索： a220096-编号：a220096
|
| |
| |
|
|
|
0, 1, 2, 3, 3, 4, 4, 5, 4, 4, 5, 6, 5, 6, 6, 5, 5, 6, 5, 6, 6, 6, 7, 8, 6, 5, 7, 5, 7, 8, 6, 7, 6, 7, 7, 6, 6, 7, 7, 7, 7, 8, 7, 8, 8, 6, 9, 10, 7, 6, 6, 7, 8, 9, 6, 7, 8, 7, 9, 10, 7, 8, 8, 7, 7, 7, 8, 9, 8, 9, 7, 8, 7, 8, 8, 6, 8, 7, 8, 9, 8, 6, 9, 10, 8, 7
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
记录出现在指数0、1、2、3、5、7、11、22、23、46、47、94。。。（请参见A297026型).
|
|
|
链接
|
|
|
|
例子
|
对于n=14，a（14）=6，因为需要六次迭代才能达到零：
|
|
|
数学
|
g[n-Integer]：=如果[n==1，0，块[｛fi=FactorInteger@n｝，如果[Plus@@（Last@#&&@因子整数@n)==1，n-1，n/fi[[1，1]]]；f[n_]：=NestWhileList的长度[g，n，#>0&]-1；数组[f，86，0](*罗伯特·威尔逊v2017年12月24日*）
|
|
|
黄体脂酮素
|
（PARI）f（n）=如果（n==1，0，isprime（n），n-1，my（d=除数（n））；d[#d-1]）；
a（n）=我的（nb=0）；而（n，n=f（n）；nb++）；nb\\米歇尔·马库斯2017年12月24日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 3, 4, 7, 8, 10, 11, 15, 19, 24, 25, 30
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,更多,未经调整的,光电池
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
0, 1, 2, 3, 5, 7, 11, 22, 23, 46, 47, 94, 167, 283, 359, 718, 719, 1438, 1439, 2878, 2879, 5758, 11516, 23032, 34549, 69098, 138059, 138197, 276394, 552788, 1105576, 2211152, 3316619, 6633238, 11792393, 23584786, 23584787, 47169574, 53065907, 106131814, 212263628, 424527256
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
如果n>2，则a（n）<=2*a（n-1）。证明：2*a（n-1）是偶数。迭代一次后A220096年，我们得到了一个（n-1），它给出了一个记录。
如果n>3且a（n）<2*a（n-1），则a（n”）是奇数。证明：如果a（n）是偶数，则a（n”）/2<a（n-1）在序列中。我们有k个=A297025型（a（n-1））和k+1=A297025型（2*a（n-1）），因此a（n）不能作为记录的位置，因为a（n-1）<a（n”）<2*a“n-1”。
如果n>2且a（n）<2*a（n-1），则a（n。证明：这对n=3是正确的。对于n>3，a（n）是奇数。如果a（n）是复合的，那么它具有最小的奇质因子p>=3。我们有A297025型（a（n）/p）<A297025型（a（n-1））<A297025型（a（n）），这是不可能的，因此在这种情况下，a（n）是素数。（结束）
|
|
|
链接
|
|
|
|
数学
|
使用[{s=Array[Length@NestWhileList[If[#1==1，0，If[Total[#2[[All，-1]]==1、#1-1、#1/#2[[1，1]]]&@@{#，FactorInteger@#}&，#，#>0&]-1&，2^18，0]}，FirstPosition[s，#][1]]-1&/@Union@FoldList[Max，s]](*迈克尔·德·维利格2017年12月24日，之后罗伯特·威尔逊v在A297025型*)
|
|
|
黄体脂酮素
|
（PARI）f（n）=如果（n==1，0，isprime（n），n-1，my（d=除数（n））；d[#d-1]）；
nb（n）=我的（nb=0）；而（n，n=f（n）；nb++）；nb；
列表（nn）={my（rec=-1）；对于（n=0，nn，如果（m=nb（n））>rec，rec=m；打印1（n，“，”）；）；}\\米歇尔·马库斯2017年12月24日
（PARI）第一（n）={n=最大（n，2）；my（res=向量（n），i=3，c=2，m=1）；res[1]=0；res[2]=1；while（i<=n，forprime（p=res[i-1]+1，2*res[i-2]，c=A297025型（p） ；如果（c>m，m=c；res[i]=p；i++；next（2）））；如果（res[i]==0，res[i]=2*res[i-1]；i++；m++））；资源}
A220096年（n） =如果（n==1，返回（0））；my（f=系数（n））；如果（vecsum（f[，2]）==1，n-1，n/f[1，1]）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.007秒内完成
|
