|
|
|
|
| A257470型
|
| a（n+1）=最早未出现的最小数，使得max{a（n），a（n+1）}>=2min{a（n]，a（n+1）}；a（0）=0。
(历史;已发布版本)
|
|
|
|
|
#20通过N.J.A.斯隆2016年9月26日星期一21:06:20 EDT |
|
|
|
|
|
|
|
#19通过N.J.A.斯隆2016年9月26日星期一21:06:18 EDT |
|
| 例子
|
在a（3）=4之后，a（4）=8是最小未使用数，这样max{8,4}>=2min{8,4]=8，因为只有较小的未使用数3不会完成满足要求。
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#18通过N.J.A.斯隆美国东部时间2015年4月30日星期四22:12:49 |
|
|
|
|
|
|
|
#17通过N.J.A.斯隆2015年4月30日星期四美国东部夏令时22:12:13 |
|
| 评论
|
这是A139080型。在这里, 这个 无限序列的精细度为确保放心.
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
讨论
|
| 4月30日星期四
| 22:12
| N.J.A.斯隆：同意使用非常大的b文件会有所帮助
|
|
|
|
|
|
|
#16通过N.J.A.斯隆2015年4月30日星期四22:11:20 EDT |
|
|
|
|
|
|
|
#15通过M.F.哈斯勒2015年4月26日周日19:48:21 EDT |
|
|
|
|
|
讨论
|
| 4月30日星期四
| 16:50
| 安蒂·卡图恩：我们能为这个文件准备一个b文件吗？至少要1000或2个？（因为看到自然数排列的散点图是什么样子总是很有趣……）
|
|
|
|
|
|
|
#14通过M.F.哈斯勒2015年4月26日周日19:46:00 EDT |
|
| 名称
|
a（n+1）=最小值不在前面出现，这样max{a（n），a（n+1}>=2min{a（n），a)}，)};a（0)=) =0
|
|
| 评论
|
否则，a（n+1）是之前未出现的最小数字, 如果这个数字小于a（n）/2，或者,它 一(n个+1)是最小未使用数>=2 a（n）。
这是一个简单的更简单的变体A139080型这里，确保了无限序列的精细性。
|
|
|
|
|
|
|
#13通过M.F.哈斯勒2015年4月26日周日19:43:34 EDT |
|
| 评论
|
否则，a（n+1）要么是最小的数字，要么不是然而发生 习惯于早期的，如果这个数字小于a（n）/2，否则，它是最少未使用的数字>=2 a（n）。
在两个初始项之后，以下三周期模式重复：a（3k-1）=未更早出现的最小项，a（3k）=2a（3k-1），以及a（3k+1）=2b（3k这那个数字，最大值将小于最小值的两倍。
尽管模式简单，但似乎不容易给出a（n）的显式公式，即a（3k-1）的cf.公式。我推测以下性质：
（i） 对于所有k>0，a（3k+2）=a（3k-1）+2，但S={1、8、9、13、14、22、23、31、32、40、41、49、50…}中的k除外，其中a（3k+2）=a（3k-1）+1。
（ii）设D=（7，1，4，1，8，1，8,1，8，1,8，…）为序列S的第一个差分。然后D（2k）=1，表示所有k>0。
（iii）D（2k+1）=4或8，对于所有k>0；除了第一个之外，4总是在一行中出现两次（例如，在{8、9}、{13、14}、}22、23}中的k）。
（iv）子序列D（2k+1）中8的运行长度为：6（k=2..7）、3（k=10..12）、7（k=15..21）、7，。。。似乎除了前两项外，这包括不同长度的7次跑步，但总是被两个3次打断。
|
|
| 黄体脂酮素
|
（PARI）{一=矢量(2000);u=[]；L（左）=一[1]=1; 对于（n=2,999, #一,打印1(L（左）", ");u=固定接头（u[L（左）]);一[n个-1]]);而（#u>1&&u[2]==u[1]+1,,u=u[2..-1]）；如果( ((u个[1]+1)*]*2<=L（左）,L（左）=+1<一[n个-1],一[n个]=u[1]+1，L（左）*=一[n个]=一[n个-1]*2; while（setsearch（u，L（左）),L（左）++)))}一[n个]),一[n个]++)))}
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#12通过迈克尔·德弗利格2015年4月25日星期六21:04:11 EDT |
|
|
|
|
|
|
|
#11通过迈克尔·德弗利格2015年4月25日星期六21:04:07 EDT |
|
| 数学
|
f[n_]：=块[｛s=｛1｝｝，对于[i=2，i<=n，i++，k=1；而[Nand[！MemberQ[s，k]，Max[k，s[[i-1]]]>=2 Min[k，s[[i-1]]]，k++]；附录[s，k]]；s] ；f@86(*迈克尔·德弗利格2015年4月25日*）
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
