%I#10 2019年8月5日03:03:09

%S 2,3,5,11,59,83101131179181197251257269271317337，

%电话：34736741944346152356577587593659709733797811821827，

%电话：86394797197710611063106910971129115311711187121712291277128313011361143314511543155316011619

%N素数p，使得p是模下一个素数p'的本原根，并且p'是模p的本原根基。

%C猜想：序列包含无穷多个素数。此外，有无穷多个素数p，使得p和-p都是模下一个素数p'的本原根，而p'和-p'都是模p的本原基。

%孙志伟，n的表，n的a（n）=1..10000</a>

%孙志伟，<a href=“http://arxiv.org/abs/1405.0290“>关于模素数本原根的新观察</a>，arXiv:1405.0290[math.NT]，2014。

%e a（1）=2，因为素数（1）=2是一个本原根模素数（2）=3，而且素数（3）=3也是一个本初根模素素（1）+2。

%e a（2）=3，因为素数（2）=3是一个本原根模素数（3）=5，而且素数（5）=5是一个原根模素（2）=3。

%t dv[n_]：=除数[n]

%t n=0；Do[Do[If[Mod[（质数[m]）^（部分[dv[Prime[m+1]-1]，i]），质数[m+1]]==1，转到[aa]]，{i，1，长度[dv[Prime[m+1]]-1}]；Do[If[Mod[Prime[m+1]^（Part[dv[Prime[m]-1]，j]），Prime[m]]==1，Goto[aa]]，{j，1，Length[dv[Prime[Cm]-1]]-1}]；n=n+1；打印[n，“”，质数[m]]；标签[aa]；继续，{m，1256}]

%Y参考A000040、A243164、A243403。

%K nonn公司

%O 1,1号机组

%孙志伟2014年6月9日