|
|
|
|
#30通过N.J.A.斯隆2016年7月14日星期四00:20:17 EDT |
|
|
|
#29通过蒂莫西·提芬2016年7月13日星期三20:34:35 EDT |
|
|
|
#28通过蒂莫西·提芬2016年7月13日星期三20:33:56 EDT |
|
|
讨论
|
7月13日星期三
| 20:34
| 蒂莫西·提芬:清理我之前的评论并添加交叉引用。。。
|
|
|
|
#27通过乔格·阿恩特2013年2月20日星期三12:05:27 EST |
|
|
|
#26通过多诺万·约翰逊2013年2月20日星期三12:03:40 EST |
|
|
讨论
|
2月20日星期三
| 12:05
| 乔格·阿恩特:太好了,谢谢大家!
|
|
|
|
#25通过多诺万·约翰逊2013年2月20日星期三12:00:59 EST |
| 黄体脂酮素
|
(PARI)v=矢量(10^7);对于(i=1,10^7,如果(西格玛(i)<i+i,v[i]=1));m=矢量(1799);对于(i=1,10^7,d=除数(i);s=1;对于(j=2,numdiv(i),如果(v[d[j]]==1,s=s+d[j]));如果(s<=1799,m[s]=1);c=0;对于(i=11799,如果(m[i]==0,c++;写入(“b210510.txt”,c“”i))/*多诺万·约翰逊2013年2月20日*/
|
| 状态
|
提出
编辑
|
|
|
讨论
|
2月20日星期三
| 12:03
| 多诺万·约翰逊:我添加了一个pari程序,可以找到前1000个术语。
|
|
|
|
#24通过乔瓦尼·雷斯塔2013年2月20日星期三11:42:58 EST |
|
|
|
#23通过乔瓦尼·雷斯塔2013年2月20日星期三11:41:15 EST |
| 数学
|
sdef[n]:=总计@选择[除数@n,除数Sigma[-1,#]<2&];ric[n_,lap_]:=块[{s,m,p=NextPrime@圈},m=n*p;而[(s=sdef@米)<=Lim,T[[s]]=1;里克[m,p];m*=p;而[(s=sdef@米)<=Lim,T[[s]]=1;里克[m,p];m*=p];p=NextPrime@p; m=n*p]];seqTo[n]:=(Lim=n;T=0范围[n];T[[1]]=1;ric[1,1];压扁@位置[T,0]);seqTo【159】(*乔瓦尼·雷斯塔2013年2月20日*)
|
| 状态
|
检验过的
编辑
|
|
|
讨论
|
2月20日星期三
| 11:42
| 乔瓦尼·雷斯塔:我添加了一些Mma代码。不是特别有效,但总比什么都没有好(我希望如此)。
|
|
|
|
#22通过乔格·阿恩特2013年2月20日星期三09:50:00 EST |
|
|
讨论
|
2月20日星期三
| 11:06
| 多诺万·约翰逊:不是真的,对于不足的数字,我使用了一个10^9位的位数组文件。
|
|
|
|
#21通过多诺万·约翰逊2013年2月20日星期三09:21:19 EST |
|
|
讨论
|
2月20日星期三
| 09:50
| 乔格·阿恩特:你有可以放进去的程序吗?
|
|
|
|