Alois P.Heinz，<a href=“/A171967号/b171967号_1.txt“>n、a（n）表（n=0..3500）</a>

编辑

经核准的

OEIS服务器：已安装新的b文件b171967.txt。旧的b文件现在是b171967_1.txt。

Alois P.Heinz，<a href=“/A171967号/b171967号_1.txt“>n表，n=0时为a（n）。。10003500</a>

经核准的

编辑

提出

经核准的

编辑

提出

$RecursionLimit=1000；b[n_，i_，t_]：=b[n，i，t]=如果[n==0，如果[t！=0，1，0]，如果[i<1，0，b[n、i-1，t]+如果[i>n，0，b[n-i，i，t+（2*Mod[i，2]-1）]]；a[n]：=b[n，n，0]；表[a[n]，{n，0，80}](*Jean-François Alcover公司2015年6月30日之后阿洛伊斯·海因茨*)

经核准的

编辑

编辑

经核准的

a（n）=和{k<>0}A240009型（n，k）-阿洛伊斯·海因茨2014年3月30日

Alois P.Heinz，<a href=“/A171967号/b171967.txt“>n表，n=0..1000时为a（n）</a>

b： =proc（n，i，t）选项记忆`如果`（n=0，

`如果`（t<>0，1，0），`如果`（i<1，0，b（n，i-1，t）+

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

结束时间：

a： =n->b（n$2,0）：

seq（a（n），n=0..80）#阿洛伊斯·海因茨2014年3月30日

0,1, 2, 2, 5, 5, 10, 12, 20, 25, 37, 49, 68, 90, 119, 158, 206, 269, 344, 446, 565, 722, 908, 1148, 1435, 1795, 2229, 2765, 3416, 4204, 5164, 6315, 7717, 9380, 11406, 13793, 16692, 20093, 24203, 29012, 34799, 41552, 49636, 59059, 70279, 83341, 98822

0,2三

经核准的

编辑