#来自在线整数序列百科全书的问候!本次搜索:id:a08983 显示1-1的1个一个 ;%I a082983;%S a082983 1,5,3,3,13,17,17,11,7,7,9,21,29,19,19,25,33,33,37,45,49,53,35,23,15,15,61,65,65,43,57,;%T a082983 69,77,77,51,81,81,85,93101,101,67,67,89,59,59,39113,751171131411491991571157173,;%U A0;%U a0 a0 a0 A084,37,45,49,53,53,53,97,97,117,11717114914982983 115153177181197131,872052091391851232132923724124516321717 %N a082983导致1的奇数在由一个特殊的“最少优先”贪婪算法生成的3x+1问题中(参见程序代码);%C A082983怀疑但未证明所有奇数都在序列中-这相当于3x+1问题中所有数字是否都达到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;prin“$n”;#下一个兄弟姐妹的推送(@list,4*$n+1);;第一个子女如果如果(($n n$n%3)==1){$n=($n n*4-1 1 1)/3;while($n&(($n$n%2))==0)){$n/=2;}推(@list,$n,$n,$n)除非($n<=1);};%o A082983 elsif(($n%3)==1)=1){$n n n n n(&($n%3)==2)==2){$n n=($n*2-1)/3;而($n&(($n%2)==0)){$n/=2;}推送(@list,$n)除非($n<=1);}#否则什么都不做,因为==0 mod 3没有子级#效率低下-应该有堆插入排序。@list=sort numeric@list;}sub numeric{$a<=>$b;}%Y A082983 Cf.A002450,A072197. %K A082983 easy,Non %O A082983 0,2 %a A082983 _howardA.Landman_2003年5月28日 #%Y根据OEIS最终用户许可协议提供内容:http://OEIS.org/License