登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A212820型 平衡素数是两个连续半素数的平均数。 2
5, 53, 173, 211, 1511, 3307, 3637, 4457, 4993, 6863, 11411, 11731, 11903, 12653, 15907, 18223, 20107, 20201, 20347, 20731, 22051, 23801, 26041, 35911, 39113, 40493, 46889, 47303, 51551, 52529, 60083, 63559, 69623, 71011, 75787, 77081, 78803, 85049, 91297 (列表图表参考历史文本内部格式)
抵消
1,1
评论
素数p是前一素数和后一素数的平均数,也是两个连续半素数的均值。
链接
阿洛伊斯·海因茨,n=1..1000时的n,a(n)表
配方奶粉
{A212820型} = {A006562号}十字路口{A103654号}.
例子
53位于序列中,因为它是47和59(两个相邻的素数)以及51和55(两个邻近的半素数)的平均值。
MAPLE公司
带有(数字理论):
prevsp:=proc(n)局部k;对于从n-1到-1的k
而isprime(k)或bigomega(k)<>2则为od;k端:
nextsp:=进程(n)局部k;对于n+1中的k
而isprime(k)或bigomega(k)<>2则为od;k端:
a: =proc(n)选项记忆;局部p;
p: =`if`(n=1,2,a(n-1));
dop:=下一素数(p);
如果p=(前素数(p)+下素数(p))/2和
p=(prevsp(p)+nextsp(p
od;第页
结束时间:
seq(a(n),n=1..40)#阿洛伊斯·海因茨2012年6月3日
数学
prevsp[n_]:=模块[{k},对于[k=n-1,PrimeQ[k]|| PrimeOmega[k]!=2,k--];k] ;
nexttsp[n_]:=模块〔{k},For〔k=n+1,PrimeQ〔k〕| | PrimeOmega〔k〕!=2,k++];k] ;
a[n]:=a[n]=模块[{p},p=如果[n==1,2,a[n-1]];而[True,p=NextPrime[p];如果[p==(NextPrime[p,-1]+NextPrime[p])/2&&p==;p] ;
表[a[n],{n,1,40}](*Jean-François Alcover公司2017年3月24日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A006562号,A103654号.
关键词
非n
作者
杰拉西莫夫·谢尔盖,2012年5月28日
状态
经核准的

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

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

上次修改时间:2024年4月19日16:08 EDT。包含371794个序列。(在oeis4上运行。)