%I#35 2022年9月8日08:44:36

%S 99298149448224112,56,28,14,7,22,11,34,17,52,26,13,40,20,10,5,16，

%第8,4,2,1,4,2,1,4,2,1,4,4,1,4,2,1,4,1,4,1,2,4,2,4,1,2,4,2段，

%U 4,2,1,4,2,4,2,2,1,4,1,4,2,1,4

%N 3x+1序列从99开始。

%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，则99；elif（n-1）mod 2=0，然后f（n-1）/2，否则3*f（n-l）+1；fi；结束；

%t嵌套列表[If[EvenQ[#]，#/2,3#+1]&，99,70]（*哈维·P·达尔，2014年7月28日*）

%o（Magma）[n eq 1 select 99 else IsOdd（Self（n-1））select 3*Self_文森佐·利班迪（Vincenzo Librandi），2014年7月29日

%o（PARI）排序规则（n，lim=0）={

%o我的（c=n，e=0，L=列表（n））；如果（lim==0，e=1；lim=n*10^6）；

%o对于（i=1，lim，如果（c%2==0，c=c/2，c=3*c+1）；列表（L，c）；如果（e&&c==1，中断）；

%o返回（Vec（L））；｝

%o打印（Collatz（99,60））\\A008882（从99到60）

%2016年3月26日，Natoly E.Voevudko

%A347270的Y行99。

%K nonn，简单

%0、1

%A.N.J.A.斯隆。