%I#44 2023年9月5日14:45:20
%S 1,2,4,8,10,14,16,20,22,26,40,44,52106184206244274322526650,
%电话:6687908669761154130014381732178018222308273432387288
%N对k进行编号,使3k+1在“3x+1”映射下的轨迹达到k。
%C这个序列似乎是完整的;没有其他条款<=10^9。-_T.D.Noe_,2012年12月3日
%C如果将3x+1步骤替换为(3x+1)/2,则序列变为{1、2、4、8、10、14、20、22、26、40、44、206、244、650、668、866、1154、1822、2308…}_Robert G.Wilson v_,2015年1月13日
%C From _ Andrew Slattery_,2023年8月3日:(开始)
%C对于大多数项k,3k+1的轨迹达到310,或者310的轨迹达到k。
%对于其余的k项,3k+1的轨迹达到22,或者22的轨迹达到k。
%C除了k=1之外在S个步骤之后达到k,
%C其中S=C*8+d*13+e*44+f*75,C,d,e和f在{0,1,2}中;特别地,S位于{8,13,8+8,8+13,13+13,44,75,44+44,75+13+13,75+44,75+75}。(结束)
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/CollatzProblem.html“>Collatz问题</a>
%H维基百科,<a href=“http://en.wikipedia.org/wiki/Collatz_conjustic网站“>科拉茨猜想</a>
%H<a href=“/index/3#3x1”>与3x+1(或Collatz)问题相关的序列的索引条目</a>
%e对于k=4,3k+1的Collatz轨迹为(13,40,20,10,5,16,8,4,2,1),其中包括4;因此,4在序列中。
%e对于k=5,3k+1的Collatz轨迹为(16,8,4,2,1),其中不包括5;因此,序列中没有5。
%t排序规则[n_]:=NestWhileList[If[EvenQ[#],#/2,3#+1]&,n,#>1&];选择[Range[10000]、MemberQ[Collatz[3#+1]、#]&](*日期:Noe_,2012年12月3日*)
%o(哈斯克尔)
%o a219696 n=a219696_列表!!(n-1)
%o a219696_list=过滤器(\x->collatz“”x==x)[1..]其中
%o collatz“”x=直到(“elem”[1,x])a006370(3*x+1)
%o——Reinhard Zumkeller,2014年8月11日
%o(Python)
%o定义正常(n):
%o如果n==1:返回[1]
%o N=3*N+1
%o l=[N,]
%o为True时:
%o如果N%2==1:N=3*N+1
%o其他:N/=2
%o l+=[N,]
%o如果N<2:断开
%o如果l中有n:返回1
%o 2017年4月22日返回0#_Indranil Ghosh
%o(PARI)a006370(n)=如果(n%2==0,n/2,3*n+1)
%o是(n)=我的(x=3*n+1);而(1,x=a006370(x);如果(x==n,返回(1),如果(x=1,返回(0)))
%Y参见A014682、A070991、A006370、A070165。
%K nonn,不错,更多
%O 1,2号机组
%2012年11月25日,A _Robert C.Lyons
%E首字母1来自Clark R.Lyons,2012年12月2日
|