A238432-组织环境信息系统

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型（与分区相同）。

囊性纤维变性。A238569号（避免任何三项算术级数的作文）。

囊性纤维变性。238423元（避免算术级数中三个连续部分的作文）。

囊性纤维变性。A238686型.

上下文中的序列：A049887号 A048216号 A003509号*A238423型 A133370型 A237283号

相邻序列：A238429型 A238430型 A238431型*A238433型 A238434型 A238435型

关键词

非n

作者

乔格·阿恩特和阿洛伊斯·海因茨2014年3月1日

状态

经核准的