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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A248641型 不包含4项等距子序列(a(n+k*d)的词汇最早正序列;k=0,1,2,3)。
1、1、1、2、1、1、2、1、1、2、2、3、1、1、1、2、2、2、3、3、1、3、1、1、1、2、2、1、2、2、2、3、3、2、3、2、3、2、3、3、5、1、1、1、3、1、1、3、1、1、1、2、2、2、3、1、2、1、1、1、2、2、2、2、3、4、2、3、2,2,2,3,3,1,3,3,5,5,4,1,1,1,3,1,2,3,1,5,3,2,6,1,3,2,2,3,2,1,3,1,1,1,1 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,4
评论
请参见A248625型获取更多信息、链接和示例。
它是A229037号其中,3项替换为4项(并使用“领先指数”0代替1)
链接
塞巴斯蒂安·帕尔库克斯,n=0..10000时的n,a(n)表
黄体脂酮素
(PARI)a=[];对于(n=1190,a=concat(a,1));while(hasAP(a,4),a[#a]++));a\\请参阅A248625型用于hasAP()。
(SageMath)
cpdef FourFree(int n):
cdef int i、r、k、s、L1、L2、L3
cdef列表L,Lb
cdef集合b
L=[1,1,1]
对于范围(3,n)中的k:
b=设置()
对于范围(k)内的i:
如果3*((k-i)/3)==k-i:
r=(k-i)/3
L1、L2、L3=L[i]、L[i+r]、L[i+2*r]
s=3*(L2-L1)+L1
如果s>0且L3==2*(L2-L1)+L1:
b.添加
如果1不在b中:
L.附录(1)
其他:
Lb=列表(b)
磅分拣()
对于t(单位:磅):
如果t+1不在b中:
L追加(t+1)
打破
返回L
交叉参考
关键词
非n,容易的
作者
M.F.哈斯勒2014年10月10日
状态
经核准的

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

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

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