提出

经核准的

编辑

提出

b[x_，y_]：=b[x，y]=如果[y>x|y<0，{0，0}，如果[x==0，{1，1}，和[Function[p，p+{0，p[1]]}][b[x-j，y]+b[x、y-j]]，{j，1，4}]]；

a[n]：=b[n，n][[2]]；

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

经核准的

编辑

编辑

经核准的

a（n）~c*d^n/sqrt（n），其中d=8.84734830841870961487278801886633962039798…是方程4+4*d-8*d^2-8*d*3+d^4=0的实根，c=0.43633259077568249345422000202799136319250347607927734138960545201547-瓦茨拉夫·科特索维奇2017年5月30日

经核准的

编辑

编辑

经核准的

b（x-j，y）+b（x，y-j）)) ,)),j=1..4））

经核准的

编辑

编辑

经核准的

Alois P.Heinz，<a href=“/286918元/b286918.txt“>n表，n=0..1000时为a（n）</a>

分配给Alois P.Heinz

使用从不超过对角线x=y的步骤{（k，0），（0，k）|0<k<=4}，在从（0,0）到（n，n）的所有晶格路径上求和的节点总数。

1, 3, 21, 159, 1257, 10046, 81811, 674184, 5605141, 46920874, 394949193, 3339464105, 28343082002, 241324470723, 2060357315568, 17632454524499, 151211115930880, 1299121121946684, 11179500360964780, 96344672766997340, 831385476662968094, 7182777882757416692

0,2

b： =proc（x，y）选项记忆`如果`（y>x或y<0，0，

`如果`（x=0，[1$2]，则添加（（p->p+[0，p[1]））(

b（x-j，y）+b（x，y-j）），j=1..4））

结束时间：

a： =n->b（n$2）[2]：

seq（a（n），n=0..25）；

囊性纤维变性。A175891号.

分配

非n

阿洛伊斯·海因茨2017年5月17日

经核准的

编辑