|
| |
|
| A138348号 |
| 较小的双素数，这样两个双素数都没有基b，1<b<p-1，其中p是回文。 |
|
2
|
|
|
|
137, 4337, 8291, 9419, 10937, 13757, 19427, 20981, 36011, 38327, 43397, 59441, 71327, 74717, 76871, 90437, 91571, 117239, 120941, 121019, 167021, 181787, 191561, 196871, 197597, 221717, 228881, 239387, 240881, 271277, 279119, 289031
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
的质数索引A138348号: {33, 592, 1040, 1165, 1328, 1627, 2201, 2359, 3826, 4046, 4524, 6009, 7060, 7367, 7557, 8756, 8852, ...
|
|
|
链接
|
|
|
|
数学
|
回文基[n_]：=模块[{p}，表[p=整数位数[n，b]；如果[p==反向[p]，{b，p}，序列@@{}]，{b，2，n-2}]]；lst={}；Do[If[Length@palindromicBases@Prime@n==0，AppendTo[lst，素数@n]]，{n，22189}]；lst[[#]]&/@选择[Range@Length@lst-1，lst[[#]]+2==lst[#+1]]&]
f[n_]：=块[{k=2}，而[id=整数位数[n，k]；id！=反转@id，k++]；k] ；lst={2}；Do[p=Prime@n；如果[f@p==p-1，AppendTo[lst，p]；打印@p]，{n，128149}]；lst[[#]]&/@选择[范围@11284，第一[[#]]+2==第一[[#1]]&]
nbQ[n_]：=NoneTrue[Table[IntegerDigits[n，b]，{b，2，n-2}]，#==Reverse[#]&&NoneTrue[Table[CintegerDiges[n+2，b]；选择[Select[Partition[Prime[Range[26000]]，2，1]，#[2]]-#[1]]==2&][[All，1]]，nbQ]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2021年6月3日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
