factBaseIntDs[n_]:=模块[{m,i,len,dList,currDigit},i=1;而[n>i!,i++];m=n;len=i;dList=表[0,{len}];执行[currDigit=0;当[m>=j!,m=m-j!;currDi吉t++];dList[[len-j+1]]=当前数字,{j,i,1,-1}];如果[dList[[1]]==0,dList=Drop[dList,1]];d列表];s=表格[FromDigits[factBaseIntDs@n],{n,0,120}];
nn=120;b=模[{m=1},而[Factorial@m<nn,m++];混合根[Reverse@Range[2,m]]];表[Count[Integer Digits[n,b],1],{n,0,nn}](*迈克尔·德弗利格,2016年8月29日,10.2*版)
|