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

 

标志
提示
(问候来自整数序列在线百科全书!)
A097393号 半素数:数n使得n和它的反转是不同的半素数。 30

%我

%第15、26、39、49、51、58、62、85、93、9411512212312914315158159169节,

%电话:17717818318518720320522122626528930231431932132627,

%美国32933533934135538139439841341543749349750251514533

%N个半素数:使N和它的倒数都是不同的半素数。

%C 2004年8月13日,由Eric W.Weisstein_u计算。

%H Charles R Greathouse IV,<a href=“/A097393/b097393.txt”>n,a(n)表,n=1..10000</a>

%埃里克·韦斯坦的数学世界,<a href=“http://mathworld.wolfram.com/Emirpimes.html“>埃米尔皮斯</a>

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

%p isA097393:=过程(n)

%p局部R;

%p R:=digrev(n);

%p如果R<>n则

%p如果numtheory[bigomega](R)=2且numtheory[bigomega](n)=2,则

%p返回真值;

%p其他

%p错误;

%p结束if;

%p其他

%p错误;

%p结束if;

%p结束过程:

%p代表n,从1到500 do

%p如果是isA097393(n),则

%p printf(“%d”,n);

%p结束if;

%p结束时:。J、 马萨,2012年4月5日

%t Select[Range[500],PrimeOmega[#]==2&&PrimeOmega[FromDigits[Reverse[IntegerDigits[#]]]==2&](*\u Alonso del Arte_2012年10月8日*)

%o(PARI)rev(n)=subst(Polrev(数字(n)),'x,10)

%o issemi(n)=大ω(n)==2

%o list(lim)=我的(v=list(),r);对于素数(p=2,lim\2,对于素数(q=2,min(lim\p,p),r=rev(p*q);如果(issemi(r)&&r=p*q,listput(v,p*q)));2015年1月27日第四集

%o(Python)

%o来自sympy import factorint

%o从itertools import islice

%o def sp(n):f=因数(n);返回和(f中p的f[p]==2

%o def ok(n):r=int(str(n)[::-1]);返回r!=n和sp(n)和sp(r)

%o打印([k代表k范围内的k(534),如果ok(k)];#_MichaelS.Branicky,2022年7月3日

%Y比照A001358、A097394。

%基诺

%O 1,1号

%乔纳森·沃斯邮报_

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

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

上次修改时间:2022年9月24日17:17。包含356945个序列。(运行在oeis4上。)