|
|
|
|
|
|
|
|
|
#17通过苏珊娜·凯勒2019年5月4日星期六21:50:36 EDT |
|
|
|
|
|
|
|
#16个通过乔恩·肖恩菲尔德2019年5月4日星期六21:14:16 EDT |
|
|
|
|
|
|
|
#15通过乔恩·肖恩菲尔德2019年5月4日星期六21:14:14 EDT |
|
| MAPLE公司
|
结束do: #: # _R.J.马塔尔，_,2011年10月2日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#14通过俄罗斯考克斯2012年3月30日星期五18:53:49 EDT |
|
| 作者
|
_保罗·拉瓦(保罗普拉瓦(自动变速箱)gmail公司.com公司),_,2011年6月28日
|
|
|
|
|
讨论
|
| 3月30日星期五
| 18:53
| OEIS服务器: https://oeis.org/edit/global/262
|
|
|
|
|
|
|
#13通过俄罗斯考克斯2012年3月30日星期五17:35:03 EDT |
|
| 扩展
|
a（9）-a（16）来自 _多诺万·约翰逊(多诺万人.约翰逊(自动变速箱)雅虎.com公司),_,2011年9月22日
|
|
|
|
|
讨论
|
| 3月30日星期五
| 17:35
| OEIS服务器: https://oeis.org/edit/global/163
|
|
|
|
|
|
|
#12通过R.J.马塔尔2011年10月2日周日08:22:45 EDT |
|
|
|
|
|
|
|
#11通过R.J.马塔尔2011年10月2日星期日美国东部夏令时08:18:25 |
|
|
|
|
|
|
|
#10通过R.J.马塔尔2011年10月2日星期日美国东部夏令时08:18:05 |
|
| MAPLE公司
|
从1到n do
如果A066417美元(A066417号（n） ）=2*n，则
具有 打印(数字理论n个);
Dergcd:=进程（n）
局部a、b、c、i、k、s、s1；
对于我从3到n do
a： ={}；
对于从2到i-1的k，如果abs（（imodk）-k/2）<1，那么a:=并集{k}；fi；
od；
b： =nops（a）；c： =op（a）；s： =0；
如果b>1，那么对于从1到b的k做s：=s+c[k]；od；
其他s：=c；
fi；
a： ={}；
对于从2到s-1的k，如果abs（（s mod k）-k/2）<1，则a:=并集{k}；fi；
od；
b： =nops（a）；c： =op（a）；s1:=0；
对于从1到b的k，做s1:=s1+c[k]；od；
如果s1=2*i，则打印（i）；fi；
日 结束 如果;
结束: 做: #R（右）.J型.马塔尔，10月 02 2011
|
|
| 交叉参考
|
囊性纤维变性。A019279号，A066272号A066417号.
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#9通过T.D.诺伊2011年9月28日星期三20:51:17 EDT |
|
| 作者
|
保罗·拉瓦(ppl公司保罗普拉瓦（自动变速器）标准普尔gmail公司.在com公司)2011年6月28日
|
|
|
|
|
讨论
|
| 9月28日星期三
| 20:51
| OEIS服务器: https://oeis.org/edit/global/96网址
|
|
|
|
|
|
|
#8通过T.D.诺伊2011年9月22日星期四18:45:22 EDT |
|
|
|
|
|
|
