OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A318951型 按行读取的数组:T(n,k)是在行和列置换下具有非负整数项和行和k的非同构n X n矩阵的数目,(n>=1,k>=0)。 11
1, 1, 1, 1, 2, 1, 1, 4, 3, 1, 1, 6, 14, 5, 1, 1, 9, 44, 53, 7, 1, 1, 12, 129, 458, 198, 11, 1, 1, 16, 316, 3411, 5929, 782, 15, 1, 1, 20, 714, 19865, 145168, 96073, 3111, 22, 1, 1, 25, 1452, 95214, 2459994, 9283247, 1863594, 12789, 30, 1, 1, 30, 2775, 383714, 30170387, 537001197, 833593500, 42430061, 53836, 42, 1 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,5
链接
安德鲁·霍罗伊德,n=1..1275时的n,a(n)表
例子
数组开始:
================================================================
否|0 1 2 3 4 5 6
---|------------------------------------------------------------
1 | 1 1 1 1 1 1 1 ...
2 | 1 2 4 6 9 12 16 ...
3 | 1 3 14 44 129 316 714 ...
4 | 1 5 53 458 3411 19865 95214 ...
5 | 1 7 198 5929 145168 2459994 30170387 ...
6 | 1 11 782 96073 9283247 537001197 19578605324 ...
7 | 1 15 3111 1863594 833593500 1890 765 34322 23361610029905。。。
...
数学
permcount[v_List]:=模块[{m=1,s=0,k=0,t},对于[i=1,i<=长度[v],i++,t=v[i]];k=如果[i>1&&t==v[[i-1]],k+1,1];m*=t*k;s+=t];s/m] ;
K[q_List,t_,K_]:=系列系数[1/乘积[g=GCD[t,q[[j]]];(1-x^(q[[j]]/g)^g,{j,1,长度[q]}],{x,0,k}];
RowSumMats[n_,m_,k_]:=模块[{s=0},Do[s+=permcount[q]*SeriesCoefficient[Exp[Sum[k[q,t,k]/t*x^t,{t,1,n}]],{x,0,n}],{q,整数分区[m]}];s/m!];
表[RowSumMats[n-k,n-k,k],{n,1,11},{k,n-1,0,-1}]//展平(*Jean-François Alcover公司2018年9月12日之后安德鲁·霍罗伊德*)
黄体脂酮素
(PARI)
permcount(v)={my(m=1,s=0,k=0,t);对于(i=1,#v,t=v[i];k=if(i>1&&t==v[i-1],k+1,1);m*=t*k;s+=t);s!/m}
K(q,t,K)={polcoeff(1/prod(j=1,#q,my(g=gcd(t,q[j]));(1-x^(q[j]/g)+O(x*x^K))^g),K)}
RowSumMats(n,m,k)={my(s=0);forpart(q=m,s+=permcount(q)*polcoeff(exp(sum(t=1,n,k(q,t,k)/t*x^t)+O(x*x^n)),n));s/m!}
对于(n=1,8,对于(k=0,6,打印1(RowSumMats(n,n,k),“,”));打印)
交叉参考
第2..6行是A002620型(n+2),A058389号A058390型A058391号A058392号.
囊性纤维变性。邮编:304942A306017型.
关键词
非n
作者
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年5月28日18:29。包含372919个序列。(在oeis4上运行。)