A319596-OEIS公司

A319596型

基-3可删除素数（以10为基数）。

三

2, 5, 7, 11, 17, 19, 23, 29, 47, 53, 59, 61, 71, 73, 83, 89, 101, 107, 137, 167, 173, 179, 181, 191, 197, 223, 233, 251, 263, 269, 317, 431, 461, 491, 503, 509, 521, 541, 547, 557, 569, 587, 593, 653, 659, 673, 677, 683, 701, 709, 719, 809, 911, 947, 953 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1，1`
	评论	`素数p是一个以b为基数的可删除素数，如果它具有删除某些数字后会留下空字符串或另一个可删除的素数的特性。` `删除数字不能在新字符串中保留任何前导零。例如，不允许在2003年删除2以获得003。`
	链接	`罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表（罗伯特·普莱斯的前177条条款）`
	MAPLE公司	`S： ={2}：计数：=0：` `p： =2；` `当计数<200 do时` `p： =下一素数（p）；` `d： =地板（对数[3]（p））；` `对于i从0到d do` `x： =p模3^（i+1）；` `q： =（x模3^i）+（p-x）/3；` `如果q>=3^（d-1）和成员（q，S），则` `S： =S联合{p}；count：=计数+1；打破` `fi（菲涅耳）` `od；` `日期：` `排序（转换（S，列表））#罗伯特·伊斯雷尔2020年11月26日`
	数学	`b=3；d={}；` `p=选择[Range[2，10000]，PrimeQ[#]&]；` `对于[i=1，i<=长度[p]，i++，` `c=整数位数[p[i]]，b]；` `如果[Length[c]==1，AppendTo[d，p[i]]]；继续[]]；` `对于[j=1，j<=长度[c]，j++，` `t=删除[c，j]；` `如果[t[[1]]==0，则继续[]]；` `如果[MemberQ[d，FromDigits[t，b]]，AppendTo[d，p[[i]]]；中断[]]]；` `d日(罗伯特·普莱斯，2018年12月5日）`
	黄体脂酮素	`（Python）` `从sympy导入isprime` `从sympy.theory.digits导入数字` `定义正常（n，基数=3）：` `如果不是isprime（n）：返回False` `如果n<3：返回True` `s=“”.join（以数字（n，base）[1:]表示d的str（d））` `si=（s[：i]+s[i+1:]对于范围内的i（len（s）））` `对于si中的t，返回任意（t[0]！=“0”和ok（int（t，base））` `打印（[k代表范围（954）中的k，如果正常（k）]）#迈克尔·布拉尼基2022年1月14日`
	交叉参考	`囊性纤维变性。A080608型,A080603型,A096235号-A096246号。` `上下文中的序列：A023238号 1949年1月 A345667飞机A235480型 A049042号 A020605号` `相邻序列：A319593型 A319594型 A319595型A319597型 A319598型 319599年`
	关键词	`非n,基础,容易的`
	作者	`罗伯特·普莱斯2018年11月14日`
	扩展	`删除了术语3。正如所指出的凯文·莱德，无需使用基本2假设“播种”列表-罗伯特·普莱斯，2018年12月5日`
	状态	`经核准的`

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

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

最后修改时间：美国东部时间2024年4月26日05:19。包含371989个序列。（在oeis4上运行。）