OFFSET
1,1
COMMENTS
This is the jump function jp in the paper of Eliahou et al.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
Shalom Eliahou, Jean Fromentin, and Rénald Simonetto, Is the Syracuse falling time bounded by 12?, hal-03294829, 2021.
MATHEMATICA
A368877[n_] := Nest[If[OddQ[#], (3*#+1)/2, #/2]&, n, BitLength[n]];
Array[A368877, 100] (* Paolo Xausa, Jan 08 2024 *)
PROG
(PARI) T(n) = if (n%2, (3*n+1)/2, n/2); \\ A014682
a(n) = my(N=1+logint(n, 2)); for (i=1, N, n = T(n)); n;
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Jan 08 2024
STATUS
approved