A211686-OEIS公司

A211686型

素数>10000，使得所有长度>=4的子串都是素数（前导为“0”的子串被认为是非素数）。

11093, 11171, 11933, 12011, 12239, 12377, 12791, 12917, 13037, 13217, 13613, 14519, 14591, 14813, 14831, 15233, 15791, 16073, 16091, 16217, 16673, 16691, 17333, 17417, 17477, 18233, 18311, 18713, 18719, 18731, 19013, 19319, 19739, 19973, 21319

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

只考虑大于10000的数字，因为所有4位素数都是平凡的成员。

根据定义，5位以上序列的每个项都是由先前项的重叠并集构成的，即a（254）=182339包含两个嵌入的先前项a（26）=18233和a（208）=82339。

序列是有限的，最后一项是934919（n=263）。有限性证明：设p是一个6位数以上的数。根据上面的参数，每个6位数的子字符串必须是前一项。唯一的6位数术语是182339、349199、432713、487793、511933、654799、782339、787793、917333、934919（n=254..263，请参阅b文件）。正如可以直接验证的那样，它们都不能扩展到具有所需属性的7位数。

链接

Hieronymus Fischer，n=1时的n，a（n）表。.263

例子

a（1）=11093，因为长度>=4的所有子串都是素数（1109、1093和11093）。

a（263）=941919，所有长度>=4的子串（9349、3491、4919、93491、34919和9341919）都是素数。

数学

sspQ[n_]：=模块[{idn=整数位数[n]，s1，s2}，s1=起始位数[Most[idn]]；s2=起始数字[Rest[idn]]；整数长度[s1]==整数长度[s2]==4&&AllTrue[{s1，s2}，PrimeQ]]；选择[Prime[Range[1230，9592]]，sspQ]（*程序使用Mathematica版本10*中的AllTrue函数）（*程序生成序列的所有253个253个五位（）(*哈维·P·戴尔2018年5月11日*）

交叉参考

囊性纤维变性。A019546号,A035232美元,A039996号,A046034号,A069489号,A085823号,A211681号,A211682号,A211684号,A211685型.

上下文中的序列：A236151型 A032427号 A204758型*A224463号 A300562型 A253378号

相邻序列：A211683号 A211684号 A211685型*A211687号 A211688型 A211689号

关键词

非n,完成,基础

作者

Hieronymus Fischer公司2012年6月8日

状态

经核准的