OFFSET
1,2
FORMULA
a(n) seems to be asymptotic to (3/2)*n.
PROG
(PARI) f(n) = if (n%2, (3*n+1)/2, n/2); \\ A014682
g(n) = my(last = n); while (1, my(new = f(f(last))); if (new == last, return(new)); last = new; ); \\ A006513
a(n) = sum(k=1, n, g(k)); \\ Michel Marcus, Feb 03 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Oct 30 2002
STATUS
approved