|
| |
|
| A089395号 |
| 素数生产数m：设m的位数为abcd。那么数字bcd*a+1，cd*ab+1，d*abc+1，abcd+1等等都是素数。如果m是一个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
|
|
|
评论
|
推测：序列是无限的。
|
|
|
链接
|
|
|
|
例子
|
256是一个术语，因为2*56+1=113、25*6+1=151和256+1=257都是素数。
|
|
|
MAPLE公司
|
with（组合）：ds:=进程局部j:RETURN（add（s[j]*10^（j-1），j=1..nops（s））：结束：对于从1到6的d do sch:=[seq（[1，op（i），d+1]，i=[[]，seq（[j]，j=2..d）]）：对于从10^（d-1）到10^d-1的n do sn:=转换（n，base，10）：fl:=0：对于sch do m中的s：=mul（j，j=[seq]（ds（sn[s[i]..s[i+1]-1]），i=1..nops（s）-1）]）+1：如果不是isprime（m）则fl:=1:break fi od:如果fl=0，则打印f（“%d，”，n）fi od:#C.罗纳尔多
|
|
|
数学
|
ppnQ[n_]：=模式[n，10]=0&&AllTrue[Times@@@Table[FromDigits/@TakeDrop[IntegerDigits[n]，k]/。（0->1），{k，整数长度[n]}]+1，素数Q]；选择[Range[5000]，ppnQ]（*程序使用Mathematica版本10*中的AllTrue和TakeDrop函数）(*哈维·P·戴尔2019年3月23日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
|
|
|
扩展
|
C.Ronaldo（aga_new_ac（AT）hotmail.com）于2004年12月25日更正和扩展
|
|
|
状态
|
经核准的
|
| |
|
|
