|
|
A059758号 |
| 波动回文质数:以10为基数的质数、回文数和交替的数字:ababab。。。带有!=b。 |
|
29
|
|
|
101, 131, 151, 181, 191, 313, 353, 373, 383, 727, 757, 787, 797, 919, 929, 18181, 32323, 35353, 72727, 74747, 78787, 94949, 95959, 1212121, 1616161, 323232323, 383838383, 727272727, 919191919, 929292929, 979797979, 989898989
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
参考文献
|
C.A.Pickover,“数字的奇迹”,牛津大学纽约分校,2001年,第52章,第123-124、316-317页。
C.W.Trigg,回文八角数,《休闲数学杂志》,15:1,第41-461982-83页。
|
|
链接
|
|
|
MAPLE公司
|
对于从3到31乘2的l,对于从0到9的i,对于从9到0的j,执行它1:=总和(i*10^(2*k),k=0..(l-1)/2):it2:=总和(j*10^(2*k+1),k=0..(l-3)/2):if isprime(it1+it2)and i<>j,然后打印f(`%d,`,it1+it2)fi:od:od:#詹姆斯·塞勒斯2001年2月13日
|
|
数学
|
t={};t1={1,3,7,9};Do[p=10a+b;q=10b+a;t=Join[t,Select[Table[(p*10^(2n+1)-q)/99,{n,4}],PrimeQ]],{a,t1},{b,Range[0,9]}];联合[t](*贾扬达·巴苏2013年6月23日*)
uppQ[n_]:=模块[{idn=IntegerDigits[n]},奇数Q[Length[idn]]&&PalindromeQ[n]&&Length[并集[Partition[idn,2]]==1];选择[Prime[Range[51*10^6],uppQ](*或*)选择[FromDigits/@Flatten[Table[Riffle[Table[n,i],k],{n,{1,3,7,9}},{i,5},{k,0,9}],2],#>9&&PrimeQ[#]&]//排序(*第二个程序明显比第一个程序快。*)(*哈维·P·戴尔2018年2月24日*)
|
|
黄体脂酮素
|
(Python)
来自症状输入isprime
对于范围(1300)内的l:
对于'1379'中的a:
对于‘0123456789’中的b:
如果a!=b:
p=整数((a+b)*l+a)
如果是质数(p):
|
|
交叉参考
|
|
|
关键词
|
非n,容易的,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|