|
| |
|
| A339769型 |
| 当从范围[2^n，2^（n+1））中的数字开始时，Collatz（或“3x+1”）问题中只有一个起始数字所达到的唯一高度数。 |
|
2
|
|
|
|
1, 2, 4, 4, 5, 6, 10, 12, 9, 7, 4, 9, 13, 11, 7, 6, 8, 10, 13, 14, 10, 15, 14, 21, 8, 7, 13, 21
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
0,2
|
|
|
评论
|
每个区间[2^n，2^（n+1））中唯一高度的数量在n中似乎是线性的，在最佳拟合线附近有较大的振荡，而达到的最大高度的值在n中看起来是二次的。
该序列和每个区间的最大高度对应序列都不是单调的，例如：a（23..27）=（21，8，7，13，21），相应的最大高度为（704，702，949，947，956）。
|
|
|
链接
|
|
|
|
例子
|
a（5）=6，因为6个高度5、26、34、109、29、104分别是从起始数字32、33、39、41、43、47唯一获得的。独特高度中最大的(A280341型)然而，在区间[32,64）中是112。
a（11）=9，对于区间[2^11，2^12）中的起始值3711，最大唯一高度237也是区间中所有起始值的最大高度。
|
|
|
数学
|
collatz[n_]：=如果[EvenQ[n]，n/2，3n+1]
height[n_]：=长度[NestWhileList[collatz，n，#！=1&]]-1
a339769[n_]：=模[{heightL={}，countL={{}、s、h、p}，对于[s=2^n，s<2^（n+1），s++，h=height[s]；如果[！MemberQ[heightL，h]，AppendTo[heightL，h]；AppendTo[countL，1]，{{p}}=位置[heightL，h]；计数L[[p]]+=1]]；长度[Select[Transpose[{heightL，countL}]，#[[2]]==1&]]]
（*序列数据；n>=22时计算时间长*）
地图[a339769，范围[0，27]]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n，更多
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
