|
|
A092288美元 |
| 行读取的三角形:T(n,k)=n的所有平面分区中k部分的计数。 |
|
5
|
|
|
1, 4, 1, 11, 2, 1, 28, 7, 2, 1, 62, 15, 5, 2, 1, 137, 38, 13, 5, 2, 1, 278, 76, 28, 11, 5, 2, 1, 561, 164, 60, 26, 11, 5, 2, 1, 1080, 316, 124, 52, 24, 11, 5, 2, 1, 2051, 623, 244, 108, 50, 24, 11, 5, 2, 1, 3778, 1156, 469, 208, 100, 48, 24, 11, 5, 2, 1, 6885, 2160, 886, 404, 194, 98, 48, 24, 11, 5, 2, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
三角形开始:
1;
4, 1;
11, 2, 1;
28, 7, 2, 1;
62, 15, 5, 2, 1;
137, 38, 13, 5, 2, 1;
...
|
|
数学
|
表[Length/@Split[Sort[Flatten[planepartitions[k]]],{k,12}]
|
|
黄体脂酮素
|
(PARI)A092288号_行(n,c=向量(n),m,k)={对于(i=1,#n=平面分区(n);对于(j=1,#m=n[i],对于(i=1,#k=m[j],c[k[i]]++));c}\\参见A091298号用于PlanePartitions()。有关更高效的代码,请参见下文。
M92288=[];A092288号(n,k,L=0)={n>1||return(if(L,[n,n==k],n==k));if(#L&#L<3,my(j=集合搜索(M92288,[[n,k,L],[]],1);j<=#M92288&&M92288-[j][1]=[n,k S=[0,0],t);对于(m=1,n,my(p=if(L,select(p->vecmin(L-Vecrev(p,#L))>=0,分区(m,L[1],#L=A092288号(n-m,k,Vecrev(P[i]));S+=[t[1],t[1]*c(P[i])+t[2],S+=[#P,vecsum(应用(c,P))]);如果(L,#L<3&&M92288=集合并(M92288,[[n,k,L],S]]);S、 S[2])}\\M.F.哈斯勒2018年9月26日
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|