|
|
|
|
|
|
|
|
|
#15通过R.J.马塔尔2013年7月4日星期四15:01:55 EDT |
|
|
|
|
|
|
|
#14通过R.J.马塔尔2013年7月4日星期四15:01:41 EDT |
|
| MAPLE公司
|
A226182号：=进程（n）
本地ak、k、nd、kpiv；
ak:=0；
kpiv：=2；
对于k从2到n/2-1 do
nd:=0；
对于numtheory[除数]（n+k）减去{1}do中的d
如果modp（n+d，k）=0，则
nd:=nd+1；
结束条件：；
结束do：
如果nd>ak，则
ak：=最大值（ak，nd）；
kpiv：=k；
结束条件：；
结束do：
kpiv；
结束进程：#R.J.马塔尔2013年7月4日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#13通过T.D.诺伊2013年6月4日星期二13:07:19 EDT |
|
|
|
|
|
|
|
#12通过T.D.诺伊2013年6月3日星期一14:14:24 EDT |
|
|
|
|
|
|
|
#11个通过T.D.诺伊2013年6月3日星期一14:13:41 EDT |
|
| 数学
|
表[NestWhile[#+1&,&,2,,最大[贴图[计数[(n个+休息[约数[n个+#]])/#, _整数]&,范围[2,地板[(n个-2)/2]]]]-计数[(n个+休息[约数[n个+#]])/#, _整数] =!=0&], {n个,6,55}] (* _彼得 J型.C类.摩西_,六月 03 2013*)
计数[（n+Rest[Divisors[n+#]]）/#，_Integer]&，Range[2，Floor[（n-2）/2]]]-计数[（n+Rest[Divisors[n+#]]）/#，_Iinteger]==0&]，{n，6，55}](*彼得·J·C·摩西2013年6月3日*）
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#10通过弗拉基米尔·舍维列夫2013年6月3日星期一12:12:10 EDT |
|
|
|
|
|
|
|
#9通过弗拉基米尔·舍维列夫2013年6月3日星期一12:12:04 EDT |
|
| 名称
|
a（n）是最小整数k>=2，因此n+k与k |n的除数d>1++d等于A225867型（n） 。
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#8通过弗拉基米尔·舍维列夫2013年6月3日星期一12:08:41 EDT |
|
|
|
|
|
|
|
#7通过弗拉基米尔·舍维列夫2013年6月3日星期一12:08:28 EDT |
|
| 例子
|
设n=33。我们从k=2开始。33+2=35的除数>1为d=5,7,35。对于所有d，33+d可被k=2整除。但这样的d的数量是3，而A225867型(33)= 6. 因此，a（33）>2。现在考虑k=3。33+3=36的除数>1为2,3,4,6,9,12,18,36，但仅当d=3,6,9,12,18,36时，33+d可被k=3整除。因为我们确实A225867型（33）=6个这样的除数，那么k=3是必需的，a（33）=3。
|
|
|
|
|
|
|
#6通过彼得·J·C·摩西2013年6月3日星期一11:03:26 EDT |
|
| 数学
|
表[NestWhile[#+1&，2，Max[Map[
表[NestWhile（嵌套期间）[#+1&,2,马克斯[地图[计数[（n+Rest[Divisors[n+#]]）/#，_Integer]&，Range[2，Floor[（n-2）/2]]]-计数[地图[整数Q, ([(n+余数[除数[n+#]])/#],真的+#]])/#, _整数]=!=0&]，{n，6，55}](*彼得·J·C·摩西2013年6月3日*）
|
|
|
|
|
|
