%I#22 2021年10月21日01:14:39

%S 0,1,2,3,4,5,6,11,13,24,66,68,75167171172287310352384457564，

%电话590616620643849139115521613184921226472673441313494，

%电话：31260332376713285586234725

%A002110索引的N A088257。

%C A057704和A014545的联合。-_Jeppe Stig Nielsen，2019年8月1日

%F a（n）=k，这样A088257（n）=A002110（k）。

%e3在序列中，因为primarialp3#=2*3*5=30有两个素数邻居29和31。

%e4在序列中，因为主p4#=2*3*5*7=210具有一个主邻居211；209 = 11 * 19.

%e7不在序列中，因为最小的7个素数的乘积有两个复合邻域。

%p A:=空：

%pP:=1:p:=1；

%p代表从1到700 do的n

%p:=下一素数（p）；

%p p：=p*p；

%p如果是一元（p+1）或一元（p-1），则A:=A，n fi

%日期：

%p A；#_罗伯特·伊斯雷尔（Robert Israel），2016年8月3日

%t选择[Range[0，600]，Total@Boole@PrimeQ@{#-1，#+1}>0&@Apply[Times，Prime@Range@#]&]（*_Michael De Vlieger_，2016年8月3日*）

%o（PARI）是（k）=pr=prod（j=1，k，质数（j））；ispseudoprime（pr-1）|| ispseudoprime（pr+1）\\_Jeppe Stig Nielsen_，2019年8月1日

%Y参考A002110、A088257、A014545、A057704。

%K nonn，更多

%氧1,3

%A _雷·钱德勒，2003年9月29日

%E a（22）-a（27），来自Michael De Vlieger_，2016年8月3日

%E a（28）-a（40）摘自Jeppe Stig Nielsen，2019年8月1日

%E a（41），来自Jeppe Stig Nielsen，2021年10月19日