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；

结束if；

结束do：

真；

其他的

假；

结束if；

结束进程：

n从2到830 do

如果是A069090（n），则

printf（“%d，”，n）；

结束if；

结束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）。初始化。尾巴。inits。显示）

a000040_列表

--莱因哈德·祖姆凯勒2014年3月11日

（Python）

从sympy导入primerage，isprime

定义正常（p）：