|
|
|
|
|
|
|
|
|
#34通过乔格·阿恩特2010年10月7日星期三05:33:21 EDT |
|
|
|
|
|
|
|
#33个通过米歇尔·马库斯2020年10月7日星期三05:24:51 EDT |
|
|
|
|
|
|
|
#32通过雨果·普福尔特纳2020年10月7日星期三05:03:05 EDT |
|
|
|
|
|
|
|
#31通过雨果·普福尔特纳2020年10月7日星期三05:02:31 EDT |
|
| 链接
|
Hugo Pfoertner，<a href=“/A305747型/b305747.txt“>n、a（n）表（n=1..10000）</a>
|
|
| 状态
|
已批准
编辑
|
|
|
|
|
|
|
#30通过布鲁诺·贝塞利2018年10月19日星期五03:35:45 EDT |
|
|
|
|
|
|
|
#29通过彼得·卢什尼2018年10月18日星期四18:28:00 EDT |
|
|
|
|
|
|
|
#28通过彼得·卢什尼2018年10月18日星期四18:27:53 EDT |
|
|
|
|
|
|
|
#27个通过彼得·卢什尼2018年10月18日星期四18:27:40 EDT |
|
| MAPLE公司
|
a_list:=proc（b）局部L，r；L:=空；
对于remove（isprime，[$3.b]）中的r，做L:=L，min（select（k->k^2>=r，numtheory[divisors]（r）））od-end:a_list（118）#彼得·卢什尼2018年10月18日
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#26通过罗伯特·普莱斯2018年10月18日星期四14:00:44 EDT |
|
|
|
|
|
|
|
#25通过罗伯特·普莱斯2018年10月18日星期四14:00:34 EDT |
|
| 数学
|
{1}~加入~地图[SelectFirst[Divisors@#，Function[k，k>=Sqrt@#]]&，选择[Range@120，CompositeQ]](*迈克尔·德弗利格，2018年6月12日*）
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
