|
|
A352907
|
|
Records in the number of iterations in the 3x+1 sequences required to reach a power of 2.
|
|
3
|
|
|
0, 3, 4, 12, 15, 16, 19, 107, 108, 111, 114, 117, 120, 123, 126, 139, 140, 166, 174, 177, 178, 204, 212, 233, 257, 263, 271, 274, 277, 303, 306, 319, 335, 346, 349, 370, 378, 381, 438, 444, 465, 504, 520, 523, 526, 552, 555, 558, 579, 592, 608, 660, 681, 684
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Records of the number of nonpowers of 2 in the sequences 3x+1.
Is this a finite sequence?
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := -1 + Length @ NestWhileList[If[OddQ[#], 3*# + 1, #/2] &, n, !IntegerQ @ Log[2, #] &]; Union @ FoldList[Max, Array[f, 10^5]] (* Amiram Eldar, Apr 08 2022 *)
|
|
CROSSREFS
|
Cf. A347270 (gives all 3x+1 sequences).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|