%I#24 2016年2月25日12:27:57

%S 1,524524877756200711504301295867642608501138355914222027660，

%电话：12513844842339741519760163186564770917385358723138，

%电话：243443882216121036733720952548940886486786377745567157052228550736610570835499716578578298705683198672

%N 3 X 2 X N格的线性扩张数。

%D Stanley，R.，枚举组合数学，第2卷，命题7.10.3和第1卷，分配格中的第3.5节链。

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

%p b：=proc（u，v，w，x，y，z）选项记忆；

%p`if`（{u，v，w，x，y，z}={0}，1，

%p`if`（u>v和u>x，b（u-1，v，w，x，y，z），0）+

%p`if`（v>w和v>y，b（u，v-1，w，x，y，z），0）+

%p`如果`（w>z，b（u，v，w-1，x，y，z），0）+

%p`if`（x>y，b（u，v，w，x-1，y，z），0）+

%p`如果`（y>z，b（u，v，w，x，y-1，z），0）+

%p`如果`（z>0，b（u，v，w，x，y，z-1），0））

%p端：

%pa:=n->b（n$6）：

%p序列（a（n），n=0..12）；#_Alois P.Heinz，2012年4月26日

%tb[u，v，w，x，y，z]：=b[u、v、w、x、y、z]=

%t如果[并集[｛u，v，w，x，y，z｝]=＝｛0｝，1，

%t如果[u>v&&u>x，b[u-1，v，w，x，y，z]，0]+

%t如果[v>w&&v>y，b[u，v-1，w，x，y，z]，0]+

%t如果[w>z，b[u，v，w-1，x，y，z]，0]+

%t如果[x>y，b[u，v，w，x-1，y，z]，0]+

%t如果[y>z，b[u，v，w，x，y-1，z]，0]+

%t如果[z>0，b[u，v，w，x，y，z-1]，0]]；

%t a[n]：=b[n，n，n；表[a[n]，{n，0，12}]（*_Jean-François Alcover_，2015年5月29日，在_Alois P.Heinz_*之后）

%Y参考A114717。

%K nonn，硬

%0、2

%A _米奇·哈里斯，2005年12月27日；2006年5月25日更正

%E a（6）-a（11）摘自_Alois P.Heinz，2012年4月26日