|
数学
|
表[Times@@Prime@Range@DigitCount[2 n-数字计数[2 n,2,1],2,1],{n,0,71}](*或*)
Map[Times@@MapIndexed[Prime[First[#2]]^#1&,Reverse@Sort[FactorInteger[#][[All,-1]]]-Boole[#==1]&,Map[Times@@Prime@Flatten@Position[#,1]&@Reverse@IntegerDigits[#,2]&,Table[2 n-DigitCount[2 n,2,1],{n,0,71}]](*迈克尔·德弗利格2017年3月18日*)
|