提出
经核准的
编辑
b[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<1,0,b[n、i-1]+如果[i^2>n,0,b[n-i^2,i-1]]];表[b[n,楼层[Sqrt[n]]],{n,0100}]//累加(*Jean-François Alcover公司2019年4月17日之后阿洛伊斯·海因茨在里面A033461号*)
检验过的
系数列表[系列[(1-x)^(-1)乘积[1+x^(k^2),{k,50}],{x,0,50}],x][(*文森佐·利班迪2014年10月15日*)
系数列表[系列[(1-x)^(-1)乘积[1+x^(k^2),{k,50}],{x,0,50}],x][*_ 文森佐·利班迪(Vincenzo Librandi),2014年10月15日*)