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

 

标志


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

%我

%第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筛能产生更精确的信息”。-查理斯•R•格雷特豪斯四期,2013年1月9日

%D C.克劳森,《数学奥秘》,普莱恩出版社1996年,第250页。

%H Amiram Eldar,<a href=“/A006049/b006049.txt”>n=1..10000的n,a(n)表(T.D.Noe中的术语1..2500)

%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]:=长度@factoranteger[n];t=f/@Range[175];展平@位置[Rest[t]-Most[t],0](*雷·钱德勒,2007年3月27日*)

%t Select[Range[200],PrimeNu[#]==PrimeNu[#+1]&](*u Harvey P.Dale_2012年5月9日*)

%t展平[Position[Partition[PrimeNu[Range[200]],2,1],\?(#[[1]]==[[2]&),{1},Heads->False]](*#[[1]]===[[2]]&),{1},Heads->False]](*_HarveyP.Dale,2015年5月22日*)

%t SequencePosition[PrimeNu[Range[200]],{x,x}][[All,1]](*需要Mathematica版本10或更高版本*)(*哈维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号

%斯隆。

%2007年3月27日

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

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

上次修改日期:美国东部时间2020年9月18日15:48。包含337169个序列。(运行在oeis4上。)