A358689-OEIS公司

A358689型

emirp p使2*p-reverse（p）也是emirp。

941, 1031, 1201, 1471, 7523, 7673, 7687, 9133, 9293, 9479, 9491, 9601, 9781, 9923, 10091, 10711, 12071, 14891, 15511, 17491, 17681, 18671, 32633, 33623, 34963, 35983, 36943, 36973, 37963, 39157, 70913, 72253, 72337, 72353, 73327, 74093, 75223, 75577, 75833, 75913, 77263, 77557, 79393, 79973

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1, 1

链接

罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表

例子

a（3）=1201是一个术语，因为它是emirp，即1201和它的反面1021是不同的素数，2×1201-1021=1381也是emirp。

MAPLE公司

rev:=程序（n）局部L，t；

五十： =换算（n，基数，10）；

加（L[-t]*10^（t-1），t=1..nops（L））；

结束进程：

过滤器：=proc（n）局部r，s，t；

如果不是isprime（n），则返回false fi；

r： =版次（n）；

如果r＝n或不是isprime（r），则返回false fi；

s： =2*n-r；

如果不是isprime（s），则返回false fi；

t： =转速；

t<>s和isprime（t）

结束进程：

选择（过滤器，[seq（i，i=3..100000，2）]）；

数学

emirpQ[n_]：=！回文Q[n]&&AllTrue[{n，IntegerReverse[n]}，PrimeQ]；q[n_]：=emirpQ[n]&&（d=2*n-整数反转[n]）>0&&AllTrue[{d，整数反转[d]}，emirpQ；选择[范围[80000]，q](*阿米拉姆·埃尔达尔2022年12月8日*）

交叉参考

囊性纤维变性。A006567号.

上下文中的序列：A259641型 A200428号 A104917号*A052238号 A158718号 A104302号

相邻序列：358686英镑 358687美元 A358688型*A358690型 A358691型 A358692型

关键词

非n,基础

作者

J.M.贝戈和罗伯特·伊斯雷尔2022年12月8日

状态

经核准的