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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A175498号 a(1)=1。a(n)=对于任何具有2<=k<=n-1的k,不在前面出现的最小正整数,使得a(n,a(n-1)不等于a(k)-a(k-1)。 22
1, 2, 4, 3, 6, 10, 5, 11, 7, 12, 9, 16, 8, 17, 15, 23, 13, 24, 18, 28, 14, 26, 19, 32, 20, 34, 21, 36, 25, 41, 22, 39, 30, 48, 27, 46, 29, 49, 31, 52, 37, 59, 33, 56, 40, 64, 35, 60, 38, 65, 42, 68, 43, 71, 44, 73, 45, 75, 51, 82, 47, 79, 112, 50, 84, 53, 88, 54, 90, 57, 94, 55, 93, 61, 100, 58, 98, 62, 103, 63, 105, 67 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
这个序列是正整数的置换。
a(n+1)-a(n)=A175499号(n) ●●●●。
推测:{1,2,…n}的字典序最早排列,相邻数字的差异都是不同的(参见。A131529号)对于n-->无穷大,此序列作为其前缀-乔格·阿恩特2012年5月27日
链接
Joerg Arndt和Reinhard Zumkeller,n=1..10000时的n,a(n)表,Joerg Arndt的前1122个术语
数学
a[1]=1;d[1]=0;k=1;z=10000;zz=120;
A[k]:=表[A[i],{i,1,k}];diff[k_]:=表[d[i],{i,1,k}];
c[k_]:=补码[Range[-z,z],diff[k]];
T[k_]:=-a[k]+补码[Range[z],a[k]];
表[{h=Min[交集[c[k],T[k]]],a[k+1]=a[k]+h,d[k+1]=h,k=k+1},{i,1,zz}];
u=表格[a[k],{k,1,zz}](*克拉克·金伯利2015年5月13日*)
黄体脂酮素
(Python)
A175498号_列表,l,s,b1,b2=[1,2],2,3,set(),set([1])
对于范围(3,10**5)中的n:
….i=秒
….为真时:
如果不是(b1中的i或b2中的i-l):
............A175498号_列表.附加(i)
…………b1.添加(i)
…………b2.添加(i-l)
…………l=i
当s在b1中时:
………….b1.删除
………….s+=1
…………中断
……..i+=1#柴华武2014年12月15日
(哈斯克尔)
导入数据。列表(删除)
a175498 n=a175498_列表!!(n-1)
a175498_list=1:f 1[2..][]其中
f x zs ds=g zs,其中
g(y:ys)|diff`elem`ds=gys
|否则=y:f y(删除y zs)(差异:ds)
其中diff=y-x
--莱因哈德·祖姆凯勒2015年4月25日
交叉参考
关键词
非n,美好的
作者
勒罗伊·奎特2010年5月31日
扩展
更多术语来自肖恩·欧文2011年1月27日
状态
已批准

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

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

上次修改时间:美国东部夏令时2024年5月23日00:00。包含372758个序列。(在oeis4上运行。)