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]]；ClassPlusNbr[n_]：=长度[NestWhileList[f，n，UnsameQ，All]]-3；素数[Select[Range[150000]，ClassPlusNbr[Prime[#]]==10&]]
