|
|
|
|
|
|
|
|
|
#15通过布鲁诺·贝塞利2014年9月11日星期四08:49:42 EDT |
|
|
|
|
|
|
|
#14通过乔格·阿恩特2014年9月11日星期四08:39:52 EDT |
|
|
|
|
|
|
|
#13通过罗伯特·普莱斯2014年9月10日星期三17:35:48 EDT |
|
|
|
|
|
讨论
|
| 9月10日星期三
| 20:26
| 罗伯特·普莱斯：这种情况下偏移量应该为零吗？
|
| 9月11日星期四
| 08:39
| 乔格·阿恩特：偏移量应为1，因为这是一个列表。
|
|
|
|
|
|
|
#12通过罗伯特·普莱斯2014年9月10日星期三17:35:41 EDT |
|
|
|
|
|
|
|
#11通过罗伯特·普莱斯2014年9月10日星期三17:35:13 EDT |
|
| 数据
|
三,4、7、19、62、94、722、5197、5262、6182、14007、21579、35354、75592
|
|
| 扩展
|
前缀 一(1)=三 和 Mathematica程序由更正罗伯特·普莱斯2014年9月9日
|
|
|
|
|
|
|
#10通过罗伯特·普莱斯2014年9月10日星期三17:34:34 EDT |
|
| 数学
|
a={0,0,1,2}；打印[三];对于[n=4，n<=1000，n++，sum=Plus@@a；如果[PrimeQ[sum]，打印[n]]；a=向左旋转[a]；a[[4]]=总和
|
|
| 状态
|
提议的
编辑
|
|
|
|
|
|
|
#9通过罗伯特·普莱斯2014年9月9日星期二21:28:27 EDT |
|
|
|
|
|
|
|
#8通过罗伯特·普莱斯2014年9月9日星期二21:28:13 EDT |
|
| 数学
|
a={0,0,1,2}；打印[1];打印[2];对于[n=4，n<=1000，n++，sum=Plus@@a；如果[PrimeQ[sum]，打印[n]]；a=向左旋转[a]；a[[4]]=总和
|
|
| 扩展
|
Mathematica程序由罗伯特·普莱斯2014年9月9日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#7个通过拉尔夫·斯蒂芬2014年5月10日星期六12:06:34 EDT |
|
|
|
|
|
|
|
#6通过乔格·阿恩特2014年4月28日星期一02:20:39 EDT |
|
|
|
|
|
|
