|
|
A309280型
|
| T(n,k)是(1/k)乘以[n]的所有子集的元素之和,其和可被k整除;三角形T(n,k),n>=1,1<=k<=n*(n+1)/2,按行读取。
(历史;已发布版本)
|
|
|
#32通过N.J.A.斯隆2019年10月4日星期五13:10:15 EDT |
|
|
|
#31通过Jean-François Alcover公司2019年10月4日星期五12:26:45 EDT |
|
|
|
#30通过Jean-François Alcover公司2019年10月4日星期五12:26:40 EDT |
| 数学
|
b[n_,m_,s_]:=b[n,m,s]=如果[n==0,{如果[s==0,1,0],0},b[n-1,m,s]+函数[g,g+{0,g[[1]]n}][b[n-l,m,Mod[s+n,m]]];
T[n,k_]:=b[n,k,0][2]]/k;
表[T[n,k],{n,1,10},{k,1,n(n+1)/2}]//展平(*Jean-François Alcover公司2019年10月4日之后阿洛伊斯·海因茨*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#29通过阿洛伊斯·海因茨2019年7月29日星期一18:31:54 EDT |
|
|
|
#28通过阿洛伊斯·海因茨2019年7月29日星期一18:31:51 EDT |
|
|
|
#27通过阿洛伊斯·海因茨美国东部时间2019年7月24日星期三11:18:25 |
|
|
|
#26通过阿洛伊斯·海因茨2019年7月24日星期三10:58:55 EDT |
| MAPLE公司
|
#第二个Maple项目:
b: =proc(n,s)选项记忆`如果`(n=0,则添加(s/d*x^d,
d=数值[除数](s),b(n-1,s)+b(n-1,s+n))
结束时间:
T: =n->(p->seq(系数(p,x,i),i=1..度(p)))(b(n,0)):
seq(T(n),n=1..10);
|
| 状态
|
经核准的
编辑
|
|
|
|
#25通过阿洛伊斯·海因茨2019年7月24日星期三10:35:20 EDT |
|
|
|
#24通过阿洛伊斯·海因茨2019年7月24日星期三10:35:18 EDT |
| 关键词
|
非n,看,标签,新的
|
| 状态
|
经核准的
编辑
|
|
|
|
#23通过阿洛伊斯·海因茨2019年7月21日星期日12:28:18 EDT |
|
|
|