|
| |
|
| A214722号 |
| 实心标准杨氏表[[{n}^k]，[n]]的数字A（n，k）；方阵A（n，k），n>=0，k>=1，由反对偶读取。 |
|
9
|
|
|
|
1, 1, 1, 1, 2, 2, 1, 3, 16, 5, 1, 4, 91, 192, 14, 1, 5, 456, 5471, 2816, 42, 1, 6, 2145, 143164, 464836, 46592, 132, 1, 7, 9724, 3636776, 75965484, 48767805, 835584, 429, 1, 8, 43043, 91442364, 12753712037, 55824699632, 5900575762, 15876096, 1430
(列表；桌子；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,5
|
|
|
链接
|
|
|
|
例子
|
方阵A（n，k）开始：
1, 1, 1, 1, 1, 1, ...
1, 2, 3, 4, 5, 6, ...
2、16、91、456、2145、9724、。。。
5、192、5471、143164、3636776、91442364、。。。
14、2816、464836、75965484、12753712037、2214110119572、。。。
42, 46592, 48767805, 55824699632, 70692556053053, 98002078234748974, ...
|
|
|
MAPLE公司
|
b： =proc（l）选项记忆；局部m；m： =nops（l）；
`如果`（{map（x->x[]，l）[]}={0}，1，加（add（`if`（l[i][j]>
`如果`（i=m或nops（l[i+1]）<j，0，l[i+1][j]）和l[i][j]>
`如果`（nops（l[i]）=j，0，l[i][j+1]），b（底土（i=底土(
j=l[i][j]-1，l[i]），l），0），j=1..nops（l[i）），i=1..m）
结束时间：
A： =（n，k）->b（[[n$k]，[n]]）：
seq（seq（A（n，1+d-n），n=0..d），d=0..10）；
|
|
|
数学
|
b[l_List]：=b[l]=With[{m=Length[l]}，如果[Union[Flatten[l]]=={0}，1，Sum[Sum[If[l[i，j]]>如果[i==m||Length[1[i+1]]]<j，0，l[i+1，j]]&&l[[i，j]]>If[Length[Cl[i]]]]==j，0[[i]]，j->l[[i，j]-1]]]，0]，{j，1，长度[l[i]]}]，{i，1，m}]]]；a[n_，k_]：=b[{数组[n&，k]，{n}}]；表[表[a[n，1+d-n]，{n，0，d}]，{d，0，10}]//扁平(*Jean-François Alcover公司，2013年12月17日，翻译自枫叶*）
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
