登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志


提示
问候整数序列的在线百科全书!)
A140788 A(n)是最小的正整数,使得序列中不出现两次数及其绝对的第一差异。
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,97, 147, 52,γ,y,γ,y,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

1,2

评论

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

链接

Alois P. Heinzn,a(n)n=1…10000的表

例子

对于A(5),该点的序列是[1,3,7/12],具有绝对差异[2,4,5]。下一个数字不能是6,因为然后6将在序列和第一个差异中。由于取小于6的所有值,差值必须是正的,至少6。6个作品的差异,A(5)=18。

枫树

错误结尾:

A: = PROC(n)选项记忆;局部k;

如果n=1,则B(1):=TRUE;1;

否则K,而B(K)或(T-> B(t)或t= K)(ABS(A(N-1)-K))做OD;

b(k),b(ABS(a(n-1)-k))=真2美元;k

FI

结束:

SEQ(A(n),n=1…100);阿洛伊斯·P·海因茨5月14日2015

Mathematica

a[n]:=[n]=[n== 1,b](1)=true;1,对于[k=1,b[k]η函数[t,b[t]=t=k] [ABS[a[n1] -k],k++];{b[k],b[ABS[a[n1] -k] }={true,true };k];表[a[n],{n,1, 100 }](*)让弗兰1月22日2017后阿洛伊斯·P·海因茨*)

黄体脂酮素

(i,k)=(i=1,αv v,If(v[i]=k,返回(1)));返回(0)iSimDIFF(v,k)=(i=2,αv),如果(ABS(V [i] -V[I-1)=k,返回(1));返回(0)NEXTA140788(V)={局部(I,D);如果(αv==0,返回(1));I=2;而(1,D=ABS(I-V[V] V));(帕里)ISILIST(i==i iSISLIST(v,i)i iSimDIFF(v,i)ηiSnLIST(v,d)ηiSimDIFF(v,d),返回(i));i+++)v= [];(i=1, 100,v= CONTAT(V,NEXTA14078(V)));

(PARI){u=0;a=1;(n=1, 99,u+=1<a);Prrt1(a,));(k=1,9e9,(位测试(u,k)}位测试(u,abs(a k))< a==2×k)& &下一步;u+=1<ABS(a k);a=k;断裂)}哈斯勒5月13日2015

交叉裁判

囊性纤维变性。A140799A081145.

也见A000 5228A030124A037 257A037 258A037 259A061577A257941A257944.

语境中的顺序:A227 133 A17088 A4463*A09515 A310249 A310250

相邻序列:A140775 A14077 A140777*A140799 A140780 A140781A

关键词

容易诺恩

作者

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

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改10月16日13:51 EDT 2019。包含328093个序列。(在OEIS4上运行)