%I#28 2024年4月25日09:11:15

%S 1,1,0,0,1,0,0,2,2,1,5,12,16,28,6512837478990200640868469，

%电话：176443682677305163195345798735302156937933608217218566，

%电话：1554817633578893722698472157755230343071238747603060163226465535702218697822430724

%N半长N的Dyck路径数，相邻峰的高度相差正好一，第一个和最后一个峰的高度为一。

%H Alois P.Heinz，n的表格，n=0..2764的a（n）</a>

%H Alois P.Heinz，a（16）=237条路径的动画</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Lattice_path#计数_晶格路径“>计算晶格路径</a>

%e a（4）=1：/\

%e/\/\/\

%e、/\

%e a（7）=2:/\/\/\/\/\

%e/\/\/\/\/\/\/\/\/\。

%p b:=proc（x，y，h，t）选项记住`如果`（y<0或y>x，0，

%p`if`（x=0，`if`）（h>1,0,1），`if'（t=1和abs（y-h）<>1,0，

%p b（x-1，y-1，`如果`（t=1，y，h），0））+b（x-l，y+1，h，1））

%p结束：

%pa:=n->b（2*n，0$3）：

%p序列（a（n），n=0..50）；

%p#第二个Maple程序：

%p b:=proc（x，y）选项记忆；（t->

%p`if`（x=t，1，`if`）（x<t，0，b（x-1-2*y，y+1）+加法（add(

%p b（x-1-2*i，y+j），j=[-1，1]），i=1..y-1）））（3*y-2）

%p结束：

%p a:=n->`如果`（n=0，1，b（2*n-1，1））：

%p序列（a（n），n=0..50）；

%Y参见A000108、A371705、A371726、A371926。

%K非n

%0、8

%A _Alois P.Heinz，2024年4月5日