%I#26 2019年3月2日20:13:39

%S 2,3,5,7,11,19,29,13,59,37,31,47,67,53,41,97,73113103,43,71233,61，

%电话151109101251107587,79223167311239137139359181257337，

%电话：16317388156314940915717929312733191269317383277,23821373271283461569853487433647953383199367123139730745769115234631061287421197857110334314999991643769983607811449122373313276831021

%N素数的重排，使得每个部分积+1都是素数。

%C虽然首项匹配，但与A039726不同，因为较小的质数可能稍后出现。

%C一些较大的条目可能只对应于可能的素数。

%C A158076建议可以很容易/快速地生成此序列中的数字。也许这个序列是一种快速生成大概率素数的方法。[_Dmitry Kamenetsky_，2009年3月12日]

%C记录：2、3、5、7、11、19、29、59、67、97、113、233、251、587、881、953、1231、1327、1553、1657、2383、3251、3769、6737、6947、7103、7879、8263、10159、11369、22003_Robert G.Wilson v_，2017年7月20日

%C第n素数的位置：1，2，3，4，5，8，472，6，57，7，11，10，15，20，12，14，9，23，13，21，17，30，55，478，16，26，19，28，25，18，50，345，35，36，45，24，…，-_Robert G.Wilson，2017年7月20日

%H Robert G.Wilson v，n表，n=1..700的a（n）（前100个术语来自Amarnath Murthy和Meenakshi Srikanth）

%e第n项是序列中尚未存在的最小素数，因此1加上前n项的乘积就是素数。[_Dmitry Kamenetsky_，2009年3月12日]

%t f[s_List]：=块[{p=Times@@s，q=2}，而[MemberQ[s，q]||！素数q[p*q+1]，q=下一素数@q]；追加[s，q]]；巢穴[f，{2}，63]（*_Robert G.Wilson v_，2017年7月20日*）

%o（PARI）{terms=100；a=A083772=向量（terms）；a[1]=2；tmp=1；A083772]=3；对于（k=2，terms，tmp=tmp*a[k-1]；p=1，while（1，until（isprime（p），p=p+2）；对于（m=1，k-1，if（p==a[m]，break，if p+1；打印1（a[k]，“，”）；中断（2）））；a}

%Y参考A005235、A039726、A083772。

%Y Cf.该序列中每个术语所需的素性测试数量见A158076。[_Dmitry Kamenetsky_，2009年3月12日]

%K nonn公司

%O 1,1号机组

%A _Amarnath Murthy和Meenakshi Srikanth（menakans（AT）yahoo.com），2003年5月6日

%E更多术语摘自Rick L.Shepherd_，2004年3月18日