%I#22 2017年8月14日11:44:53

%S 0,0,5,0,5,5,0,5,5,5,5,5,5,5,5,0,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5，

%温度：5,5,5,1,5,5，5,21，5,5.5,5,5.5,5.5，5,5A,5,5A，5,5.5.5,5，

%U 5,5,5,1,5,5，5,5'，5,5

%考虑N的Collatz轨迹；如果除n和1之外的所有项都是偶数，则a（n）=0，否则a（n”）是1之前的最后一个奇数。

%C记录（A002450）和记录索引（A237661）如下：

%C记录：5、21、85、341、1365、5461、21845。。。

%C指数：3，42，75，151，2730，7281，14563。。。

%C请参见A238192和A238193，了解略有不同的版本_T.D.Noe_，2014年2月21日

%C在n=5、21、85、341、1365、5461、21845…时与A238192不同。。。（A002450，无两个初始条款）_Antti Karttunen，2017年8月13日

%H Antti Karttunen，n的表，n的a（n）=1..21845</a>

%H Kival Ngaokrajang，n=1..20的插图</a>

%H<a href=“/index/3#3x1”>与3x+1（或Collatz）问题相关的序列的索引条目</a>

%t{0}~连接~表[If[AllTrue[#，EvenQ]，0，SelectFirst[Reverse@#，OddQ]]&@Most@Rest@NestWhileList[If[CevenQ@#，#/2，（3#+1）/2]&，n，#>1&]，{n，2，113}]（*Michael De Vlieger_，2017年8月14日*）

%o（小型基本型）

%o对于nn=1至200

%o n=nn

%o c1=0

%o c2=0

%o回路：

%o m2=数学。余数（n，2）

%o如果m2=0，则

%o n=无/2

%o c2=c2+1

%o其他

%o n=n*3+1

%o c2=0

%o EndIf

%o a[c1]=n

%o c1=c1+1

%o如果n=1，则

%o如果a[c1-c2-2]=“”，则

%o a[c1-c2-2]=0

%o EndIf

%o文本窗口。写入（a[c1-c2-2]+“，”）

%o停止

%o其他

%o Goto循环

%o EndIf

%o停止：

%o结束时间

%o（方案）

%o（定义（A237660 n）（let loop（（n（A014682 n））（last-odd 0））（如果（=1 n）last-odd-（loop（A014682n）（if（奇数？n）n last-odt））））

%o（定义（A014682 n）（如果（偶数？n）（/n 2）（/（+n n 1）2））

%o_Antti Karttunen，2017年8月13日

%o（PARI）a（n）=我的（k）；如果（n%2，n=3*n+1）；n> >=估价（n，2）；如果（n==1，返回（0））；k=n；而（1，n+=（n+1）>>1；n> >=估价（n，2）；如果（n==1，return（k），k=n））

%Y参见A002450、A237661、A238192、A238193。

%K nonn公司

%氧1,3

%A _Kival Ngaokrajang，2014年2月11日

%E编辑：N.J.A.Sloane，2014年2月20日