%I#16 2017年8月14日15:53:51

%S 3,42,7515127307281145631747621841193206711184813256071，

%电话：265121437158278821908874353

%N A237660中记录的索引。

%H Charles R Greathouse IV，查找初始术语的c代码</a>

%t使用[{s=Table[If[AllTrue[#，EvenQ]，0，SelectFirst[Reverse@#，OddQ]]&@Most@Rest@NestWhileList[If[EvenQ@#，#/2，（3#+1）/2]&，n，#>1&]，{n，2，10^5}]}，1+Values[#][[All，1]&@Rest@KeySort@PositionIndex@s]（*Michael De Vlieger_，2017年8月14日*）

%o（C）参见Greathouse链接

%o（PARI）A237660（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，返回（k），k=n））

%o r=0；对于（n=1,1e8，t=A237660（n））；如果（t>r，r=t；打印1（n“，”））

%Y参考A237660。

%K nonn，更多

%O 1,1号机组

%A _Kival Ngaokrajang，2014年2月11日

%E a（11）-a（15）摘自2017年8月14日_Charles R Greathouse IV_