OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = a(A356874(n)) + 1, for n >= 2.
EXAMPLE
For n = 3 the trajectory is 3 -> 2 -> 1. The number of iterations is 2, thus a(3) = 2.
MATHEMATICA
f[n_] := f[n] = Module[{d = IntegerDigits[n, 2], nd}, nd = Length[d]; Total[d * Fibonacci[Range[nd, 1, -1]]]]; (* A356874 *)
a[n_] := Length@ NestWhileList[f, n, # > 1 &] - 1; Array[a, 100]
PROG
(PARI) f(n) = {my(b = binary(n), nb = #b); sum(i = 1, nb, b[i] * fibonacci(nb - i + 1)); } \\ A356874
a(n) = if(n == 1, 0, a(f(n)) + 1);
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amiram Eldar, Aug 08 2023
STATUS
approved