登录
A024940号
将n划分为不同三角形数的数目。
43
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
抵消
0,11
链接
阿洛伊斯·海因茨,n=0..10000时的n,a(n)表(T.D.Noe的前1001个术语)
配方奶粉
对于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)。 -Reinhard Zumkeller公司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。 -瓦茨拉夫·科特索维奇2017年1月2日
G.f.:产品{i>=1}(1+x^A000217号(i) )。 -R.J.马塔尔2020年9月20日
例子
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
--Reinhard Zumkeller公司2013年6月28日
关键词
非n
状态
经核准的