A069090-OEIS公司

A069090美元

素数，其适当的初始段都不是素数。

2, 3, 5, 7, 11, 13, 17, 19, 41, 43, 47, 61, 67, 83, 89, 97, 101, 103, 107, 109, 127, 149, 151, 157, 163, 167, 181, 401, 409, 421, 443, 449, 457, 461, 463, 467, 487, 491, 499, 601, 607, 631, 641, 643, 647, 653, 659, 661, 683, 691, 809, 811, 821, 823, 827, 829 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,1`
	链接	`Franklin T.Adams-Waters和R.Zumkeller，n=1..10000时的n，a（n）表（富兰克林·亚当斯·沃特斯（Franklin T.Adams-Waters）的前1000个术语）` `巴里·卡特，n=1.1411151的n，a（n）表（bz2压缩）` `巴里·卡特，Mathematica程序` `堆栈交换，到达素数之前的位数`
	例子	`499的适当初始段是4和49，它们都不是素数。所以499是序列的一个项。`
	MAPLE公司	`isA069090:=进程（n）` `本地dgs，l；` `如果是素数（n），则` `dgs:=转换（n，基数，10）；` `ndgs:=nops（dgs）；` `对于l从1到ndgs-1 do` `加（op（ndgs+i-l+1，dgs）*10^i，i=0..l-1）；` `如果isprime（%），则` `返回false；` `结束条件：；` `结束do：` `真；` `其他的` `假；` `结束条件：；` `结束进程：` `n从2到830 do` `如果是A069090（n），则` `printf（“%d，”，n）；` `结束条件：；` `结束do：#R.J.马塔尔2016年12月15日`
	数学	`选择[Prime[Range[200]]、NoneTrue[FromDigits/@Table[Take[IntegerDigits[#]，n]、{n、IntegerLength[#]-1}]、PrimeQ]&]（程序使用Mathematica版本10中的NoneTruefunction）(哈维·P·戴尔，2016年7月24日）`
	黄体脂酮素	`（PARI）ina（n）=如果（！i素数（n），返回（0））；while（n>9，n=10；if（isprime（n），return（0））；1 \\富兰克林·T·亚当斯-沃特斯，2009年6月26日` `（哈斯克尔）` `导入数据。列表（inits）` `a069090 n=a069090_列表！！（n-1）` `a069090_list=过滤器` `（全部（==0）。地图（a010051.read）。初始化。尾巴。初始化。表演）` `a000040_列表` `--莱因哈德·祖姆凯勒2014年3月11日` `（Python）` `从sympy导入primerage，isprime` `定义正常（p）：` `s=str（p）` `如果长度==1：返回True` `为范围（1，len（s））中的i返回所有（非isprime（int（s[：i]））` `定义缺陷（lim）：` `alst=[]` `对于素数范围（1，lim+1）中的p：` `如果正常（p）：同样追加（p）` `返回alst` `打印（aupto（829））#迈克尔·布拉尼基2021年7月3日`
	交叉参考	`参见。A074721号. [富兰克林·T·亚当斯-沃特斯，2009年6月26日]` `参见。A000040型,A010051型,A276707型.` `上下文中的序列：A216496型 A069709号 A144755号321150英镑 A088415型 A175063号` `相邻序列：A069087号 A069088型 A069089号A069091号 A069092号 A069093号`
	关键字	`基础,非n`
	作者	`约瑟夫·佩伊2002年4月5日`
	扩展	`更多术语来自富兰克林·T·亚当斯-沃特斯，2009年6月26日`
	状态	`经核准的`

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

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

上次修改时间：2024年4月24日08:59 EDT。包含371935个序列。（在oeis4上运行。）