|
|
|
|
|
|
|
|
|
#26通过乔恩·肖恩菲尔德2020年1月11日星期六23:12:23 EST |
|
|
|
|
|
|
|
#25通过乔恩·肖恩菲尔德2020年1月11日星期六23:12:21 EST |
|
|
|
|
|
|
|
#24通过乔恩·肖恩菲尔德2020年1月11日星期六23:12:18 EST |
|
| 链接
|
Ray Chandler，<a href=“/A006339号/b006339.txt“>n，a（n）的表，n=0..1438</a> (> (a（1439）超过1000位）。
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#23个通过俄罗斯考克斯2012年3月30日星期五18:35:06 EDT |
|
| 作者
|
_大卫·W·威尔逊(戴维沃森(自动变速箱)康卡斯特.网)_
|
|
|
|
|
讨论
|
| 3月30日星期五
| 18:35
| OEIS服务器以下为：https://oeis.org/edit/global/202
|
|
|
|
|
|
|
#22通过雷·钱德勒2012年1月7日星期六10:20:16 EST |
|
|
|
|
|
|
|
#21通过雷·钱德勒美国东部时间2012年1月7日星期六09:54:11 |
|
| 数学
|
primeCon1Mod4=选择[Prime[Range[50]]，（Mod[#1，4]==1）&]；（Times@@（取[primeCon1Mod4，长度[#1]]^Reverse[（#1-1）/2]））和/@（（连接@@（表[#1[[1]]，{#1[[2]]}]和/@FactorInteger[#1*2+1]）））和/@范围[0，50]）（*Albert Mao，2006年12月3日*）
一个ModFourPrimes[1]=5；
一个ModFourPrimes[n_]：=一个ModfourPrimes[n]=NestWhile[NextPrime，Nextprimes[oneModFourPrimes[n-1]]，Mod[#，4]！=1 & ];
因式分解[1，limit_]={{}}；
因子分解[n_，limit_]：=因子分解[n，limit]=联接@@表[Prepend[#，d]&/@factoriations[n/d，d]，{d，选择[Rest[Divisors[n]]，#<=limit&]}]；
最小次元[n_]：=最小值[（Times@@（Array[oneModFourPrimes，Length[#]]^（（#-1）/2））&）/@因子分解[2*n+1，2*n+1]]；
阵列[最小低衰减，30，0]
（*Albert H.Mao，2012年1月6日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
讨论
|
| 2007年1月6日
| 10:20
| 雷·钱德勒：Albert Mao替换了2006年的Mma代码，以应对产生错误结果的示例。
|
|
|
|
|
|
|
#20通过雷·钱德勒2012年1月6日星期五08:54:27 EST |
|
|
|
|
|
|
|
#19通过雷·钱德勒2012年1月6日星期五08:46:26 EST |
|
| 数学
|
#[[1，-1]]&/@Split[Sort[MapIndexed[{#1，#2[[1]]}&，SquaresR[2，Range[10^4]^2]]，First[#1]==First[2]&]（*埃里克·魏斯坦，2006年1月16日，Ray Chandler为Mma v6+更新，2012年1月5日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
讨论
|
| 2006年1月5日
| 08:53
| 雷·钱德勒：我错误地认为Weisstein的程序只需要为Mma的当前版本进行更新。使用的技术存在更多问题，使得这种方法无法给出准确的结果。再次删除程序。Mao的程序对大多数值都是准确的，但对一些较大的值返回错误的结果。我正在和他一起为这些特殊的价值观修改程序。
|
|
|
|
|
|
|
#18通过雷·钱德勒2012年1月5日星期四17:43:20 EST |
|
|
|
|
|
|
|
#17通过雷·钱德勒2012年1月5日星期四17:43:14 EST |
|
| 数学
|
#[[1，-1]]&/@Split[Sort[MapIndexed[{#1，#2[[1]]}&，SquaresR[2，Range[10^4]^2]]，First[#1]==First[2]&]（*埃里克·魏斯坦，2006年1月16日，Ray Chandler为Mma v6+更新，2012年1月5日*）
primeCon1Mod4=选择[Prime[Range[50]]，（Mod[#1，4]==1）&]；（倍数@@（取[primeCon1Mod4，长度[#1]]^Reverse[（#1-1）/2]））]) -]) (*Albert Mao，2006年12月3日*)
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
