%I#43 2024年5月13日00:06:55

%S 3,5,11,29,53,59,83101107131149173179197227269293317347，

%电话：38941944346146749150955756358765365967701773797821，

%电话：827941947101910611091110911871229125912771283130113013731427

%N具有本原根8的素数。

%为了允许包含小于指定本原根m（这里，8）的素数，我们使用本质上等价的定义“素数p，使得m mod p的乘法阶为p-1”。本注释适用于所有A019334-A019421_N.J.A.Sloane，2019年12月3日

%C A001122的成员与1 mod 3.-不一致_罗伯特·伊斯雷尔（Robert Israel），2014年8月12日

%C术语与模24的5或11一致_宋嘉宁，2024年5月12日

%H Vincenzo Librandi，n的表，n=1..1000的a（n）</a>

%H<a href=“/index/Pri#primes_root”>按基元根索引素数项</a>

%设a（p，q）=和（n=1,2*p*q，2*cos（2^n*Pi/（（2*q+1）*（2*p+1）））。那么当a（p，3）==1时，2*p+1是这个序列的素数_Gerry Martens_，2015年5月15日

%F关于Artin猜想，a（n）~（5/3A）n log n，其中a=A005596是Artin常数_Charles R Greathouse IV_，2015年5月21日

%p选择（t->isprime（t）and numtheory:-顺序（8，t）=t-1，[2*i+1$i=1..1000]）；#_罗伯特·伊斯雷尔（Robert Israel），2014年8月12日

%t pr=8；选择[Prime[Range[200]]，乘法顺序[pr，#]==#-1&]（*_N.J.A.Sloane_，Jun 01 2010*）

%t a[p_，q_]：=总和[2 Cos[2^n Pi/（（2q+1）（2p+1））]，{n，1,2 qp}]

%t 2选择[范围[800]，合理化[N[a[#，3]，20]]==1&]+1

%t（*_Gerry Martens_，2015年4月28日*）

%t加入[{3,5}，选择[Prime[Range[250]]，PrimitiveRoot[#，8]==8&]]（*哈维·P·戴尔，2019年8月10日*）

%o（PARI）is（n）=isprime（n）&&n>2&&znorder（Mod（8，n））==n-1\\_Charles R Greathouse IV_，2015年5月21日

%K nonn公司

%O 1,1号机组

%A·热心的W·威尔逊_