搜索: a062402-编号:a06240
|
|
|
|
1, 1, 3, 3, 5, 3, 7, 7, 7, 7, 7, 7, 13, 7, 15, 15, 17, 7, 19, 15, 21, 7, 23, 15, 25, 26, 27, 28, 29, 15, 31, 31, 28, 31, 31, 28, 37, 31, 31, 31, 31, 28, 43, 28, 31, 28, 31, 31, 49, 28, 51, 31, 53, 31, 31, 31, 57, 31, 31, 31, 61, 31, 63, 63, 65, 28, 67, 63, 31, 31, 71, 31, 73, 74
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
链接
|
|
|
例子
|
n=240:列表={240127312,[252195],252,…},a(240)=127,瞬态;
n=254:list={254312,[252195],252,…},a(254)=195,循环项。
|
|
数学
|
gf[x_]:=DivisorSigma[1,EulerPhi[x]]gite[x_,hos_]:=NestList[gf,x,hos]表[Min[gite[w,20]],{w,1,256}]
|
|
黄体脂酮素
|
(方案)(定义(A096866号n) (let循环(已访问(列表n))(mn))(let(下一个(A062402型(访问的车辆))(cond((下一个访问的成员)m)(else(loop(下一次访问的cons)(min m next))));;安蒂·卡图恩2017年11月18日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 1, 1, 3, 2, 3, 1, 1, 2, 1, 1, 1, 1, 3, 1, 3, 1, 3, 3, 1, 3, 3, 1, 2, 3, 3, 3, 3, 1, 2, 1, 3, 1, 3, 3, 2, 1, 2, 3, 2, 3, 3, 3, 2, 3, 3, 3, 2, 3, 2, 2, 2, 1, 2, 2, 3, 3, 2, 3, 2, 2, 3, 2, 2, 3, 2, 2, 2, 3, 2, 3, 2, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,5
|
|
评论
|
|
|
链接
|
|
|
黄体脂酮素
|
(方案)(定义(A096993号n) (如果(=1 n)n(let循环(已访问(列出n))(i 1))(let(下一个(A062402型(访问的车辆))(第二((下一访问的成员)=>(lambda(prepath)(+1(-i(length prepath;;安蒂·卡图恩2017年12月4日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 12, 6, 12, 12, 12, 12, 18, 12, 28, 14, 15, 16, 72, 18, 72, 20, 28, 22, 36, 24, 42, 28, 72, 28, 72, 30, 72, 72, 42, 72, 72, 36, 252, 72, 72, 72, 90, 42, 252, 44, 72, 46, 72, 72, 252, 50, 252, 72, 252, 72, 90, 72, 252, 72, 90, 72, 168, 72, 252, 252, 168, 66, 168, 252
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
n=256:列表={256252525},a(256)=256作为瞬态项;
n=101:list={1012175464031170819,[12401512],1240,…},a(101)=1512作为循环项。
|
|
数学
|
gf[x_]:=DivisorSigma[1,EulerPhi[x]]gite[x_,hos_]:=NestList[gf,x,hos]表[Max[gite[w,20]],{w,1,256}]
表[Max[NestList[DivisorSigma[1,EulerPhi[#]]&,n,20]],{n,70}](*哈维·P·戴尔2019年5月13日*)
|
|
黄体脂酮素
|
(方案)(定义(A096864号n) (let循环(已访问(列表n))(mn))(let(下一个(A062402型(访问的车辆)))(cond((下一次访问的成员)m)(else(循环(下一个访问的cons)(最大m next))));;安蒂·卡图恩2017年11月18日
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A096862号
|
| 功能A062402型(x) =σ(φ(x))被迭代。从n开始,a(n)是该轨迹中出现的不同项的计数;a(n)=t(n)+c(n)=t+c,其中t是瞬态项的数量,c是[在终止循环中]的循环项的数量。 |
|
+20 4
|
|
|
1, 2, 1, 2, 3, 2, 2, 3, 3, 3, 4, 2, 2, 3, 1, 2, 4, 3, 5, 2, 2, 4, 3, 2, 3, 2, 5, 1, 5, 2, 3, 4, 3, 4, 4, 2, 4, 5, 4, 4, 5, 2, 6, 3, 4, 3, 4, 4, 6, 3, 5, 4, 7, 5, 5, 4, 4, 5, 5, 3, 3, 4, 4, 5, 3, 3, 4, 5, 5, 4, 4, 3, 3, 4, 5, 4, 3, 4, 3, 5, 6, 5, 5, 4, 5, 6, 6, 5, 4, 4, 3, 5, 3, 4, 3, 5, 3, 6, 3, 5, 8, 5, 4, 3, 3
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
n=256:列表={256252525},瞬态=t=1,周期=c=1,a(256)=t+c=2。
|
|
数学
|
gf[x_]:=除数Sigma[1,EulerPhi[x]]gite[x_,hos_]:=NestList[gf,x,hos]表[长度[Union[gite[w,1000]],{w,1,256}]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 2, 0, 1, 1, 0, 1, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 2, 0, 2, 1, 0, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 4, 2, 1, 2, 1, 1, 4, 2, 3, 1, 5, 2, 2, 1, 2, 2, 2, 0, 1, 1, 2, 3, 1, 2, 2, 3, 2, 1, 2, 0, 1, 2, 2, 2, 1, 1, 1, 3, 4, 2, 3, 1, 3, 4, 4, 2, 2, 1, 1, 2, 1, 1, 1, 3, 1, 4, 1, 2, 6, 3, 2, 1, 1
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,11个
|
|
评论
|
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
n=256:列表={25625255},a(256)=1;
n=101:列表={1012175464031170819,[12401512],1240,…,a(101)=6;
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 1, 1, 1, 1, 3, 3, 1, 2, 3, 5, 2, 3, 6, 15, 1, 6, 8, 3, 15, 9, 4, 65, 44, 82, 83, 77, 75, 48, 26, 43, 1
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
0,7
|
|
评论
|
对于初始值=2^33,超过38000次迭代不会导致循环项,因此可能没有循环。a(34)到a(39)是8、52、71、24、40、12-克劳斯·布罗克豪斯2007年7月19日
|
|
链接
|
|
|
例子
|
2^0的轨迹是1,1。。。;在1个周期(1)之前有零个瞬态项,因此a(0)=0。
2^14的轨迹为16384、16383、34200、30480、26520、16380、10200、6138、6045、9906、9920、12264、10200。。。;在6个周期(10200、6138、6045、9906、9920、12264)之前有六个瞬态项,因此a(14)=6。
|
|
数学
|
使用[{nn=10^4},表[Count[Values@PositionIndex@NestList[DivisorSigma[1,EulerPhi@#]&,2^n,nn],_?(长度@#==1&)],{n,0,60}]/。m/;m==nn+1->-1](*迈克尔·德弗利格2017年7月24日*)
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 7, 12, 31, 42, 124, 224, 511, 847, 1953, 2688, 12264, 18816, 29127, 72540, 131071, 195048, 558523, 1077440, 3164112, 4552020, 10890040, 10342080, 54525848, 73260781, 155671040, 318848400, 1080311232, 964580240, 3070642080
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
数学
|
表[DivisorSigma[1,EulerPhi[1+2^w]],{w,1,30}]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 7, 12, 18, 28, 31, 39, 42, 56, 72, 91, 96, 98, 168, 195, 252, 280, 312, 360, 372, 392, 546, 576, 744, 840, 864, 992, 1092, 1170, 1344, 1512, 1680, 1860, 1872, 2016, 2240, 2418, 2880, 3224, 3600, 3844, 4320, 4368, 4914, 5082, 5952, 6045, 6552, 7440
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
数学
|
a=0;s=0;Do[s=DivisorSigma[1,EulerPhi[n]];如果[s>a,a=s;打印[s]],{n,1,10000}]
(*第二个节目:*)
Union@FoldList[Max,Array[DivisorSigma[1,EulerPhi[#]]&,2200]](*迈克尔·德弗利格,2018年6月19日*)
|
|
黄体脂酮素
|
(PARI){n=r=0;对于(m=1,10^9,x=sigma(eulerphi(m));如果(x>r,r=x;写入(“b065390.txt”,n++,“”,x);如果\\哈里·史密斯2009年10月18日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 3, 12, 15, 72, 91, 312, 255, 1240, 1860, 4123, 5080, 26208, 34200, 93600, 65535, 334368, 416560, 1420800, 1596364, 6146800, 5949696, 20485332, 23788842, 120519630, 194016600, 358132380, 458803800, 1674738000, 2166798816, 6045990912, 4294967295, 22739738112, 37862623140
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
数学
|
表[DivisorSigma[1,EulerPhi[-1+2^w]],{w,1,30}]
|
|
黄体脂酮素
|
(PARI)a(n)=σ(eulerphi(2^n-1))\\米歇尔·马库斯2019年8月30日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 6, 13, 15, 16, 20, 21, 23, 24, 25, 26, 28, 30, 33, 36, 42, 44, 46, 50, 66, 157, 169, 203, 215, 237, 241, 245, 255, 256, 261, 272, 275, 287, 303, 305, 314, 316, 320, 325, 338, 340, 344, 347, 367, 369, 375, 384, 385, 392, 393, 404, 406, 408, 429, 430
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
数学
|
a={};Do[s={n};While[!MemberQ[s,k=DivisorSigma[1,EulerPhi[s[-1]]]],AppendTo[s,k]];如果[s[[-1]]==k,附加到[a,n]],{n,430}];一个(*伊凡·涅雷汀2016年12月15日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.055秒内完成
|