%I#8 2018年4月7日11:01:29

%S 105548683150836524278429581458150941794191824718287，

%电话1837018433185861869518706187421894522024221402231122324，

%电话227082271425336256812577125777257852581444545445934650546847

%N对N进行编号，使h（N）=3h（N-1），其中h（N。（最早的“1”是指。）

%如果n是偶数，则f（n）=n/2如果n是奇数，则为3n+1。

%e n，f（n），f（f（n。。。。，对于n=105，104，分别为：105，316，158，79，238，119，358，179，538，269，808，404，202，101，304，152，76，38，19，58，29，88，44，22，11，34，17，52，26，13，40，20，10，5，16，8，4，2，1；长度分别为39=3 x 13和13的104、52、26、13、40、20、10、5、16、8、4、2、1。因此105属于该序列。

%t f[n_]：=如果[EvenQ[n]，n/2，3n+1]；h[n_]：=模[{a，i}，i=n；a=1；当[i>1时，a++；i=f[i]]；a] ；选择[Range[2，47000]，3h[#-1]==h[#]&]

%t展平[Position[Partition[Table[Length[NestWhileList[If[EvenQ[#]，#/2，3#+1]&，n，#>1&]]，{n，50000}]，2,1]，_？（3#[[1]]==#[[2]]&），1，头->假]]+1（*哈维·P·戴尔，2018年4月7日*）

%Y参见A078418、A078419。

%K nonn公司

%O 1,1号机组

%Joseph L.Pe_，2002年12月29日

%E由_Robert G.Wilson v扩展，2002年12月30日