OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A246428型 素数p,使得p与p的数字和的连接也是素数。
11, 19, 23, 29, 31, 41, 43, 53, 59, 61, 67, 89, 97, 113, 149, 151, 163, 173, 181, 211, 229, 233, 271, 293, 317, 331, 337, 347, 349, 353, 359, 379, 389, 419, 431, 433, 443, 449, 463, 467, 479, 521, 547, 563, 577, 599, 613, 619, 631, 653, 673, 683, 691, 739, 751 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
例子
23在序列中是因为它是素数;串联[(2+3)与23=523,这也是素数。
59在序列中是因为它是质数;串联[(5+9)与59=1459,这也是素数。
MAPLE公司
使用(StringTools):A246428型:=proc()局部a,b,d,e;a: =i素数(m);b: =添加(i,i=转换((a),基数,10))(a);d: =解析(cat(a,b));e: =解析(cat(b,a));如果是质数(e),则返回(a);fi;结束时间:
序列(A246428型(),m=1..300);
数学
a245758[n-Integer]:=案例[Map[If[PrimeQ[FromDigits[Flatten[Append[List[Total[IntegerDigits[Prime[#]]]],IntegerDigits[Prime[#]]]]=True,Prime[#]]]],[#],False]&,Range[n]],_Integger];a245758[135](*迈克尔·德弗利格2014年8月7日*)
选择[Prime[Range[200]]、PrimeQ[FromDigits[Flatten[Join[{IntegerDigits[Total[IntegerDigits[#]]、IntegerDigits[#]]]]和](*哈维·P·戴尔2015年1月12日*)
黄体脂酮素
(PARI)
对于(n=1,10^3,p=素数(n);if(isprime(eval(concat(Str(sumdigits(p),Str(p))),打印1(p,“,”))\\德里克·奥尔2014年7月31日
(Python)
从sympy导入质数,isprime
A246428型=[int(n)代表n in(str(质数(x))代表x in range(1,10**3))
……….如果是素数(int(str(sum([int(d)for d in n]))+n))]
#柴华武,2014年8月27日
交叉参考
囊性纤维变性。A245759型,A245763型.
关键词
非n,基础
作者
K.D.Bajpai2014年7月31日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月2日17:45。包含373045个序列。(在oeis4上运行。)