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

 

标志

请做一个捐款保持OEIS运行。我们现在已经第五十五岁了。在过去的一年里,我们增加了12000个新的序列,达到了8000个。引文(常说“感谢OEIS”)。我们需要筹集资金雇人管理提交,这将减少我们编辑的负担,加快编辑。
其他方式捐赠

提示
问候整数序列的在线百科全书!)
A240566 最早的非负增长序列,没有第三个常数的5项子序列。 十二
0, 1, 2,3, 5, 7,11, 15, 16,27, 47, 48,64, 95, 175,196, 211, 212,214, 247, 249,252, 398, 839,1002, 1014, 1016,1035, 1036, 1037,1051, 1054, 1072,1121, 1143, 1146,1121, 1143, 1146,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

1,3

评论

对于正序,参见A240567,这个序列加上1。有没有一种简单的方法来确定这个序列,就像在没有3项算术级数的情况下一样?

链接

n,a(n)n=1…50的表。

例子

在(0, 1, 2,3, 5, 7)之后,排除数字10,因为否则子序列(0, 2, 3,5, 10)将具有连续的第一、第二和第三差异(2, 1, 2,5)、(-1, 1, 3)和(2, 2),这是恒定的,因此被排除。

Mathematica

t= { 0, 1, 2,3 };do[s=表[追加[i,n],{i,子集[t,{ 4 }] }];如果[!成员[Valt[Tab[[I,4 ],{ I,S}] ],0 ],AppEdtoto[t,n],{n,4, 5000 };t

黄体脂酮素

(帕里)A240566(n, show=0, L=5, o=3, v=[0], D=v->v[2..-1]-v[1..-2])={ my(d, m); while( #v<n, show&&print1(v[#v]", "); v=concat(v, v[#v]); while( v[#v]++, forvec( i=vector(L, j, [if(j<L, j, #v), #v]), d=D(vecextract(v, i)); m=o; while(m--&&#Set(d=D(d))>1, ); #Set(d)>1||next(2), 2); break)); v[#v]} \\哈斯勒1月12日2016

交叉裁判

囊性纤维变性。A240567(从1开始)。

无三项AP:A000 5836(>0)A000 327(>0);

无四项AP:A2400(>0)A24055(>0);

无5项AP:A02065(>0)A020655(>0);

无6项AP:A020665(>0)A000 5838(>0);

无7项AP:A020667(>0)A020688(>0);

无8项AP:A020699(>0)A020660(>0);

无9项AP:A020661(>0)A020662(>0);

无10项AP:A020663(>0)A020664(>0)。

囊性纤维变性。A2400A24055用于避免具有第二常数差的4项子序列的序列。

语境中的顺序:A209038 A182803 A10632*A090696 A260794A A775 76

相邻序列:A240553 A24055 A24055*A240567 A24055 A24055

关键词

诺恩

作者

诺德,APR 09 2014

地位

经核准的

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

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

最后修改12月10日05:42 EST 2019。包含329885个序列。(在OEIS4上运行)