|
| |
| |
|
|
|
4, 1, 15, 0, 93, 0, 668, 0, 5172, 0, 42042, 0, 353701, 0, 3036643, 0, 27045226, 0, 239093865, 0, 2158090933, 0, 19742800564, 0
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1，1
|
|
|
评论
|
每个具有偶数位数的回文都可以被11整除，因此是复合的（而不是素数）。因此，只有一个回文素数具有偶数位数，即11本身-马丁·瑞诺2006年4月15日
|
|
|
链接
|
塞西尔·达蒂奇、布鲁诺·马丁、乔尔·里瓦特、伊戈尔·什帕林斯基和凯西·斯威尼波尔，可逆素数，arXiv:2309.11380[math.NT]，2023。见第36页。
|
|
|
配方奶粉
|
当n>1时，a（2n）=0-柴华武，2021年11月21日
|
|
|
MAPLE公司
|
#A016115号获取列表“lis”中以10为底的回文素数的个数，其中正好有d个数字，即1<=d<=13（例如）
lis:=[4，1]；
对于d，从3到13 do
如果d:：即使如此
lis：=[op（lis），0]；
其他的
m： =（d-1）/2：
结果2:=[seq（seq（n*10^（m+1）+y*10^m+digrev（n），y=0..9），n=10^
ct：=0；对于Res2中的x，如果是isprime（x），那么ct:=ct+1；图：od：
lis：=[op（lis），ct]；
传真：
l打印（d，lis）；
日期：
|
|
|
数学
|
A016115号[n_]：=模块[{i}，如果[EvenQ[n]&&n>2，返回[0]]；返回[Length[Select[Range[10^（n-1），10^n-1]，#==IntegerReverse[#]&&PrimeQ[#]&#]]]；
（*-OR-一种不太简单的实现，但更有效的是构造回文，而不是测试范围内的每个数字。*）
如果[n==2，返回[1]；
如果[EvenQ[n]，返回[0]]；
c=0；t0=10^（（n-1）/2）；t1=t0*10；
对于[f=t0，f<t1，f++，
如果[n！=1&MemberQ[{2，4，5，6，8}，Floor[f/t0]]，f=f+t0-1；继续[]]；
如果[PrimeQ[f*t0+IntegerReverse[Floor[f/10]]]，c++]]；返回[c]]；
|
|
|
黄体脂酮素
|
（Python）
从sympy导入isprime
来自itertools导入产品
def pals（d，base=10）：#所有d位回文
digits=“”.join（str（i）代表范围（基数）中的i）
对于产品中的p（数字，重复=d//2）：
如果d>1且p[0]=“0”：继续
left=“”.join（p）；右=左[：：-1]
对于[[“”]中的mid，数字][d%2]：生成int（左+中+右）
定义a（n）：如果n%2==0，则返回int（n==2）else和（pals（n）中p的isprime（p））
打印（[a（n）代表范围（1，13）中的n]）#迈克尔·布拉尼基2021年6月23日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,坚硬的,基础,更多
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
