显示1-1个结果(共1个)。
第页1
1, 1, 2, 5, 11, 33, 92, 347, 1347, 6338, 31949, 179265, 1071264, 6845487, 46162569, 327731596, 2437753739, 18948597836, 153498350744, 1293123237572, 11306475314372, 102425554267565, 959826755336241, 9290811905211847
数学
u[0,_]=1;u[k_,j_]:=u[k,j]=和[二项式[k-1,i-1]总计[u[k-i,j]#^(i-1)和/@Divisors[j]],{i,k}];
b[n_]:=1/n*总计[EulerPhi[#]u[商[n,#],#]&/@除数[n]];
A084708号[n]:=b[n]/2+如果[EvenQ[n],u[n/2,2],和[二项式[n/2-1/2,k]u[k,2]、{k,0,n/2-1/2}]]/2;
a[n_]:=总和[MoebiusMu[n/d]*A084708号[d] ,{d,除数[n]}];
搜索在0.006秒内完成
|