|
|
A321515型 |
| 条目和等于n的非负整数矩阵的数量,没有零行或零列,并且有不同的行和列。 |
|
6
|
|
|
1, 1, 3, 19, 137, 1209, 12899, 160395, 2276229, 36323217, 643848837, 12551081501, 266868756473, 6146455542737, 152439235077709, 4050427673024753, 114791270281213209, 3456412742412516649, 110191808168628510207, 3708004806262196242699, 131339701217968663631857
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
示例
|
a(3)=19矩阵:
[3] [2 1] [1 2]
.
[2] [2 0] [1 1] [1 1] [1] [1 0] [1 0] [0 2] [0 1] [0 1]
[1] [0 1] [1 0] [0 1] [2] [1 1] [0 2] [1 0] [2 0] [1 1]
.
[1 0 0] [1 0 0] [0 1 0] [0 1 0] [0 0 1] [0 0 1]
[0 1 0] [0 0 1] [1 0 0] [0 0 1] [1 0 0] [0 1 0]
[0 0 1] [0 1 0] [0 0 1] [1 0 0] [0 1 0] [1 0 0]
|
|
数学
|
multsubs[set_,k_]:=如果[k==0,{{}},连接@@表[Prepend[#,set[[i]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
prs2mat[prs_]:=表[Count[prs,{i,j}],{i、Union[First/@prs]},{j、Union[Plast/@prs]}];
表[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@@#],Union[Last/@#]=Range[Max@@Last/@@#],UnsameQ@@prs2mat[#],UnnameQ@@Transpose[prs2mat[#]]&],{n,5}]
|
|
黄体脂酮素
|
seq(n)={my(R=向量v(n,m,Q(m,n,w->1/(1-y^w)+O(y*y^n)));for(i=2,#R,R[i]-=i*R[i-1]);Vec(1+vecsum(vecsum(R)))}\\安德鲁·霍罗伊德2024年1月24日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|