登录

OEIS由OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A238432型 避免等距三项算术级数的n的合成数。 三 1, 1, 2, 3, 7, 13, 22, 41, 74, 133, 233, 400, 714, 1209, 2091, 3591, 6089, 10316, 17477, 29413, 49515, 82474, 137659, 228461, 377936, 623710, 1025445, 1680418, 2746242, 4474654, 7270430, 11774128, 19020802, 30640812, 49222427, 78857338, 126033488, 200872080 (列表；图表；参考；听；历史；文本；内部格式) 抵消 0,3 链接 Joerg Arndt和Alois P.Heinz，n=0..45时的n，a（n）表 例子 a（5）=13的此类成分为： 01: [ 1 1 2 1 ] 02: [ 1 1 3 ] 03: [ 1 2 1 1 ] 04: [ 1 2 2 ] 05：[1 3 1] 06: [ 1 4 ] 07: [ 2 1 2 ] 08: [ 2 2 1 ] 09: [ 2 3 ] 10: [ 3 1 1 ] 11: [ 3 2 ] 12: [ 4 1 ] 13: [ 5 ] 请注意，第一和第三个组合包含级数1、1、1，但位置不相等。 MAPLE公司 b： =proc（n，l）局部j； 对于j从2到iquo（nops（l）+1，2）do 如果l[1]-l[j]=l[j]-l[2*j-1]，则返回0 fiod； `如果`（n=0，1，加（b（n-i，[i，l[]]），i=1..n）） 结束时间： a： =n->b（n，[]）： seq（a（n），n=0..20）； 数学 b[n_，l]：=b[n，l]=模[{j}，对于[j=2，j<=商[Length[l]+1，2]，j++，如果[l[[1]]-l[j]]==l[[j]-l[[2*j-1]]，返回[0]]]；如果[n==0，1，和[b[n-i，前缀[l，i]]，{i，1，n}]]； a[n]：=b[n，{}]； 表[a[n]，{n，0，20}](*Jean-François Alcover公司，2018年5月21日，翻译自枫叶*） 交叉参考 囊性纤维变性。A238433型（与分区相同）。 囊性纤维变性。238569加元（避免任何三项算术级数的作文）。 囊性纤维变性。A238423型（避免算术级数中三个连续部分的作文）。 囊性纤维变性。A238686型. 上下文中的序列：A049887美元 A048216号 A003509号*A238423型 A133370型 A237283号 相邻序列：A238429型 A238430型 A238431型*A238433型 A238434型 A238435型 关键词 非n 作者 乔格·阿恩特和阿洛伊斯·海因茨2014年3月1日 状态 经核准的

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

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

上次修改时间：2024年4月19日07:11 EDT。包含371782个序列。（在oeis4上运行。）