整数序列在线百科全书（OEIS）

修订历史记录A228566型

（粗体、蓝色下划线文本是附加;褪色的红色下划线文本是删除.)
显示所有更改。

228566英镑

a（n）是n个以上数字中的最小素数，使得前n个数字形成的数字与后n个数字构成的数字相同。
(历史;已发布版本)

#6通过乔格·阿恩特2013年8月26日周一01:31:28 EDT

状态

检验过的

经核准的

#5通过查尔斯·格里特豪斯四世2013年8月25日周日21:43:33 EDT

状态

提出

检验过的

#4通过乔瓦尼·雷斯塔2013年8月25日星期日17:43:14 EDT

状态

编辑

提出

#3通过乔瓦尼·雷斯塔2013年8月25日星期日17:41:52 EDT

链接

Giovanni Resta，<a href=“/A228566型/b228566.txt“>n表，n=1..100时为a（n）</a>

讨论

8月25日周日

17:42

乔瓦尼·雷斯塔：这是一个基本序列，但不是那么琐碎。

#2通过乔瓦尼·雷斯塔2013年8月25日星期日美国东部夏令时17:40:50

名称

分配对于乔瓦尼 Resta公司一(n个) 是这个最小的首要的属于更多比 n个数字这样的那个这个数形成通过第一 n个数字是相同的作为这个数形成通过最后的 n个数字.

数据

11, 11311, 18181, 1041041, 1212121, 1125112511, 323232323, 13513513513, 12121212121, 1021021021021, 17417417417417, 11005110051100511, 151515151515151, 11411411411411411, 38383838383838383, 1041041041041041041, 1111111111111111111, 1111111111111111111

抵消

1,1

例子

a（4）=1041041，因为1041041是最小的素数，有4个以上的数字，以相同的4位数开始和结束（此处为1041）。

数学

ric[ps_，w_]：=Catch[块[{n，d，r}，如果[w=={}，投掷@If[PrimeQ[n=FromDigits@ps]，n，0]，Do[如果[（r=ric[ps/.w[[1，1]]->d，休息@w])>0，投掷[r]]，{d，w[[1，2]]}]]；0]]; try[nd_，k_]：=块[｛v=Array[x，nd]，w，s｝，s=v/。ToRules@Reduce[Take[v，k]==Take[v，-k]]；w=表[{e，如果[e===s[[-1]]，{1，3，7，9}，如果[e===s[1]]，范围@9，范围[0，9]]]｝，｛e，DeleteDuplicates@s｝]；ric[s，w]]；a[n_]：=块[{nd=n+1，v=0}，

而[（v=try[nd，n]）==0，nd++]；v] ；数组[a，20]

交叉参考

囊性纤维变性。A228533型.

关键词

分配

非n,基础

作者

乔瓦尼·雷斯塔2013年8月25日

状态

经核准的

编辑

#1通过乔瓦尼·雷斯塔2013年8月25日星期日美国东部夏令时17:40:50

名称

分配给Giovanni Resta

关键词

分配

状态

经核准的