|
| |
|
| A289548号 |
| 两个半素数兄弟中较小的一个。 |
|
1
|
|
|
|
9, 14, 21, 26, 403, 12367, 41303, 66893, 68297, 73147, 111607, 116813, 118003, 130133, 146873, 222757, 260497, 418307, 429491, 439097, 478061, 559003, 628241, 729007, 822397, 1116707, 1239869, 1595683, 1887239, 2148589, 2225669, 2481463, 2502977, 2539553
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
半素兄弟的前几个例子是{9，10}，{14，15}，}，[21，22}，[2]，33}和{403，407}。
唯一的平方项是9，唯一的偶数项是14和26。
显然，两个连续半素数因子的素数之间的差异是{-1，1}或{1，-1}。
术语数量<10^n:1、4、5、5、10、25、62、143、319、761、2010、5275等。
只有前三项的下一个半素数是下一个整数，这使它们成为双胞胎-罗伯特·威尔逊v，2018年6月21日
|
|
|
链接
|
Jonathan Vos Post、Robert G.Wilson v和Giovanni Resta，n=1..5275时的n，a（n）表（条款<10^12，条款>10^10，来自G.Resta）
|
|
|
例子
|
26在序列中是因为26=2×13，下一个半素数是33=3×11，有2～3个连续素数和11～13个连续素数。
403在序列中是因为403=13*31，下一个半素数是407=11*37，其中11&13和31&37是连续素数。
|
|
|
数学
|
p=q=4；fp=fq={1,1}；lst={}；当[p<26000000时，当[fq=Flatten[表[#1，{#2}]&@@@FactorInteger@q]；长度@fq！=2，q++]；d=排序[｛fp，fq｝]；如果[NextPrime[d[[1,1]]]==d[[2,1]]&&NextPrime[d[2,2]]]==d[[1,2]]，则附加到[lst，p]]；p=q；fp=fq；q++]；第一次
|
|
|
黄体脂酮素
|
（PARI）isok（p，q）=（nextprime（p+1）==q）||（nextprime（q+1）==p）；
pairp（n）=如果（issquare（n），向量（2，k，sqrtint（n）），（因子（n）[，1]）~）；
列表a（nn）={na=2；while（na<nn，if（bigomega（na）！=2，na++，nb=na+1；whiles（bigometa（nb）！=2，nb++）；fpa=pairp（na）；fpb=pairp[nb）；if（isok（fpa[1]，fpb[1]）&&isok（fpga[2]，fpb[2]），print1（na，“，”）；na=nb；）；}\\米歇尔·马库斯2017年7月11日
（Python）
来自sympy import factorint，nextprime
定义为半质数（n）：
返回和（e代表因子（n）.values（）中的e）==2
定义next_semiprime（n）：
nxt=n+1
当不是is_semiprime（nxt）时：nxt+=1
返回nxt
定义为连续（p，q）：
return max（p，q）==下一素数（min（p，q））
定义正常（n）：
如果不是is_semiprime（n）：返回False
nextsp=next_semiprime（n）
fn，fm=因子（n，多个=真），因子（nextsp，多个=真）
返回are_consecutive（fn[0]，fm[0]）和are_conceutive（fn[1]，fm[1]）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
