%I#15 2020年4月17日07:22:19

%S 1,2,2,3,2,4,4,2,2,6,4,3,5,2,4,1,4,5,2,4,6,2,42,8,3,4,2,6,6,2,2,6,3,4，

%温度3,6,2,4,3,8,2,2,6,3,4,2,10,3,6,1,6,6,2,4,3,1,8,2,9,2,42,7,4,6,2，6，

%U 2,6,2,8,2,4,2,6,3,6,2,10,2,42,6,2,4,2

%假设Collatz猜想为真，a（N）是N的除数，出现在N的Collatz轨迹中。

%对于p素数，C a（p）=2。

%C a（（2^2k-1）/3）=2，k=1，2。。。

%C我们观察到，a（n）与A093640（n）在n=25、27、33、35、45、49、50、54、55、57、63、65、66、70、75、77、85。。。

%C7在前65537个术语中只出现18次_Antti Karttunen，2019年5月18日

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

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

%e a（6）=4，因为Collatz轨迹6->3->10->5->16->8->4->2->1包含4个6:1、2、3和6的除数。

%t lst={}；coll[n_]：=嵌套WhileList[If[EvenQ[#]，#/2,3#+1]&，n，#>1&]；Do[AppendTo[lst，Length[Intersection[Divisors[n]，coll[n]]]，{n，1100}]；第一次

%o（PARI）f（n）=如果（n%2，3*n+1，n/2）；

%o a（n）={my（kn=n，nb=1）；while（n！=1，n=f（n）；if（kn%n）==0，nb++）；）；nb；}

%Y参考A006370、A027750、A070165、A093640、A207674、A207675。

%K nonn公司

%O 1,2号机组

%2018年10月15日，拉格瑙市