%I#26 2018年10月4日20:04:38
%S 1,1,1,1,0,2,1,1,1,3,1,1,1,1,5,1,2,2,2,7,1,1,2,2,2,2,1,1,2,3,4,4,
%温度4,15,1,1,2,3,4,5,6,4,22,1,1,2,3,5,6,8,8,7,30,1,2,5,6,10,11,8,
%U 42,1,1,2,3,5,7,10,12,15,15,12,56
%N平方数组A(N,k),N>=0,k>=0(由反对偶读取):A(N、k)是N中不包含k的分区数。
%H Alois P.Heinz,反对角线n=0..140,扁平</a>
%第0列的F G.F:产品{m>0}1/(1-x^m)。
%列k>0的F G.F:(1-x^k)*产品{m>0}1/(1-x*m)。
%F A(n,0)=A000041(n);当k>0时,A(n,k)=A000041(n)-A000041(n-k)。
%F对于固定k>0,A(n,k)~k*Pi*exp(sqrt(2*n/3)*Pi)/(12*sqrt*编号:2/36)/n)_瓦茨拉夫·科特索维奇,2016年11月4日
%e方阵A(n,k)开始:
%e 1,1,1,1,1。。。
%e 1,0,1,1,1,1。。。
%e 2,1,1,2,2。。。
%e 3、1、2、2、3、3。。。
%e五、二、三、四、四、五。。。
%e 7、2、4、5、6、6。。。
%p A41:=n->`如果`(n<0,0,组合[numbpart](n)):
%p A:=(n,k)->A41(n)-`如果`(k>0,A41(n-k),0):
%p序列(序列(A(n,d-n),n=0..d),d=0..11);
%t A41[n_]:=如果[n<0,0,分区P[n]];A[n_,k_]:=A41[n]-如果[k>0,A41[n-k],0];表[A[n,d-n],{d,0,11},{n,0,d}]//Flatten(*_Jean-François Alcover_,2017年2月18日,翻译自Maple*)
%Y列k=0-10表示:A000041、A002865、A027336、A027377、A027388、A027399、A027340、A027341、A02734.2、A0273-43、A02734。
%Y行n=0-1给出:A000012,A060576。
%Y主对角线给出A000065(对于n>0)。
%K nonn,表
%0、6
%A _Alois P.Heinz,2010年12月4日
|