%I#38 2021年3月22日05:50:00

%S 2,3,17,31163353721118519813363577710039295795279794705，

%电话：171147311101568431104346319236193559911661167512319517，

%电话：230237276512679291234823707234540969944622395838502848523162260830053100732779159331187155

%N最小正整数，因此需要A073846的N次迭代才能达到偶数。

%C一个数被认为是它自己的第零次迭代。

%C是否为所有n定义了序列？如果是这样，是否有无穷多个复合数？如果不是，无限多a（n）是否已定义？

%C From _Hartmut F.W.Hoft_，2016年4月5日：（开始）

%C数字a（6）。。。a（11）和a（12）。。。a（23）各自属于分别以质数10039和23023727开始的迭代序列，而序列中的其他数字是合成的。

%C关于整个迭代序列和该序列的附加数的计算，请参见A271363。（结束）

%C对于n>1，a（n）是最小整数k，因此重复应用x->A073846（x）在一行中严格减少n次_Hugo Pfoertner_和_Michel Marcus_，2021年3月11日

%H Martin Ehrenstein，n表，n=0..43的a（n）</a>

%F对于n>0，a（n+1）>=A073898（b（a（n））），其中b（m）是不小于m的最小奇数复合物，如果a（n）是复合物，则等式总是成立的。

%e a（2）=17，因为A073846（17）=15，A073846（15）=14；因此，它需要两个步骤，而没有较小的正整数具有此特性。

%t（*由于A073846（9）=9，搜索从11*开始）

%t c25000000=选择[Range[25000000]，CompositeQ]；

%t a073846[n_]：=c25000000[[楼层[n/2]]]

%t a073846Nest[n_]：=长度[NestWhileList[a073846，n，OddQ]]

%t a263570[n_]：=模块[{list={2，3}，i，length}，对于[i=11，i<=n，i+=2，length=a073846Nest[i]；如果[Length[list]<Length，AppendTo[list，i]]]；列表]

%t a263570[250000]（*原始序列数据*）

%t（*哈特穆特·F·W·霍夫特，2016年4月5日*）

%Y参考A073846，A271363。

%K非n

%0、1

%A_Chayim Lowen_，2015年10月21日

%E a（24）-a（31）摘自Hhartmut F.W.Hoft_，2016年4月5日