提出

经核准的

编辑

提出

b[n，i，j，p，t]：=b[n、i、j、p、t]=

如果[n==0，1，如果[i==0||t==1&p==1，0，i*b[n-1，i-1，j，1-p，p]]+

如果[j==0||t==1&&p==0，0，j*b[n-1，i，j-1，1-p，1-p]]；

a[n_]：=b[n，楼层[n/2]，天花板[n/2],1,0]；

表[a[n]，{n，0，25}](*Jean-François Alcover公司，2021年8月30日，之后阿洛伊斯·海因茨*)

经核准的

编辑

编辑

经核准的

a（0）=1：空置换。

a（1）=1:1。

a（2）=1∶12。

a（3）=2:123321。

a（4）=8:12341432224132431231431421421334231。

a（5）=36:12345、12543、13524、13542、14325、14523、15324、15342、24135、24153、24315、24351、24513、24531、31524、31542、32145、32541、34125、34521、35124、35142、42135、42153、42315、42351、42513、42531、51324、51342、52143、52341、53124、53142、54123、54321。

Alois P.Heinz，<a href=“/A285672型/b285672.txt“>n表，n=0..466时为a（n）</a>

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

`如果`（i=0或t=1且p=1，0，i*b（n-1，i-1，j，1-p，p））+

`如果`（j=0或t=1且p=0，0，j*b（n-1，i，j-1，1-p，1-p））

结束时间：

a： =n->b（n，地板（n/2），天花板（n/2，1，0）：

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

分配编号 属于 排列 第页 属于[n个]避免 连续的 古怪的 总和 我+第页(我), (我+1)+第页(我+1)对于 全部的 阿洛伊斯我 P（P）.亨氏（Heinz）在里面[n个-1].

1, 1, 1, 2, 8, 36, 180, 1008, 6336, 46080, 374400, 3369600, 32659200, 344736000, 3886444800, 47348582400, 611264102400, 8442272563200, 122595843686400, 1890952003584000, 30510694932480000, 520011800985600000, 9231875243458560000, 172292221923655680000

0,4

囊性纤维变性。A199660型,A231601型.

分配

非n

阿洛伊斯·海因茨2017年4月24日

经核准的

编辑

分配给Alois P.Heinz

分配

经核准的