PrimeFactors[n_Integer]:=扁平[表[#[[1]],{1}]&/@FactorInteger[n]];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;素数[Select[Range[3610000],ClassMinusNbr[Prime[#]]==12&]]