PrimeFactors[n_Integer]:=扁平[表[#[[1]],{1}]&/@FactorInteger[n]];下一素数[n_]:=块[{k=n+1},而[!素数Q[k],k++];k];f[n_Integer]:=块[{m=n},如果[m==0,m=1,而[IntegerQ[m/2],m/=2];而[IntegerQ[m/3],m/=3]];应用[Times,PrimeFactors[m]-1]];ClassMinusNbr[n_]:=长度[NestWhileList[f,n,UnsameQ,All]]-3;a=表[0,{15}];a[[1]]=2;k=5;Do[c=ClassMinusNbr[k];如果[a[[c]]==0,则a[[c]]=k];k=下一素数[k],{n,37223000}];一