登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A006049号 使n和n+1具有相同数量的不同素数。 31

%我

%第2,3,4,7,8,14,16,20,21,31,33,34,35,38,39,44,45,50,51,54,55,56,57,62,

%电话68,74,75,76,85,86,87,91,92,93,94,95,98,991111111111718122,

%美国电话123127133134135141142143144145146147152158159160161171175

%N个数N使得N和N+1具有相同数量的不同素数。

%C序列是无限的,正如Schlage Puchta所证明的:“Buttkewitz发现了一个非计算性的证明,而Goldston-Pintz-Yildirim筛能产生更精确的信息。”_Charles R Greathouse IV,2013年1月9日

%直流电。克劳森,《数学奥秘》,普伦出版社1996年版,第页。250

%H Amiram Eldar,<a href=“/A006049/b006049.txt”>n,a(n)表格,n=1..10000</a>(T。D。否)

%H Jan Christoph Schlage Puchta,<a href=“http://arxiv.org/abs/1105.1621“>方程式ω(n)=ω(n+1)</a>,arXiv:1105.1621[math.NT],2011年。

%F A001221(a(n))=A001221(a(n)+1.-_Reinhard Zumkeller,2013年1月22日

%t f[n_u]:=长度@FactorInteger[n] ;t=f/@范围[175];压平@位置[休息[t]-大多数[t],0](*\u Ray Chandler_2007年3月27日*)

%t Select[Range[200],PrimeNu[#]==PrimeNu[#+1]&](*\u Harvey P。戴尔,2012年5月9日*)

%t Flatten[Position[Partition[PrimeNu[Range[200]],2,1],\u?(#[[1]]==\[[2]]&),{1},头->假]](*_harveyp。戴尔,2015年5月22日*)

%t SequencePosition[PrimeNu[Range[200]],{x,x}][[All,1]](*需要Mathematica版本10或更高版本*)(*u Harvey P。戴尔,2019年6月2日*)

%o(PARI)为(n)=ω(n)=ω(n+1)\\\\ Charles R Greathouse IV,2013年1月9日

%o(哈斯凯尔)

%o导入数据列表(elemIndices)

%o a006049 n=a006049表(n-1)

%o a006049_list=地图(+1)$elemIndices 0$

%o zipWith(-)(尾部a001221 U列表)a001221 U列表

%o--Reinhard Zumkeller,2013年1月22日

%Y比照A001221、A052215、A107800、A006073。

%A062974的Y子序列。

%不,简单,不错

%O 1,1号

%安安。J。A。斯隆。

%2007年3月27日

查找|欢迎光临|维基|登记_|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:2021年6月23日22:56。包含345402个序列(在oeis4上运行。)