%I#15 2016年2月1日02:53:23

%S 5338215676316721818437811035301151242192906122605012839621，

%电话2894431289674144662215428231597051617091193405019730711，

%电话：9920821106356611068475910710711108704711142526111591581

%以24为最小正本原根的N素数。

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

%t素数[Select[Range[10^6]，PrimitiveRoot[Prime[#]]==24&]]

%t（*或*）

%t选择[Prime@范围@1000000，PrimitiveRoot@#==24&]（*_Robert G.Wilson v_，2001年5月11日*）

%o（PARI）是（n）=如果（n<9||！isprime（n），return（0））；对于（k=2,23，如果（znorder（Mod（k，n））==n-1，返回（0））；znorder（Mod（24，n））==n-1\\_哈雷斯R大宅IV_，2015年4月28日

%Y参见A001918、A001126、A019351。

%K nonn公司

%O 1，1

%A _Klaus Brockhaus，2001年5月6日

%E更多条款摘自2001年5月11日的_Robert G.Wilson v_