OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由支持OEIS基金会的许多慷慨捐赠者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A133580号 a(0)=a(1)=1;对于n>1,如果a(n-1)和n是互质,则a(n)=2*a(n-1)+1,否则a(n。 6
1, 1, 3, 1, 3, 7, 15, 31, 63, 7, 15, 31, 63, 127, 255, 17, 35, 71, 143, 287, 575, 1151, 2303, 4607, 9215, 1843, 3687, 1229, 2459, 4919, 9839, 19679, 39359, 78719, 157439, 314879, 629759, 1259519, 2519039, 5038079, 10076159, 20152319, 40304639 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
0,3
评论
初始值a(0)=1在某种程度上是人为的;使用a(0)=0将使用n=1的递归公式产生相同的后续项-M.F.哈斯勒2015年2月15日
链接
例子
将a(n-1)和n的GCD写在a(n-1)下:
n=:0 1 2 3 4 5 6 7 8 9。。。
a(n):1 1 3 1 3 7 15 31 63 7。。。
gcd:1 1 3 1 1 1 1 9 1。。。
数学
a={1,1};Do[如果[GCD[n,a[[1]]]==1,b=2*a[[-1]]+1,b=a[[-1-]]/GCD[a[-1]],n]];附加到[a,b],{n,2,50}];一个(*斯特凡·斯坦纳伯格2007年12月31日*)
nxt[{a_,b}]:={a+1,如果[CoprimQ[b,a+1],2b+1,b/GCD[b,a+1]]};连接[{1},转换[NestList[nxt,{1,1}、50]][2](*哈维·P·戴尔2012年9月16日*)
黄体脂酮素
(PARI)A=矢量(1000,i,1);对于(n=2,#A,A[n]=if(gcd(A[n-1],n)>1,A[n-1]/gcd(A[n-1],n),A[n-1]*2+1))\\M.F.哈斯勒2015年2月15日
(PARI)a=0#A133580号=向量(1000,n,a=if(gcd(a,n)>1,a/gcd(a,n),a*2+1))\\M.F.哈斯勒2015年2月15日
交叉参考
囊性纤维变性。A133058号,A133579号
关键词
非n
作者
Ctibor O.Zizka公司2007年12月26日
扩展
更正和扩展人斯特凡·斯坦纳伯格2007年12月31日
偏移更改为0N.J.A.斯隆2015年2月13日
Mathematica程序正确;b文件由更正哈维·P·戴尔2015年2月14日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。

上次修改时间:2024年6月19日00:22 EDT。包含373492个序列。(在oeis4上运行。)