|
| |
|
| A060749美元 |
| 三角形，其中第n行列出了第n素数模的所有本原根。 |
|
36
|
|
|
|
1, 2, 2, 3, 3, 5, 2, 6, 7, 8, 2, 6, 7, 11, 3, 5, 6, 7, 10, 11, 12, 14, 2, 3, 10, 13, 14, 15, 5, 7, 10, 11, 14, 15, 17, 19, 20, 21, 2, 3, 8, 10, 11, 14, 15, 18, 19, 21, 26, 27, 3, 11, 12, 13, 17, 21, 22, 24, 2, 5, 13, 15, 17, 18, 19, 20, 22, 24, 32, 35, 6, 7, 11, 12, 13, 15, 17, 19, 22, 24, 26, 28, 29, 30, 34, 35
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
参考文献
|
R.Osborn，《小于1000的奇素数的所有本原根表》，德克萨斯大学出版社，1961年。
|
|
|
链接
|
C.W.Curtis，表征理论先驱阿默尔。数学。Soc.，1999年；见第3页。
|
|
|
例子
|
三角形a（n，k）开始（第二列pr（n）在此为素数（n））：
n pr（n）\k 1 2 3 4 5 6 6 7 8 9 10 11 12 13 14 15 16 18 20 21 22 23 24 25 27。。。
1 2 1
2 3 2
3 5 2 3
4 7 3 5
5 11 2 6 7 8
6 13 2 6 7 11
7 17 3 5 6 7 10 11 12 14
8 19 2 3 10 13 14 15
9 23 5 7 10 11 14 15 17 19 20 21
10 29 2 3 8 10 11 14 15 18 19 21 26 27
11 31 3 11 12 13 17 21 22 24
12 37 2 5 13 15 17 18 19 20 22 24 32 35
13 41 6 7 11 12 13 15 17 19 22 24 26 28 29 30 34 35
14 43 3 5 12 18 19 20 26 28 29 30 33 34
15 47 5 10 11 13 15 19 20 22 23 26 29 30 31 33 35 38 39 40 41 43 44 45
16 53 2 3 5 8 12 14 18 19 20 21 22 26 27 31 32 33 34 35 39 41 45 48 50 51
17 59 2 6 8 10 11 13 14 18 23 24 30 31 32 33 34 37 38 39 40 42 43 44 47 50 52 54 55 56
18 61 2 6 7 10 17 18 26 30 31 35 43 44 51 54 55 59
19 67 2 7 11 12 13 18 20 28 31 32 34 41 44 46 48 50 51 57 61 63
20 71 7 11 13 21 22 28 31 33 35 42 44 47 52 53 55 56 59 61 62 63 65 67 68 69
---------------------------------------------------------------------------------
|
|
|
数学
|
prQ[p_，a_]：=块[{d=大多数@除数[p-1]}，如果[GCD[p，a]==1，FreeQ[PowerMod[a，d，p]，1]，False]]；f[n_]：=选择[范围@n，prQ[n，#]&]；表[f[素数[n]]，{n，13}]//展平(*罗伯特·威尔逊v2005年12月17日*）
primRoots[p_]：=（g=PrimitiveRoot[p]；goodOddIntegers=选择[Range[1，p-1，2]，CoprimQ[#，p-1]&]；allPrimRoots=PowerMod[g，#，p]&/@goodOrdIntegers；排序[allPrimRoots]）；primRoots/@Prime[Range[50]]//平展(*Jean-François Alcover公司2014年11月12日之后彼得·卢什尼*)
|
|
|
黄体脂酮素
|
{Haskell}main=print[[n|n<-[1..p-1]，让h x=如果x==1，那么在h n==p-1]|p<-让p=2:[n|（n，r）<-drop 2（zip[1..]（concat[replicate（2*n+1）（toInteger n）|n<-[1..]]））和[n`mod`x/=0|x<-takeWhile（<=r）p]]in p]--Stoeber
（PARI）ar（n）=局部（r，p，pr，j）；p=素数（n）；r=向量（eulerphi（p-1））；pr=znprimroot（p）；对于（i=1，p-1，如果（gcd（i，p-1）==1，r[j++]=升力（pr^i））；向量排序（r）\\富兰克林·T·亚当斯-沃特斯2012年1月22日
（鼠尾草）
定义初根（p）：
g=基本根（p）
znorder=p-1
is_coprime=λx：gcd（x，znorder）==1
good_add_integers=过滤器（is_coprime，[1..p-1，step=2]）
all_primroots=[在良好的附加条件下k的功率_mod（g，k，p）]
all_primroots.sort（）
return all_primroots#Minh Van Nguyen，数学家函数编程，sagemath.org教程
对于素数（1,50）中的p：print（primroots（p））#彼得·卢什尼，2011年6月8日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,标签,美好的,容易的
|
|
|
作者
|
|
|
|
扩展
|
更多条款来自Paul Stoeber（美国电话电报公司），2005年10月8日
增加了第26、28、29、30、34、35条；行n＝13的完成-沃尔夫迪特·朗2014年5月18日
|
|
|
状态
|
经核准的
|
| |
|
|
