%I#26 2024年1月7日07:33:39

%S 15,26,39,49,51,58,62,85,93,94115122123129143155159169，

%电话：177178183185187203205221226289302314319321326327，

%电话：32933533934135538139439841341543749349750251514533

%N Emirpimes：数字N，使得N及其反转是不同的半素数。

%C由_Eric W.Weisstein_计算，2004年8月13日。

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Emirpimes.html“>发射器时间</a>

%e26是一个半素数，因为它是2*13，所以它是62=2*31。因此，26和62都在序列中。

%p是A097393:=进程（n）

%p局部R；

%p R：=数字（n）；

%p如果R<>n，则

%p如果numtheory[bigomega]（R）=2且numtheori[bigometga]（n）=2，则

%p返回true；

%p其他

%p错误；

%p end if；

%p其他

%p假；

%p end if；

%p端程序：

%p代表从1到500 do的n

%p如果是A097393（n），则

%p打印f（“%d，”，n）；

%p end if；

%截止日期：#R.J.Mathar_，2012年4月5日

%t个案例[{#，IntegerReverse@#}&/@DeleteCases[范围@5000, _?回文Q]，{_？（PrimeOmega@#==2&）..}][[All，1]]（*Hans Rudolf Widmer_，2024年1月7日*）

%o（PARI）rev（n）=subst（Polrev（数字（n）），'x，10）

%o issemi（n）=bigomega（n）==2

%o列表（lim）=我的（v=列表（），r）；对于素数（p=2，lim\2，对于素数，q=2，min（lim\p，p），r=rev（p*q）；如果（issemi（r）&&r=p*q，列表输入（v，p*q））；Set（v）\\_Charles R Greathouse IV_，2015年1月27日

%o（Python）

%o来自sympy进口保理商

%o从itertools导入岛

%o定义sp（n）：f=因子（n）；f中p的返回和（f[p]）==2

%o定义ok（n）：r=int（字符串（n）[：：-1]）；返回r！=n和sp（n）和sp（r）

%o打印（[k代表范围（534）中的k，如果可以（k）]）#_Michael S.Branicky_，2022年7月3日

%Y参见A001358、A097394。

%Y等于A085751\A046328。

%K nonn，基础

%O 1,1号机组

%乔纳森·沃斯帖子（_Jonathan Vos Post）_