|
| |
|
| A134204号 |
| a（0）=2；对于n>0，a（n）=序列中未出现的最小素数，使得a（n-1）+a（n”）是n的倍数。如果不存在这样的素数，则序列终止。 |
|
17
|
|
|
|
2, 3, 5, 7, 13, 17, 19, 23, 41, 31, 29, 37, 11, 67, 59, 61, 83, 53, 73, 79, 101, 109, 89, 233, 103, 47, 239, 139, 113, 293, 97, 151, 137, 127, 43, 167, 157, 509, 251, 373, 107, 467, 163, 181, 347, 193, 313, 439, 281, 307, 443, 271, 197, 227, 367, 733, 331, 353, 401, 71, 229
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,1
|
|
|
评论
|
这个序列是无限的吗？如果是，它是素数的排列吗？
当且仅当a（n-1）从未将n除以任何n时，该序列才是无限的。
经验上，图案填充的方向与n的奇偶性有关，每个图案填充对应于具有相同值Sum_{k=1..n}（（-1）^k*（a（k-1）+a（k））/k）的项（参见链接部分中的彩色散点图）-雷米·西格里斯特2017年11月7日
|
|
|
链接
|
N.J.A.斯隆，八个仇恨序列2008年5月，加德纳第八次聚会的一篇短文。
|
|
|
例子
|
项a（0）到a（6）之间没有出现的素数构成序列11,23,29,31，。。。其中，23是最小的，当与a（6）=19相加时，得到7的倍数--19+23=42=6*7。（19+11=30，不是7的倍数。）所以a（7）=23。
|
|
|
数学
|
aa={a[0]=2，a[1]=3}；a[n_]：=a[n]=（an=第一个[Complement[Prime[Range[1+PrimePi[Max[aa]]]，aa]]；而[Not[FreeQ[aa，an]&&Divisible[a[n-1]+an，n]]，an=下一个Prime[an]]；AppendTo[aa、an]；an）；表[a[n]，{n，0，60}](*Jean-François Alcover公司2012年10月17日*）
T.D.诺伊2013年4月5日，提供了关于如何获得他的图（见链接）的以下信息：我计算了500000点，然后绘制了y=10^6。以下是Mma代码（运行需要一些时间）：
t={2}；Do[k=天花板[t[[-1]]/n]；
而[p=k*n-t[[-1]]！PrimeQ[p]||成员Q[t，p]，k++]；
如果[2 p<n，打印[{n，p，n[n/p]}]]；
附加到[t，p]，{n，500000}]
ListPlot[t，PlotRange->{1，1000000}，帧->真，
PlotStyle->{PointSize[0.005]}，ImageSize->500，
PlotLabel->“\nA134204（n）\n”，网格线->自动]
使用[{nn=10^3}，Fold[Append[#1，SelectFirst[Prime@Range[2，Ceiling@Log2[nn]nn]，Function[p，And[FreeQ[#1、p]，Divisible[Last@#1+p，#2]]]&，{2}，Range@nn]](*迈克尔·德弗利格2017年10月16日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（删除）
a134204 n=a134204_列表！！n个
a134204_list=2:f 1 2（尾部a000040_list），其中
f x q ps=p'：f（x+1）p'（删除p'ps），其中
p'=头部[p|p<-ps，mod（p+q）x==0]
（平价）A134204号（n，show_all=1，a=2，used=[]）={for（n=1，n，show _all&print1（a“，”）；used=setunion（used，Set（a））；forstep（p=（-a）%n，9e19，n，isprime（p）||next；setsearch（used、p）&next；a=p；break））；a}\\M.F.哈斯勒2013年3月1日
|
|
|
交叉参考
|
囊性纤维变性。A134205年,A134206号,A134207号,A133242号,A133243号,A131261号,A224221号,A224222号,A224223号,A224229型,A232992型.
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
