登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
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页。
链接
哈维·P·戴尔,n=1..100时的n,a(n)表
C.A.Pickover,“数字奇观,数学冒险,心智和意义”Zentralblatt审查
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
A059758号_列表=[]
对于范围(1300)内的l:
对于'1379'中的a:
对于‘0123456789’中的b:
如果a!=b:
p=整数((a+b)*l+a)
如果是质数(p):
A059758号_列表.附加(p)#柴华湖2014年12月21日
交叉参考
囊性纤维变性。A032758号.
关键词
非n容易的基础
作者
杰夫·海琳2001年2月11日
扩展
更多术语来自詹姆斯·塞勒斯2001年2月13日
状态
已批准

查找|欢迎|维基|寄存器|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月29日02:23。包含371264个序列。(在oeis4上运行。)