|
| |
|
| A029932美元 |
| 记录值为最小正素数本原根的素数。 |
|
1
|
|
|
|
3, 7, 23, 41, 109, 191, 271, 2791, 11971, 31771, 190321, 2080597, 3545281, 4022911, 73189117, 137568061, 443571241, 565822531, 1160260711, 1622723341, 31552100581, 81651092041, 96736641541, 1867622877121, 5000346134911
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
序列中的其他术语：39227234631271、66597722601061和84054326426071-Herman Jamke（hermanjamke（AT）fastmail.fm），2008年2月19日
|
|
|
参考文献
|
R.Osborn，《小于1000的奇素数的所有本原根表》，德克萨斯大学出版社，1961年。
A.E.Western和J.C.P.Miller，指数和原始根表。皇家学会数学表，第9卷，剑桥大学出版社，1968年，第XLV页。
|
|
|
链接
|
A.Paszkiewicz和A.Schinzel，关于模素数的最小素数本原根，数学。公司。71（2002），第239号，第1307-1321页。
A.E.Western和J.C.P.Miller，指数和本原根表，皇家学会数学表，第9卷，剑桥大学出版社，1968年[选定页面的注释扫描]
|
|
|
数学
|
（*此程序不适合计算十几个以上的项。*）max=10^8；pprQ[r_，p_]：=并集[表[PowerMod[r，i，p]，{i，1，p+1}]==互质；ppr[p_]：=与[｛spr=PrimitiveRoot[p]}一起，如果[PrimeQ[spr]，spr，co-times=选择[Range[p-1]，CoprimeQ[#，p]&]；对于[r=NextPrime[spr]，True，r=Next Prime[r]，如果[pprQ[r，p]，返回[r]]]]；收获[For[record=1；p=3，p<max，p=NextPrime[p]，ppr1=ppr[p]；如果[ppr1>记录，记录=ppr1；打印[“p=”，p，“ppr=”，记录]；母猪[p]]][[2，1]](*Jean-François Alcover公司2016年2月25日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,美好的
|
|
|
作者
|
斯科特·林德赫斯特（ScottL（AT）校友，普林斯顿教育学院）
|
|
|
扩展
|
2008年2月19日，赫尔曼·贾姆克（hermanjamke（AT）fastmail.fm）又发表了两篇文章
|
|
|
状态
|
经核准的
|
| |
|
|
