OFFSET
1,1
LINKS
EXAMPLE
n a(n) h(n) h(a(n))
- ---- ----------------- --------------------------------------
1 2 1 11
2 4 11 111
3 35 10101111 10101111101111
4 8 111 1111
5 21 101111 10111111
6 70 110101111 110101111101111
7 2055 10101011011101111 10101011011101111110111010101111101111
8 16 1111 11111
MATHEMATICA
A348094[n_] := n+2^(Length[NestWhileList[If[OddQ[#], 3#+1, #]/2 &, n, #>1 &]]-1);
Array[A348094, 50] (* Paolo Xausa, Apr 05 2024 *)
PROG
(PARI) a(n) = { my (h=0, r=n); while (r>1, if (r%2, r=3*r+1, r=r/2; h++)); n+2^h }
CROSSREFS
KEYWORD
nonn
AUTHOR
Rémy Sigrist, Sep 29 2021
STATUS
approved