提出
经核准的
编辑
b[n_]:=如果[n==1,1,乘积[{p,e}=pe;如果[2==p,e---,如果[e>1,p=0,p=-1]];p^e,{pe,因子整数[n]}]];
etr[p_]:=模[{b},b[n_]:=b[n]=如果[n==0,1,Sum[Sum[d*p[d],{d,除数[j]}]*b[n-j],{j,1,n}]/n];b] ;
a=etr[b];
a/@范围[0100](*Jean-François Alcover公司2019年10月1日*)
已审核
产品_{k>0}A(x^k)=产品_{k>=0}1/(1-x^(2^k))^(2^k)。(参见。A073709号).)
Seiichi Manyama先生:期间。
签名,新的,看