%I#11 2018年1月15日21:05:22
%S 1,-1,0,0,0,0,0,1,0,0-0,0,
%T 0,0,1,-1,0,0,0,0,0'0,00,0',0,0,
%U 0,0,0,1,0,0,0,0
%N乘积{k>=1}的展开(1-x^(k^3))。
%C将n划分成偶数个不同立方体的分区数与将n划分为奇数个不同立方的分区数之差_伊利亚·古特科夫斯基,2018年1月15日
%H Vaclav Kotesovic,<a href=“/A279484/b279484.txt”>n的表,a(n)表示n=0..100000</a>
%t nn=10;系数列表[系列[积[(1-x^(k^3)),{k,nn}],{x,0,nn^3}],x]
%t nmax=1000;nn=地板[nmax^(1/3)]+1;poly=常量数组[0,nn^3+1];聚[1]]=1;聚[2]]=-1;poly[[3]]=0;Do[Do[poly[[j+1]]-=多边形[[j-k^3+1]],{j,nn^3,k^3,-1}];,{k,2,nn}];取[poly,nmax+1]
%Y参考A010815,A276516。
%Y参考A000009、A033461、A279329。
%Y参考A279486。
%K符号
%O 0(零)
%A _Vaclav Kotesovec_,2016年12月13日
|