登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
邮编:A140778 a(n)是最小的正整数,使得序列中没有出现两次的数字及其绝对第一差。 6
1、3、7、12、18、8、17、28、13、27、43、19、39、60、22、45、70、26、55、85、31、63、96、34、69、105、37、77、118、42、88、135、48、97、147、52、103、156、56、113、171、59、120、184、65、131、198、71、143、216、74、149、227、79、159、240、82、165、249、86、175、265、91、183 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,2

评论

这个序列及其第一个差异包括每个正整数(正好一次)。

链接

阿洛伊斯·P·海因茨,n=1..10000的n,a(n)表

例子

对于a(5),到该点的序列是[1,3,7,12],绝对差[2,4,5]。下一个数字不能是6,因为6将同时出现在序列和第一个差异中。由于取所有小于6的值,因此差值必须为正且至少为6。6功之差,A(5)=18。

枫木

b: =proc()假结束:

a: =proc(n)option remember;局部k;

如果n=1,则b(1):=真;1

否则k,而b(k)或(t->b(t)或t=k)(abs(a(n-1)-k))做od;

b(k),b(绝对值(a(n-1)-k)):=真$2;k

金融机构

结束:

顺序(a(n),n=1..100)#海因茨2015年5月14日

数学

a[n_]:=a[n]=模块[{},如果[n==1,b[1]=True;1,对于[k=1,b[k]| |函数[t,b[t]| | t==k][Abs[a[n-1]-k]],k++];{b[k],b[Abs[a[n-1]]}={True,True};k]];表[a[n],{n,1,100}](*让·弗朗索瓦·阿尔科弗2017年1月22日,之后海因茨*)

黄体脂酮素

(PARI)IsInList(v,k)=for(i=1,#v,if(v[i]==k,return(1)));返回(0)IsInDiff(v,k)=for(i=2,#v,if(abs(v v[i[i]-v[i-1])==k,返回(1))));返回(0)返回(0)NextA140778(v)={本地(i,d);如果(35; v==0,返回(1));i=2;同时(1,1,d=abs(i-v#v[#####v[\35;#v]);如果(!124V(ISINLI=124V,ISINLI=124V(ISINLI=124V))(ISINLI=124V(ISINLI=124V,ISINLI=124V)

(PARI){u=0;a=1;对于(n=1,99,u+=1<<a;print1(a“,”);对于(k=1,9e9,(最苦(u,k)| | |最苦(u,abs(a-k))| | a==2*k)&&next;u+=1<<abs(a-k);a=k;break))}\\M、 哈斯勒2015年5月13日

交叉引用

囊性纤维变性。A140779号,A081145型.

另请参见A005228号,A030124型,A037257型,A037258号,A037259号,A061577号,A257941号,甲57944.

上下文顺序:A227133号 邮编:A170883 邮编:A198463*A095115型 A310249型 A310250型

相邻序列:A140775号 A140776号 A140777号*A140779号 邮编:A140780 邮编:A140781

关键字

容易的,

作者

富兰克林·T·亚当斯·沃特斯2008年5月29日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年8月5日16:00。包含336213个序列。(运行在oeis4上。)