%I#36 2015年3月20日19:13:17

%S 11251142990694910504491058389372811396653291362366714320489，

%电话：30668003309103914571737749437001555449595751091158206653，

%电话：5877225769490901721913217362578975235237379396339967389110382116910466213912132244912593889147210257164810311698441706501692016920191991721

%N素数p，使sopfr（p-1）=sopfer（p+1）也是素数，其中sopfr是A001414。

%C前三项由J.M.Bergot计算得出（J.M.Bergot与N.J.A.Sloane的个人通信，2011年5月16日）。

%C<10^n的项数：0，1，2，3，3，4，8，24，70，253，839，…，.-_Robert G.Wilson v_，2011年5月31日

%H Charles R Greathouse IV和Robert G.Wilson v，n表，a（n）表示n=1..2592

%e sopfr（250）=sopfr（2*5^3）=2+5*3=17=2*2+3*2+7=sopfr（2^2*3^2*7）=sopfr（252），17和251是素数，所以251在这个序列中。

%t f[n_]：=加号@@扁平[表[#[[1]]，{#[[2]]}]&/@FactorInteger@n]；fQ[n_]：=块[{pn=f[n-1]，pp=f[n+1]}，pn==pp&&PrimeQ@pn]；p=2；lst={}；而[p<216000000，如果[fQ@p，AppendTo[lst，p]]；p=NextPrime@p]；第1期（*罗伯特·G·威尔逊诉，2011年5月18日*）

%A086711的Y子序列。参见A190722。

%K nonn公司

%O 1,1号机组

%A _Charles R Greathouse IV，2011年5月16日