%I#7 2016年3月9日03:22:29
%S 2,4,5,8,10,11,13,14,16,17,20,22,23,26,28,29,31,32,34,35,38,40,41,44,
%电话:46,47,49,50,52,53,56,58,59,61,62,64,65,67,68,70,71,74,76,77,80,82,83,
%U 85,86,88,89,91,92,94,95,98100101103104106107110112113116118单位
%N Collatz(3x+1)迭代中的不纯正数字。
%设f(k)是k的Collatz迭代的轨迹。如果n在f(k。
%H T.D.Noe,n的表,n=1..10000时的a(n)</a>
%H Douglas J.Shaw,<a href=“http://www.fq.math.ca/Papers1/44-3/quartshaw03_2006.pdf“>由Collatz序列生成的纯数,《斐波那契季刊》,第44卷,第3期,2006年8月,第194-201页。
%F A061641的补码。
%e 3的Collatz轨迹是(3,10,5,16,8,4,2,1),表明数字4,5,8,10,16是不纯的。
%t c[n_]:=如果[EvenQ[n],n/2,3n+1];nn=1000;t=表[0,{nn}];Do[如果[t[[n]]==0,m=n;而[m=c[m];如果[nn>=m>n&&t[[m]]==0,t[[m]]=n];m> nn||t[[m]]>0]],{n,nn}];压扁[位置[t,_?(#>0&)]]
%K nonn公司
%O 1,1号机组
%A._T.D.Noe_,2007年10月12日