A366047-OEIS公司

366047美元

从a（1）=2开始，字典序上最早的不同正整数的无限序列，使得|a（n）-a（n-1）|是a（n）*a（n-1。

2、6、10、14、18、9、36、12、4、8、16、20、24、15、30、21、42、28、32、40、44、22、26、52、48、39、78、60、35、70、45、54、27、108、72、56、64、68、34、38、76、80、55、110、66、33、132、84、63、90、65、130、104、88、92、46、50、25、150、75、100、96、87、174、58、62、124、116、112、98、49、392 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`对于无限序列，除了a（1）=2之外，没有任何项可以是素数。可以证明，如果a（n）是素数p，那么a（n-1）的唯一可能值是2p或p+p^2，因为如果一个项是素数，那么前面的项必须是该素数的倍数。然而，前面的项不能是2p，因为两个项之间的差就是质数，所以它必须是p+p^2。然而，素数p之后的项的唯一可能值也是p+p^2，但它已经被使用过了，因此允许项为素数将终止序列。`
	链接	`斯科特·R·香农，n，a（n）表，n=1.10000.` `迈克尔·德弗利格，a（n）的对数散点图n=1..1024，用金色表示素数幂，绿色表示无平方数，蓝色表示既非无平方数也非素数幂的数，浅蓝色突出显示非素数的强大数。`
	例子	`a（9）=4等于\|4-a（8）=\|4-12\|=8，8是412=48的除数，不是素数。请注意，\|3-12 \|=9是312=36的除数，不是素数，但如上所示，素数项将终止序列，因此不允许。`
	数学	`nn=120；c[_]：=错误；s={2,6}；` `f[x_]：=倍@@FactorInteger[x][[All，1]]；` `映射索引[集合[{a[First[#2]]，c[#1]}，{#1，True}]&，s]；` `集合[{j，u}，{s[[-1]]，4}]；` `Do[k=u；` `而[或[c[k]，#1<4，PrimeQ[#1]，` `! 可分[jk，#1]！可分割[j，#2]！可分[k，#2]和@@` `{#，f[#]}&@Abs[j-k]，k++]；` `集合[{a[n]，c[k]，j}，{k，True，k}]；` `如果[k==u，While[或[c[u]，素数Q[u]]，u++]]，{n，长度[s]+1，nn}]；` `数组[a，nn](迈克尔·德弗利格2023年9月29日*）`
	交叉参考	`囊性纤维变性。A027750型,A366111飞机,A365984型,A363576型,359799英镑.` `上下文中的序列：A191259号 A184914号 A232176型A187884号 A068977号 2015年5月38日` `相邻序列：A366044飞机 A366045型 A366046飞机A366048型 A366049型 A366050型`
	关键词	`非n`
	作者	`斯科特·R·香农2023年9月27日`
	状态	`经核准的`