|
| |
|
| A099744号 |
| 回文n使得10n01是质数。 |
|
三
|
|
|
|
3, 5, 6, 222, 282, 353, 434, 555, 626, 656, 747, 828, 858, 929, 939, 10301, 10601, 11411, 11711, 12821, 12921, 13431, 13731, 14141, 14241, 14741, 15951, 16161, 17171, 17771, 18381, 18981, 19191, 19491, 19991, 20402, 20702, 22022, 22322
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
MAPLE公司
|
读取转换；帕尔：=[]；对于从0到8000的n，如果digrev（n）=n，那么pal:=[op（pal），n]；fi；日期：
t0:=[]；u0:=[]；对于从1到nops（pal）的n，做m:=pal[n]；p0:=“10”；p1:=“01”；t1:=猫（p0，m，p1）；t1:=转换（t1，十进制，10）；如果isprime（t1），则t0：＝[op（t0），m]；u0：=[操作（u0），t1]；fi；od:t0；#u0给出A099746号.
|
|
|
数学
|
p=选择[Range[223222]，#==FromDigits[Reverse[IntegerDigits[#]]&]；选择[p，PrimeQ[FromDigits[Join[{1，0}，IntegerDigits[#]，{0，1}]&](*罗伯特·威尔逊v2004年11月20日*）
选择[Range[23000]，PalindromeQ[#]&&PrimeQ[FromDigits[Join[{1，0}，IntegerDigits[#]，{0，1}]]&]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2021年3月26日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的,基础
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
