登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自百科全书行上的整数序列!)
A089395型 素数n:设n的位数为abcd。那么bcd*a+1,cd*ab+1,d*abc+1,abcd+1等都是素数。如果n是一个k位数,它产生k个这样的素数。 4
1、2、4、6、12、16、22、28、36、52、58、66、82、106、112、136、166、178、256、306、336、352、448、502、508、556、562、586、616、652、658、718、982、1018、1108、1162、1192、1228、1498、1708、2002、2026、2086、2686、2776、2998、3136、3412、3526、3592、4078、4918 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,2个

评论

猜想:序列是无限的。

链接

哈维·P·戴尔,n=n的表0(*所有条款不超过100万*)

例子

256是一个成员,因为2*56+1=113,25*6+1=151和256+1=257都是素数。

枫木

结合(combinaat):ds:=proc(s)localj:返回(add(s[j]*10^(j-1),j=1..nops(s)))):结束:为d从1到6的d做什:=[seq([1,op(i),d+1],i=[[[],seq([j],j=2..d)]]]:对于n从10^(d-1)到10^d-1做sn:=转换(n,基本,10):fl:=0:对于在施中的s,做m:=m=mul(j,j=[全社会[s[s[s[s[j],s[j[s[s[j],s[s[s[j]s[j]s[s[s[s[s[s[i]..s[i+1]-1]),i=1..nops(s)-1)])+1:如果不是isprime(m),那么fl:=1:中断fi od:如果fl=0然后打印F(“%d”,n)外径:#C.罗纳尔多

数学

ppnQ[n_9]:=模式[n,10]!=0&&AllTrue[Times@@@Table[FromDigits/@TakeDrop[IntegerDigits[n],k]/.(0->1),{k,IntegerLength[n]}]+1,PrimeQ];选择[Range[5000],ppnQ](*程序使用Mathematica版本10*中的AllTrue和TakeDrop函数*)(*哈维·P·戴尔2019年3月23日*)

交叉引用

囊性纤维变性。A089392号,A089393号,A089394号,A089396号,A089397号.

上下文顺序:A090748号 邮编:A188047 A032465号*A089699号 A089696号 A160719号

相邻序列:A089392号 A089393号 A089394号*A089396号 A089397号 A089398号

关键字

基础,

作者

阿玛纳特·穆尔蒂2003年11月10日

扩展

C.罗纳尔多(aga_new_ac(AT)hotmail.com)更正并扩展,2004年12月25日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年10月26日16:34。包含338027个序列。(运行在oeis4上。)