%我#26 2022年9月8日08:44:36
%第39118,59178,89268134,67202101304152,76,38,19,58,29,88,44,22页,
%电话:11,34,17,52,26,13,40,20,10,5,16,8,4,2,1,4,2,2,1,4,1,4,2,
%U 1,4,2,1,4,2,1,4,2,2,1,4,1,4,1,4
%N 3x+1序列从39开始。
%D R.K.Guy,《数论中未解决的问题》,E16。
%H Vincenzo Librandi,n的表格,n=0..200的a(n)</a>
%H<a href=“/index/3#3x1”>与3x+1(或Collatz)问题相关的序列的索引条目</a>
%H<a href=“/index/Rec#order_03”>带常数的线性递归索引条目,签名(0,0,1)。
%pf:=proc(n)选项记忆;如果n=0,则39;elif(n-1)mod 2=0,然后f(n-1)/2,否则3*f(n-l)+1;fi;结束;
%t NestList[If[EvenQ[#],#/2,3#+1]&,39,100](*Vincenzo Librandi_,2014年7月29日*)
%o(Magma)[n eq 1 select 39 else IsOdd(Self(n-1))select 3*Self_文森佐·利班迪(Vincenzo Librandi),2014年7月29日
%A347270的Y行39。
%K nonn公司
%O 0,1
%A.N.J.A.斯隆。
|