|
|
A125590型 |
| 最大的n位十进制可删除素数。 |
|
1
|
|
|
7, 97, 997, 9973, 99929, 999907, 9999907, 99999307, 999996671, 9999996073, 99999966307, 999999908773, 9999999710639, 99999999697769, 999999997160639, 9999999996977699, 99999999980803477, 999999999961861807, 9999999999961861807, 99999999999807429133
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
素数p是一个以b为基数的可删除素数,如果它具有删除某些数字后会留下空字符串或另一个可删除的素数的特性。“数字”是指以b为基数的数字。
删除数字不能在新字符串中保留任何前导零。例如,不允许在2003年删除2以获得003。
|
|
参考文献
|
C.Caldwell,可截断素数,J.娱乐数学。,19:1 (1987) 30-33. [讨论左截断素数、右截断素数和可删除素数。]
|
|
链接
|
I.O.Angell和H.J.Godwin,关于可截断素数,数学。计算。31, 265-267, 1977.
|
|
例子
|
99929 -> 9929 -> 929 -> 29 -> 2.
|
|
数学
|
b=10;a={7};d={2,3,5,7};
对于[n=2,n<=5,n++,
p=选择[Range[b^(n-1),b^n-1],PrimeQ[#]&];
对于[i=1,i<=长度[p],i++,
c=整数位数[p[i]],b];
对于[j=1,j<=n,j++,
t=删除[c,j];
如果[t[[1]]==0,则继续[]];
如果[MemberQ[d,FromDigits[t,b]],AppendTo[d,p[i]]];中断[]]];
附加到[a,Last[d]]];
|
|
黄体脂酮素
|
(Python)
来自症状输入isprime,prevprime
从functools导入缓存
@高速缓存
定义可删除素数(n):
如果不是isprime(n):返回False
如果n<10:返回True
s=str(n)
si=(s[:i]+s[i+1:]对于范围内的i(len(s)))
对于si中的t,返回任意(t[0]!='0'和deleteable_prime(int(t))
定义a(n):
p=预备役(10**n)
当不可删除素数(p)时:p=前素数(p)
返回p
打印([a(n)代表范围(1,15)中的n])#迈克尔·布拉尼基2022年1月13日
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|