搜索： a321230-编号：a321230
|
| |
|
|
A203986型
|
| 平方数组A（n，k），n>=0，k>=0（通过反对偶读取）：A（n、k）是{1,2，…，k*n}划分为具有相同和的n个k元素子集的数目。 |
|
+10
5
|
|
|
|
1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 4, 2, 1, 0, 1, 1, 1, 0, 32, 0, 1, 0, 1, 1, 1, 29, 305, 392, 11, 1, 0, 1, 1, 1, 0, 4331, 0, 6883, 0, 1, 0, 1, 1, 1, 263, 63261, 2097719, 3245664, 171088, 84, 1, 0, 1, 1, 1, 0, 1025113, 0, 2549091482, 0, 5661874, 0, 1, 0, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,24
|
|
|
评论
|
如果n>1且k>0且（k=1或k*（n-1）mod 2=1），则A（n，k）=0。
每个子集的元素和是k*（k*n+1）/2。
|
|
|
链接
|
|
|
|
例子
|
A（0,0）=1。
A（1,1）=1:{1}。
A（2,2）=1:{1,4}，{2,3}。
A（3,3）=2:{1,5,9}，{2,6,7}，}3,4,8}；{1,6,8}, {2,4,9}, {3,5,7}.
A（4,2）=1:{1,8}，{2,7}，}3,6}，[4,5}。
A（2,4）=4:{1,2,7,8}，{3,4,5,6}；{1,3,6,8}, {2,4,5,7}; {1,4,5,8}, {2,3,6,7}; {1,4,6,7}, {2,3,5,8}.
方阵A（n，k）开始：
1, 1, 1, 1, 1, 1, 1, ...
1, 1, 1, 1, 1, 1, 1, ...
1, 0, 1, 0, 4, 0, 29, ...
1, 0, 1, 2, 32, 305, 4331, ...
1, 0, 1, 0, 392, 0, 2097719, ...
1, 0, 1, 11, 6883, 3245664, 2549091482, ...
|
|
|
MAPLE公司
|
b： =proc（）选项记住；局部i，j，t，k，m；m： =参数[nargs-1]；k： =参数[nargs]；如果args[1]=0，则`if`（nargs=3，1，b（args[t]$t=2..nargs））elif args[1]<1，则0加上（`if`[args[j]<m，0，b（sort（[seq（args[1]-`if'（i=j，m+1/97，0），i=1..nargs-2）]）[]，m-1，k）），j=1.nargs-2）fi-end：
A： =（n，k）->`如果`（n=0或k=0，1，b（（k*（n*k+1）/2+k/97）$n，k*n，k！）：
seq（seq（A（n，d-n），n=0..d），d=0..10）；
|
|
|
数学
|
b[args_List]：=b[args]=模块[{nargs=Length[args]，k=args[[-1]]，m=args[2]]}，其中[args[1]]==0，如果[nargs=3，1，b[args[[2；；nargs]]]，args[[1]]<1，0，True，Sum[If[args[j]]<m，0，b[Join[Sort[Table[args[2]]-如果[i=j，m+1/97，0]，{i，1，nargs-2}]]，{m-1，k}]]；A[n_，k_]：=如果[n==0||k==0，1，b[Join[Array[（k*（n*k+1）/2+k/97）&，n]，{k*n，k}]/n！]；表[表[A[n，d-n]，｛n，0，d｝]，｛d，0，10｝]//压扁(*Jean-François Alcover公司2015年1月21日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A321282型
|
| 将[n^2]划分为具有相同总和的n个子集的集合分区数。 |
|
+10
2
|
| |
|
|
|
抵消
|
0.4
|
|
|
链接
|
|
|
|
公式
|
|
|
|
例子
|
a（3）=9:12345|69|78、1239|456|78、1248|357|69、1257|348|69、1347|258|69，1356|249|78、159|2346|78、168|249| 357、159|267|348。
|
|
|
MAPLE公司
|
b： =proc（l，n）选项记忆`如果`（n=0，1，加上（`if`（n>l[j]，
0，b（排序（子图（j=l[j]-n，l）），n-1），j=1..nops（l））
结束时间：
a： =n->b（[n*（1+n^2）/2$n]，n^2，/n！：
seq（a（n），n=0..5）；
|
|
|
数学
|
b[l_，n_]：=b[l，n]=如果[n==0，1，总和[If[n>l[j]]，0，b[Sort[ReplacePart[l，j->l[[j]]-n]]，n-1]]，{j，1，Length[l]}]；
a[n_]：=b[表[n（1+n^2）/2，{n}]，n^2]/n！；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n，更多
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.006秒内完成
|
