|
|
A096523号 |
| 解决方案A096520号[x] >5,即与c=2^x中心和r=Ceiling[Log[2^x]]相邻,出现五个以上[6,7,8,…?]素数。 |
|
14
|
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
对于前几个项,2^(a[j])对应邻域中的素数为6,6,8,6,6、6、7、6。
|
|
数学
|
{ta=表[0,{1000}],u=1};Do[s=计数[表[PrimeQ[2^n+i],{i,-天花板[Log[2^n]//n],天花板[Log[2]//n]}],True];如果[Greater[s,5],打印[{n,s}];ta[[u]]=n;u=u+1],{n,1,1000}];塔
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|