%我

%第1,5,3,13,17,11,7,9,21,29,19,25,33,37,45,49,53,35,23,15,61,65,43,57，

%电话69,77,51,81,85,93101,67,89,59,39113,75117133141149,99157173，

%U 115153177181197131，8720520913918512321329237241245163217

%在3x+1问题中导致1的N个奇数，由特定的“最少优先”贪婪算法生成（参见程序代码）。

%怀疑但没有证明所有的奇数都在序列中-这相当于3x+1问题中所有的数是否都达到1。下面给出的程序代码实际上并不表示无限集，但结果是相同的，因为每个同级集的剩余最小成员始终存在。

%第二项是5，因为如果我们取1（我们的起点），创建它的两倍的所有幂，然后减去1并除以3得到一个整数的结果，我们得到集合{5，21，85，…}（序列A002450），5是该集合的最小成员。下一项是3，因为我们生成了5的所有子项{3,13,53213，…}（序列A072197），并将其与之前（5的兄弟姐妹{21,85，…}）遗留的集合合并，最小的成员是3。3个没有孩子，所以下学期是13个。

%哦！/usr/bin/perl@list=（1）；while（1）{$n=shift@list；打印“$n”；#下一个同级推送（@list，4*$n+1）；#第一个子项if（（$n%3）==1）{$n=（$n*4-1）/3；while（$n&（（$n%2）==0））{$n/=2；}推送（@list，$n），除非（$n<=1）；}

%o elsif（（$n%3）==2）{$n=（$n*2-1）/3；while（$n&（（$n%2）==0））{$n/=2；}推送（@list，$n），除非（$n<=1）；}否则什么都不做，因为==0 mod 3没有子级#效率低下-应该有堆插入排序。@list=sort numeric@list；}子数字{$a<=>$b；}

%Y比照A002450、A072197。

%别紧张，不是吗

%0,2

%2003年5月28日