|
| |
|
| A215419号 |
| 当一个数字3插入任意两个连续数字之间或作为前导或尾随数字时，保持为素数的素数。 |
|
25
|
|
|
|
7, 11, 17, 31, 37, 73, 271, 331, 359, 373, 673, 733, 1033, 2297, 3119, 3461, 3923, 5323, 5381, 5419, 6073, 6353, 9103, 9887, 18289, 23549, 25349, 31333, 32933, 33349, 35747, 37339, 37361, 37489, 47533, 84299, 92333, 93241, 95093, 98491, 133733, 136333, 139333
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
18289是黄金，182893、182839、182389、183289、138289、318289也是黄金。
|
|
|
MAPLE公司
|
局部a、b、c、d、i、n、ok；
对于从1到q do的n
a： =ithprime（n）；b： =0；当a>0时，b:=b+1；a： =trunc（a/10）；od；
a： =ithprime（n）；确定：=1；
对于i从0到b do
c： =a+9*10^i*trunc（a/10^i）+10^i*x；如果不是质数（c），则ok:=0；断裂；fi；
od；
如果ok=1，则打印（ithprime（n））；fi；
od；结束时间：
#备选方案：
过滤器：=proc（n）局部L，d，k，M；
如果不是isprime（n），则返回false fi；
五十： =换算（n，基数，10）；
d： =nops（L）；
对于k从0到d do
M： =[序列（L[i]，i=1..k），3，序列（L[i]，i=k+1..d）]；
如果不是isprime（加（M[i]*10^（i-1），i=1..d+1）），则返回false fi；
od；
真的
终末程序；
选择（过滤器，[seq（i，i=3..2*10^5，2）]）#罗伯特·伊斯雷尔2017年10月9日
|
|
|
数学
|
英寸@n_：=插入[整数位数@n，3，#]&/@范围@(整数长度@n+1);
案例[{#，FromDigits@#&/@ins@#}&/@案例[Range[11,70000]，_？素数Q]，{_，{_？素数Q..}}][[全部，1]](*汉斯·鲁道夫·威德默2023年12月21日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
