SQ[n_]:=SQ[n]=整数Q[Sqrt[n]];
f[n_]:=f[n]=系数整数[n];
g[n_]:=g[n]=总和[Boole[Mod[Part[Part[Part[f[n],i],1],4]==3&&Mod[Part[Part[f[n],i],2],2]==1],{i,1,Length[f[n]]}==0;
QQ[n_]:=QQ[n=(n==0)||(n>0&g[n]);
tab={};做[r=0;做[If[QQ[4(n-5^j-5^k)+1],做[If[SQ[8(n-5,j-5^k-x(x+1)/2)+1],r=r+1],{x,0,(Sqrt[4(n-5^j-5 ^k)+1)/2}],{j,0,Log[5,n/2]},{k,j,Log[5,n-5^j]}];tab=附加[tab,r],{n,1,80}];打印[选项卡]
|