显示1-1个结果(共1个)。
第页1
1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0, 2, 3, 1, 1, 3, 2, 1, 4, 3, 0, 3, 3, 2, 4, 3, 3, 3, 2, 3, 3, 2, 4, 6, 4, 2, 5, 4, 2, 6, 5, 3, 7, 6, 3, 5, 5, 5, 6, 5, 4, 7, 7, 6, 8, 6, 5, 9, 7, 4, 9, 9, 6, 10, 9, 4, 9, 10, 8, 11, 11, 9, 10, 10, 9, 10, 10, 9, 14, 14, 7, 14, 14, 7, 15, 15, 8, 15, 17, 13
配方奶粉
对于n>0:a(n)=b(n,1),其中b(n、k)=如果n>k*(k+1)/2,则b(n-k*(k+1)/2、k+1)+b(n和k+1)else(如果n=k*(k+1)/2则1 else 0)。 -莱因哈德·祖姆凯勒2003年8月26日
a(n)~exp(3*Pi^(1/3)*((sqrt(2)-1)*Zeta(3/2))^(2/3)*n^(1/3)/2^(4/3))*((sqrt(2)-1)*Zeta(3/2))^(1/3)/(2^(5/3)*sqrt(3)*Pi^(1/3)*n^(5/6))。 -瓦茨拉夫·科特索维奇2017年1月2日
例子
a(31)计算这些分区:[28,3],[21,10],[21,6,3,1],[15,10,6]克拉克·金伯利2014年3月9日
数学
删除[系数列表[系列[产品[(1+x^(k*(k+1)/2))),{k,1,15}],{x,0,102}],x],1]
(*也*)
t=表[n(n+1)/2,{n,1200}];p[n_]:=整数分区[n,All,t];表[p[n],{n,0,12}](*显示无限制分区*)
d[n_]:=选择[p[n],最大[Length/@Split@#]==1&];表[d[n],{n,1,31}](*显示严格分区*)
表[长度[d[n]],{n,1,70}](*克拉克·金伯利2014年3月9日*)
nmax=100;nn=楼层[Sqrt[8*nmax+1]/2]+1;poly=常量数组[0,nn*(nn+1)/2+1];聚[1]]=1;poly[2]]=1;Do[Do[poly[[j+1]]+=多边形[[j-k*(k+1)/2+1]],{j,nn*(nn+1)/2,k*(k+1)/2、-1}];,{k,2,nn}];取[poly,nmax+1](*瓦茨拉夫·科特索维奇2016年12月10日*)
黄体脂酮素
(哈斯克尔)
a024940=p$tail a000217_list,其中
p _ 0=1
p(k:ks)m=如果m<k,则0,否则p ks(m-k)+p ks m
搜索在0.004秒内完成
|