g[n_]:=(x=n;d={};While[FactorInteger[x]!={{},f=FactorIntiger[x,FactorComplete->True][[1,1]];x=x/f;AppendTo[d,IntegerDigits[f]];FromDigits[扁平[d]]);嵌套列表[g,49,25]
(*第二个程序:*)
NestList[FromDigits@Flatten@Map[IntegerDigits,FactorInteger[#]/。{p,e}/;p>=1:>如果[p==1,1,ConstantArray[p,e]]&,49,16](*迈克尔·德弗利格2017年4月27日*)