OFFSET
1,2
COMMENTS
Records of the number of nonpowers of 2 in the sequences 3x+1.
Is this a finite sequence?
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..147 (b-file generated using Eric Roosendaal's data and Omar E. Pol's comment in A006877).
Eric Roosendaal, 3x+1 Delay Records
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
KEYWORD
nonn
AUTHOR
Omar E. Pol, Apr 07 2022
EXTENSIONS
More terms from Alois P. Heinz, Apr 07 2022
STATUS
approved