%I#45 2024年2月27日11:32:19
%第2,15,36,39,46,54,55,73102107110118129160164187194199页,
%电话:218239271272291339358387419426464465508520553599605,
%电话:621629633667682683702709710733761791813821822829830
%N表示k,使得(1/3)*(素数(k)+素数(k+1)+素数(k+2))是素数。
%C n,其中d(n)=d(n+1),其中d。
%有趣的是,当我推广到d(n)=d(n+2),d(n。
%C发件人_雷州_,2005年12月6日:(开始)
%当(1/3)*(素数(k)+素数(k+1)+素素(k+2))是素数时,它等于素数(k+1)。
%C此外,索引k,使(素数(k)+素数(k+2)/2=素数(k+1)。
%C数学程序基于替代定义。(结束)
%C A036263(a(n))=0;A122535(n)=A000040(a(n));A006562(n)=A000040(a(n)+1);A181424(n)=A000040(a(n)+2).-_Reinhard Zumkeller,2012年1月20日
%C A262138(2*a(n))=0.-_Reinhard Zumkeller,2015年9月12日
%C素数的拐点和波动点,即A036263中零点的位置,素数的第二个差异_Gus Wiseman_,2020年3月24日
%H Harry J.Smith,n的表,n=1..1000的a(n)</a>
%H维基百科,<a href=“https://en.wikipedia.org/wiki/Inflection_point(英语)“>拐点</a>
%e a(2)=15,因为(p(15)+p(16)+p,17)=1/3(47+53+59)=53(三个连续素数的素数平均值)。
%e将素数间隙拆分为反游程得到:(1,2),(2,4,2,4,2,4,6,2,6,4,4,6),(6,2,6,4,6,6,8,4,2,4,2,4,14,6,2,10,2,6),(6,4,6)。。。那么a(n)是这些反游程长度的第n部分和_Gus Wiseman_,2020年3月24日
%t ct=0;Do[If[(素数[k]+素数[k+2]-2*素数[k+1])==0,ct++;n[ct]=k],{k,12000}];表[n[k],{k,1,ct}](*雷州,2005年12月6日*)
%t加入@@Position[Differences[Array[Prime,100],2],0](*_Gus Wiseman_,2020年3月24日*)
%o(PARI)d(n)=素数(n+1)-素数(n);j=[];对于(n=11500,如果(d(n)==d(n+1),j=concat(j,n));j个
%o(PARI)d(n)={素数(n+1)-素数(n)}{n=0;对于(m=1,10^9,如果(d(m)==d(m+1),写(“b064113.txt”,n++,“”,m);如果(n==1000,break))}\\哈里·史密斯,2009年9月7日
%o(哈斯克尔)
%o导入数据。列表(元素索引)
%o a064113 n=a064113列表!!(n-1)
%o a064113_list=映射(+1)$elemIndices 0 a036263_list
%o——Reinhard Zumkeller,2012年1月20日
%o(Python)
%o从itertools导入计数,islice
%o从sympy导入prime,nextprime
%o定义A064113_gen(startvalue=1):#术语生成器>=startvalue
%o c=最大值(起始值,1)
%o p=质数(c)
%o q=下一素数(p)
%o r=下一素数(q)
%o表示计数(c)中的k:
%o如果p+r==(q<<1):
%o产量k
%o p,q,r=q,r,下一素数(r)
%o A064113_list=list(岛屿(A064113_ gen(),20))#_Chai Wah Wu_,2024年2月27日
%Y参见A001223、A006562、A024675、A075540、A075541。
%Y参考A262138。
%A333214的Y补码。
%Y第一个差异是A333216。
%Y严格上升的版本是A258025。
%Y严格下降的版本是A258026。
%Y弱上坡型为A333230。
%Y弱下降的版本是A333231。
%Y素数的第二个差值是A036263。
%Y组成的反游程三角形为A106356。
%Y素数间隙最大行程的长度为A333254。
%Y按标准顺序排列的成分的反射线为A333381。
%Y参见A000040、A084758、A124762、A124677、A238279。
%K容易,不是
%O 1,1号机组
%A _Jason Earls,2001年9月8日
|