提出

经核准的

编辑

提出

h[n_]：=h[n]=如果[n<1，0，如果[IntegerQ@Sqrt[8n+1]，1+h[n-1]，h[n-1]]；

b[n_，i_，p_]：=b[n，i，p]=函数[t，如果[t（i+2）/3<n，0，如果[n==0，p！，b[n、i-1，p]+如果[t>n，0、b[n-t，i-1，p+1]]][（i（i+1）/2）]；

a[n]：=b[n，h[n]，0]；

a/@范围[0,73](*Jean-François Alcover公司2020年4月27日之后阿洛伊斯·海因茨*)

经核准的

编辑

编辑

经核准的

h： =proc（n）选项记忆`如果`（n<1，0，

`如果`（issqr（8*n+1），1+h（n-1），h（n-l））

结束时间：

b： =proc（n，i，p）选项记忆；（t->

`如果`（t*（i+2）/3<n，0，`如果`（n=0，p！，b（n，i-1，p）+

`如果`（t>n，0，b（n-t，i-1，p+1）））（（i*（i+1）/2））

结束时间：

a： =n->b（n，h（n），0）：

seq（a（n），n=0..73）#阿洛伊斯·海因茨2020年1月31日

Alois P.Heinz，<a href=“/A331843型/b331843.txt“>n，a（n）表，n=0..20000</a>

经核准的

编辑

提出

经核准的

编辑

提出

囊性纤维变性。A000217号,A023361号,A024940号,A032020型,A032021型,A032022号,A218396型,A219107型,A331844型,A331845型,A331846飞机,A331847飞机.

分配编号 属于 成分(命令 分区)属于 n个 进入之内 对于不同的 伊利亚三角形 古特科夫斯基数字.

1, 1, 0, 1, 2, 0, 1, 2, 0, 2, 7, 2, 0, 2, 6, 1, 4, 6, 2, 12, 24, 3, 8, 0, 8, 32, 6, 2, 13, 26, 6, 34, 36, 0, 32, 150, 3, 20, 50, 14, 54, 126, 32, 32, 12, 55, 160, 78, 122, 44, 174, 4, 72, 294, 36, 201, 896, 128, 62, 180, 176, 164, 198, 852, 110, 320, 159, 212, 414

0,5

<a href=“/index/Com#comp”>与合成相关的序列的索引条目</a>

a（10）=7，因为我们有[10]、[6、3、1]、[6,1、3]、[3,6,1]、[3、1,6]、[1、6,3]和[1、3,6]。

囊性纤维变性。A000217号,A023361号,A024940号,A032020型,A032021型,A032022号,A218396型,A219107型.

分配

非n

伊利亚·古特科夫斯基2020年1月29日

经核准的

编辑