#来自在线整数序列百科全书的问候!http://oeis.org/搜索:id:a006049显示第1-1页,共1页%一A006049%S A006049 2,3,4,7,8,14,16,20,21,31,33,34,35,38,39,44,45,50,51,54,55,56,57,62,%电话:A006049 68,74,75,76,85,86,87,91,92,93,94,95,98,991111111111718122,%U A006049 123127133134135141142143144145146147152158159160161171175%使N和N+1具有相同数量的不同素数。%cA006049序列是无限的,正如Schlage Puchta所证明的:“Buttkewitz发现了一个非计算性的证明,而Goldston-Pintz-Yildirim筛得到了更精确的信息。”_Charles R Greathouse IV,2013年1月9日%D A006049 C。克劳森,《数学奥秘》,普伦出版社1996年版,第页。250%H A006049阿米拉姆·埃尔达,n=1..10000的n,a(n)表(条款1..2500。D。否)%H A006049 Jan Christoph Schlage Puchta先生,方程式ω(n)=ω(n+1),arXiv:1105.1621[math.NT],2011年。%F A006049 A001221(a(n))=A001221(a(n)+1_Reinhard Zumkeller,2013年1月22日%电话:A006049传真:长度@FactorInteger[n] ;t=f/@范围[175];压平@位置[休息[t]-大多数[t],0](*\u Ray Chandler_2007年3月27日*)%t A006049选择[Range[200],PrimeNu[#]==PrimeNu[#+1]&](*_harveyp。戴尔,2012年5月9日*)%t A006049 Flatten[Position[Partition[PrimeNu[Range[200]],2,1],\u?(#[[1]]==\[[2]]&),{1},头->假]](*\u Harvey P。戴尔,2015年5月22日*)%t A006049 SequencePosition[PrimeNu[Range[200]],{x,x}][[All,1]](*需要Mathematica版本10或更高版本*)(*Harvey P。戴尔,2019年6月2日*)%o A006049(PARI)is(n)=欧米茄(n)=欧米茄(n+1)\\\\ u Charles R Greathouse IV,2013年1月9日%o A006049(哈斯克尔)%o A006049导入数据列表(elemIndices)%o A006049 A006049 n=A006049_列表(n-1)%o A006049 A006049_list=地图(+1)$elemIndices 0$%o A006049 zipWith(-)(尾部a001221 U列表)a001221 U列表%o A006049--Reinhard Zumkeller,2013年1月22日%Y A006049,参见A001221、A052215、A107800、A006073。%Y A006049 A062974的子序列。%K A006049不,简单,不错%O A006049 1,1%A A006049安。J。A。斯隆。%E A006049,2007年3月27日由雷·钱德勒延长#根据OEIS最终用户许可协议提供内容:http://oeis.org/LICENSE