登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
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.
C.考德威尔,可删除素数
卡洛斯·里维拉,谜题138:可删除素数、主要难题和问题连接。[包括一个500位数的示例]
例子
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]]];
一个(*罗伯特·普莱斯2018年11月13日*)
黄体脂酮素
(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,基础
作者
N.J.A.斯隆2007年1月7日
扩展
a(6)-a(8)来自迈克尔·克莱伯2007年1月8日
a(9)-a(16)来自约书亚·祖克,2007年5月11日
a(17)-a(20)来自迈克尔·布拉尼基2022年1月13日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年3月28日05:39。包含371235个序列。(在oeis4上运行。)