#来自在线整数序列百科全书的问候!http://oeis.org/搜索:id:a068700显示第1-1页,共1页%一号A068700%S A068700 42,78102108180192270300312330342390420522540612660,%电话:A068700 8228408821021140123012721482154216321702210102682,%U A068700 274230723198340836422382844244572474047884998562257185832%nA068700将N与N-1和N与N+1连接,都会产生素数(孪生素数)。%C A068700所有项与{0,12,18}mod 30一致_扎克·塞多夫,2014年10月24日%C A068700 a(n)=2*A102478(n)。-_Reinhard Zumkeller,2015年6月27日%H A068700扎克·塞多夫,n=1..10000的n,a(n)表%e A068700 42是成员,因为4241和4243是质数。%p A068700过滤器:=过程(n)%p A068700局部d;%p A068700 d:=ilog10(n)+1;%p A068700 isprime(n*10^d+n-1)和isprime(n*10^d+n+1)%p A068700结束程序:%p A068700选择(过滤器,[$1..10^5])_罗伯特·以色列,2014年10月24日%t A068700 d[n_u]:=整数位数[n];conQ[n\]:=和@@PrimeQ[fromdights/@{Join[d[n],d[n+1]],Join[d[n],d[n-1]]}];选择[Range[5850],conQ[#]&](*Jayanta Basu_2013年5月21日*)%o A068700(平价)(n=2200,如果(isprime(n*10^ceil(log(n-1)/log(10))+n-1)*iPrime(n*10^ceil(log(n+1)/log(10))+n+1)==1,print1(n,“,”)%o A068700(哈斯克尔)%已订购导入数据(isect 68700列表)%o A068700 A068700 n=A068700 U列表!!(n-1)%o A068700 A068700 U列表=isect a030457 U列表a054211 U列表%o A068700--Reinhard Zumkeller,2015年6月27日%Y A068700 A030458和A052089的通用术语。%Y A068700 A030457与A054211交叉口;A102478号。%K A068700底座,无%O A068700 1,1%A A068700阿玛纳特·穆尔蒂,2002年3月4日%E A068700 2002年3月9日从_Benoit Cloitre_获得更多条款#根据OEIS最终用户许可协议提供内容:http://oeis.org/LICENSE