|
|
|
|
|
|
|
|
|
#28通过苏珊娜·库勒美国东部时间2021年3月5日星期五21:47:03 |
|
|
|
|
|
|
|
#27通过安蒂·卡图恩2021年3月5日星期五16:11:50 EST |
|
|
|
|
|
|
|
#26通过安蒂·卡图恩2021年3月5日星期五16:11:36 EST |
|
|
|
|
|
|
|
#25通过安蒂·卡图恩2021年3月5日星期五16:09:55 EST |
|
|
|
|
|
|
|
#24通过安蒂·卡图恩2021年3月5日星期五16:09:34 EST |
|
|
|
|
|
讨论
|
| 2005年3月，星期五
| 16:09
| 安蒂·卡图恩：谢谢迈克尔的插图！
|
|
|
|
|
|
|
#23通过安蒂·卡图恩2021年3月5日星期五15:59:34 EST |
|
|
|
|
|
|
|
#22通过迈克尔·德弗利格2021年3月5日星期五15:33:50 EST |
|
| 链接
|
Michael De Vlieger，<a href=“/A329886型/a329886.png“>显示级别0的树</a>
Michael De Vlieger，<a href=“/A329886型/a329886_1.png“>显示级别0<=j<=7的树</a>
|
|
|
|
|
|
|
#21通过迈克尔·德弗利格2021年3月5日星期五15:17:52 |
|
| 数学
|
块[{a}，a[0]=1；a[1]=2；a[n_]：=a[n]=如果[EvenQ@n，（Times@@Map[Prime[PrimePi@#1+1]^#2&@@#&，FactorInteger[#]]-Boole[#==1]）*2^IntegerExponent[#，2]&[a[n/2]]，2a[（n-1）/2]]；数组[a，57，0]] (* _迈克尔 扩散系数 弗利格_,3月 05 2021*)]]
（*或通过Doudna*）
Map[Times@@Flatten@MapIndexed[ConstantArray[Prime[First[#2]]，#1]&，Table[LengthWhile[#1，#>=j&]，{j，#2}]&@@{#，Max[#]}&@Sort[Flatten[ConstantArray[PrimePi@#1，#2]&@@@FactorInteger[#]]，Greater]&，Nest[Append[#1，Prime[1+BitLength[#2]-DigitCount[#2，2，1]*#1[#2-2^Floor@Log2@#2+1]]]&@@{#，长度@#}&，{1}，57]](*迈克尔·德弗利格2021年3月5日*）
|
|
|
|
|
|
|
#20通过迈克尔·德弗利格2021年3月5日星期五14:51:42 EST |
|
| 数学
|
块[{a}，a[0]=1；a[1]=2；a[n_]：=a[n]=如果[EvenQ@n，（Times@@Map[Prime[PrimePi@#1+1]^#2&@@#&，FactorInteger[#]]-Boole[#==1]）*2^IntegerExponent[#，2]&[a[n/2]]，2a[（n-1）/2]]；数组[a，57，0]](*迈克尔·德弗利格2021年3月5日*）
|
|
|
|
|
|
|
#19通过安蒂·卡图恩2021年3月5日星期五13:33:01 EST |
|
|
|
|
|
|
