|
|
A132425号
|
| a(1)=1。a(2)=2。对于n>=3,a(n)是最小的整数,它是>a(n-1),不与a(n-1)互素,并且对于任何m<n,a(n-a(n-l)都不等于a(m)-a(m-1)。
(历史;已发布版本)
|
|
|
#9通过乔恩·肖恩菲尔德2015年9月16日星期三13:57:28 EDT |
|
|
|
#8通过乔恩·肖恩菲尔德2015年9月16日星期三13:57:27 EDT |
| 数学
|
a={1,2};对于[n=1,n<1500,n++,n=a[[-1]];c=0;而[c==0,n++;如果[GCD[n,a[[-1]]>1,b=0;对于[j=1,j<长度[a],j++,如果[a[[j+1]]-a[[j]]==n-a[[-1]],b=1]];如果[b==0,则附加到[a,n];c=1]]];一- _(* _Stefan Steinerberger_,2007年10月21日*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#7通过查尔斯·格里特豪斯四世美国东部时间2014年4月9日星期三10:15:53 |
|
|
讨论
|
2009年4月3日
| 10:15
| OEIS服务器: https://oeis.org/edit/global/2152
|
|
|
|
#6通过N.J.A.斯隆2014年2月5日星期三美国东部标准时间20:18:42 |
|
|
讨论
|
2月5日星期三
| 20:18
| OEIS服务器: https://oeis.org/edit/global/2118
|
|
|
|
#5通过俄罗斯考克斯2012年3月30日星期五18:49:46 EDT |
| 数学
|
a={1,2};对于[n=1,n<1500,n++,n=a[[-1]];c=0;而[c==0,n++;如果[GCD[n,a[[-1]]>1,b=0;对于[j=1,j<长度[a],j++,如果[a[[j+1]]-a[[j]]==n-a[[-1]],b=1]];如果[b==0,则附加到[a,n];c=1]]];一-- _斯特凡·斯坦纳伯格(斯特凡.斯坦伯格(自动变速箱)gmail公司.通用域名格式),_,2007年10月21日
|
| 扩展
|
更多术语来自 _斯特凡·斯坦纳伯格(斯特凡.斯坦伯格(自动变速箱)gmail公司.通用域名格式),_,2007年10月21日
|
|
|
讨论
|
3月30日星期五
| 18:49
| OEIS服务器: https://oeis.org/edit/global/238
|
|
|
|
#4通过N.J.A.斯隆2010年10月2日星期六美国东部夏令时03:00:00 |
| 链接
|
Leroy Quet,<a href=“http://www.prism-of-spirals.net/“>主页(代替电子邮件地址列出)
|
| 关键词
|
非n,新的
非n
|
|
|
|
#3通过N.J.A.斯隆2009年2月27日星期五美国东部标准时间03:00:00 |
| 名称
|
a(1)=1。a(2)=2。对于n>=3,a(n)是最小的整数,它是>a(n-1),不是a(n-1)的互质),)并且对于任何m<n,a(n)-a(n-1)不等于a(m)-a。
|
| 关键词
|
非n,新的
非n
|
|
|
|
#2通过N.J.A.斯隆2009年1月9日星期五东部标准时间03:00:00 |
| 链接
|
Leroy Quet,<a href=“http://www.prism-of-spirals.net/“>主页(代替电子邮件地址列出)
|
| 关键词
|
非n,新的
非n
|
| 作者
|
勒罗伊奎特(qq(质量)-球拍(自动变速箱)思维弹簧.通用域名格式), 2007年8月20日
|
|
|
|
#1通过N.J.A.斯隆美国东部时间2007年11月10日星期六03:00:00 |
| 名称
|
a(1)=1。a(2)=2。对于n>=3,a(n)是最小的整数,它是>a(n-1),不是a(n-1)的互质,并且对于任何m<n,a(n-a(n-l)都不等于a(m)-a(m-1)。
|
| 数据
|
1、2、4、8、14、21、24、32、42、51、63、77、88、104、117、132、150、155、175、196、218、242、268、296、326、358、392、427、469、518、554、592、629、646、665、690、713、744、771、804、843、888、928、957、1001、1053、1101、1152、1198、1248、1302、1358、1416、1473
|
| 抵消
|
1,2
|
| 评论
|
{a(n+1)-a(n)}是正整数的置换吗?
|
| 数学
|
a={1,2};对于[n=1,n<1500,n++,n=a[[-1]];c=0;而[c==0,n++;如果[GCD[n,a[[-1]]>1,b=0;对于[j=1,j<长度[a],j++,如果[a[[j+1]]-a[[j]]==n-a[[-1]],b=1]];如果[b==0,则附加到[a,n];c=1]]];a-斯特凡·斯坦伯格(Stefan.Steinerberger(AT)gmail.com),2007年10月21日
|
| 交叉参考
|
囊性纤维变性。A089781号,A132426号.
|
| 关键词
|
非n,新的
|
| 作者
|
Leroy Quet(qq-Quet(AT)mindspring.com),2007年8月20日
|
| 扩展
|
更多条款来自Stefan Steinerberger(Stefan.steinerberge(AT)gmail.com),2007年10月21日
|
| 状态
|
经核准的
|
|
|
|