%I#12 2020年1月10日12:35:08
%S 1,2,4,8,9,16,18,32,36,41,53,64,69,72,82106107111128138141143,
%电话:144163164169189212421721922223147256263276282,
%电话:286287289299326328333834936333378381383397
%在Collatz映射的3x+5变体中达到1的N个数字。
%在Collatz函数的这个变体中,如果x是偶数,则f(x)=x/2,如果x为奇数,则3x+5。
%C f(a(n))将在循环8、4、2、1中结束。
%对于序列中的任何奇数n,其中x是正整数的n*2^x也将在序列中。
%e对于n=53,生成的数字为53->164->82->41->128->64->32->16->8->4->2->1->8->2->1-。。。
%t选择[Range@400,Function[n,NestWhile[If[EvenQ@#,#/2,3#+5]&,n,And[FreeQ[{##},1],Count[{##1},n]<=2]&,All,120]=1]](*_Michael De Vlieger_,2019年12月27日*)
%Y参考A000079,A181762。
%K nonn公司
%O 1,2号机组
%A卡拉·贝内特,2019年12月27日
|