OFFSET
1,1
COMMENTS
First differences of the records in the number of nonpowers of 2 in the sequences 3x+1.
Is this a finite sequence?
Closely related to A288493 (perhaps the same after initial terms). - R. J. Mathar, May 20 2022
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..146 (b-file generated using Eric Roosendaal's data and Omar E. Pol's comment in A006877).
Eric Roosendaal, 3x+1 Delay Records
EXAMPLE
The first 10 terms of A208981 are 0, 0, 3, 0, 1, 4, 12, 0, 15, 2. The records are 0, 3, 4, 12, 15. The first differences of these records are 3, 1, 8, 3, the same as the first four terms of this sequence.
MATHEMATICA
f[n_] := -1 + Length @ NestWhileList[If[OddQ[#], 3*# + 1, #/2] &, n, ! IntegerQ @ Log[2, #] &]; Differences @ Union @ FoldList[Max, Array[f, 10^5]] (* Amiram Eldar, Apr 08 2022 *)
KEYWORD
nonn
AUTHOR
Omar E. Pol, Apr 07 2022
EXTENSIONS
More terms from Paolo Xausa, Jun 22 2022
STATUS
approved