|
|
A306017型 |
| 权重为n的非同构多集分区的数量,其中所有部分的大小都相同。 |
|
58
|
|
|
1, 1, 4, 6, 17, 14, 66, 30, 189, 222, 550, 112, 4696, 202, 5612, 30914, 63219, 594, 453125, 980, 3602695, 5914580, 1169348, 2510, 299083307, 232988061, 23248212, 2669116433, 14829762423, 9130, 170677509317, 13684, 1724710753084, 2199418340875, 14184712185, 38316098104262
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
权重为n的多集划分是有限非空多集的有限多集,其大小之和为n。
所有行和相等且总和n直到行和列排列的非负整数矩阵的数目-安德鲁·霍罗伊德2018年9月5日
另外,权重为n的非同构多集划分的数量,其中每个顶点出现的次数相同。对于n=4,这17个多集分区的非同构代表为:
{{1,1,1,1}}
{{1,1,2,2}}
{{1,2,3,4}}
{{1},{1,1,1}}
{{1},{1,2,2}}
{{1},{2,3,4}}
{{1,1},{1,1}}
{{1,1},{2,2}}
{{1,2},{1,2}}
{{1,2},{3,4}}
{{1},{1},{1,1}}
{{1},{1},{2}}
{{1},{2},{1,2}}
{{1},{2},{3,4}}
{{1},{1},{1},{1}}
{{1},{1},{2},{2}}
{{1},{2},{3},{4}}
(结束)
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(4)=17个多集分区的非同构代表:
{{1,1,1,1}}
{{1,1,2,2}}
{{1,2,2,2}}
{{1,2,3,3}}
{{1,2,3,4}}
{{1,1},{1,1}}
{{1,1},{2,2}}
{{1,2},{1,2}}
{{1,2},{2,2}}
{{1,2},{3,3}}
{{1,2},{3,4}}
{{1,3},{2,3}}
{{1},{1},{1},{1}}
{{1},{1},{2},{2}}
{{1},{2},{2},{2}}
{{1},{2},{3},{3}}
{{1},{2},{3},{4}}
|
|
数学
|
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!];
a[n_]:=a[n]=如果[n==0,1,如果[PrimeQ[n],2PartitionsP[n]、Sum[RowSumMats[n/d,n,d],{d,Divisors[n]}]];
|
|
黄体脂酮素
|
a(n)={sumdiv(n,d,RowSumMats(n/d,n,d))}\\安德鲁·霍罗伊德2018年9月5日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|