encodePrimeSignature[n_Integer]:=
Catch[FromDigits[Reverse[IntegerDigits[Capply[Plus,
其中[n==0,抛出[“undefined”],
n==1,0,
Max[Last/@FactorInteger@n]>9,Throw[“overflow”],
真,功率[10,PrimePi[Abs[#]]-1]]&/@
展平[ConstantArray@@@FactorInteger[n]]]]];
lst=文件夹列表[Max,1,Table[DivisorSigma[0,n],{n,2,100000000}]];
地图[encodePrimeSignature,扁平[Position[lst,#,1,1]&/@Union[lst]]]
|