|
|
|
|
|
|
|
|
|
#27通过米歇尔·马库斯2021年4月29日星期四01:46:29 EDT |
|
|
|
|
|
|
|
#26通过乔格·阿恩特2021年4月29日星期四00:55:45 EDT |
|
|
|
|
|
|
|
#25通过米歇尔·马库斯2021年4月28日星期三23:30:36 EDT |
|
|
|
|
|
|
|
#24通过米歇尔·马库斯2021年4月28日星期三23:30:30 EDT |
|
| 数学
|
k=1/2；a={}；Do[k=k*素数[n]；如果[PrimeQ[k+4]，打印[n]；附加到[a，n]]，{n，600}]；一个(*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2008年8月20日;已更正 通过_雷 钱德勒_,六月 16 2013*)
|
|
| 扩展
|
插入a（1）=1，并且 程序 已更正,a（12）-a（13）来自雷·钱德勒2013年6月16日
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#23通过罗伯特·普莱斯美国东部时间2021年4月28日星期三21:36:11 |
|
|
|
|
|
|
|
#22通过罗伯特·普莱斯2021年4月28日星期三21:36:08 EDT |
|
| 评论
|
a（17) <) >25000. -罗伯特·普莱斯2016年11月11日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#21通过哈维·P·戴尔2021年3月20日星期六13:50:01 EDT |
|
|
|
|
|
|
|
#20通过哈维·P·戴尔2021年3月20日星期六13:49:58 EDT |
|
| 数学
|
位置[#/2+4&&@FoldList[Times，Prime[Range[600]]]，_？（PrimeQ[#]&）]//Flatten（*程序生成序列的前13项。要生成更多项，请增加Range常量，但程序可能需要很长时间才能运行。*）(*哈维·P·戴尔2021年3月20日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#19个通过彼得·卢什尼2016年11月12日星期六15:15:41 EST |
|
|
|
|
|
|
|
#18通过乔格·阿恩特2016年11月12日星期六09:17:07 EST |
|
|
|
|
|
|
