|
| |
| |
|
|
|
0, 0, 5, 26, 124, 852, 7550, 86125, 1250924, 23748764
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
表示primorial p_n#的方法数量=A002110号（n） 当（素数（i）-素数（j））/2也是素数时，as（素数）+素数（j））/2。
设p_n<q<=素数（pi（p_n#）），其中pi（p_n#）=A000849号（n） ●●●●。所有这些素数q都是与本原p_n#互素的，因为它们大于p_n#的最大素数因子。由a（n）计数的两个素数之一必须是素数q，另一个素数r=（2p_n#-q）。此外，（r-q）必须是素数才能被a（n）计数。因此，计算a（n）的一种有效方法是从生成素数p_n#的素数总和素数（n+1）<=q<=素数（pi（p_n#））的范围开始，其数量由下式给出A048862号（n） ●●●●。
|
|
|
链接
|
|
|
|
例子
|
a（3）=5，因为有5种表达方式A002110号（3） =30 as（素数（i）+素数（j））/2 with（素数
(53 + 7)/2 = 30, (53 - 7)/2 = 46/2 = 23
(47 + 13)/2 = 30, (47 - 13)/2 = 34/2 = 17
(43 + 17)/2 = 30, (43 - 17)/2 = 26/2 = 13
(41 + 19)/2 = 30, (41 - 19)/2 = 22/2 = 11
(37 + 23)/2 = 30, (37 - 23)/2 = 14/2 = 7.
|
|
|
数学
|
使用[{j=10^3}，Do[Module[{P=Times@@Prime@Range@n，m}，m=PrimePi@P；Print@Total@Reap[Do[Sow@Count[Map[{2P-#，#}&，Prime@Range[Max[n，k]，Min[k+j-1，m]]]，w_/；和[PrimeQ@First@w，PrimeQ[（Subtract@@w）/2]]，{k，1，m，j}]][[-1，1]]，}n，9}]]（*或*）
表[函数[P，计数[Map[{2 P-#，#}&，#]，w_/；和[PrimeQ@First@w，PrimeQ[（Subtract@@w）/2]]&@Flatten@Select[Prime@Range[n+1，PrimePi[P]]，Times@@Boole@Map[PrimeQ，{#，P-#}]==1&]]@Product[Prime@i，{i，n}]，{n，9}](*迈克尔·德弗利格2017年5月3日*）
countOfPrimes=0
countOfPrimes2=0
Primes3计数=0
Pn10=2*3*5*7*11*13*17*19*23*29
PnToUse=Pn10
distanceToCheck=PnToUse
对于[i=0，i<distanceToCheck，i++，
如果[PrimeQ[2*PnToUse-i]，
Primes计数++
如果[PrimeQ[（2*PnToUse-i）-PnToUse]，
素数2++
如果[PrimeQ[i]，
素数3++]]，]]
打印[countOfPrimes3]
（*Pn（10）的代码示例输出a（10）=23748764*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,坚硬的,更多
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
