OFFSET
0,2
COMMENTS
a(n) is the smallest number k such that A364800(k) = n.
MATHEMATICA
f[n_] := f[n] = Module[{d = IntegerDigits[n, 2], nd}, nd = Length[d]; Total[d * Fibonacci[Range[nd, 1, -1]]]]; (* A356874 *)
iternum[n_] := Length@ NestWhileList[f, n, # > 1 &] - 1; (* A364800 *)
seq[kmax_] := Module[{s = {}, imax = -1, i}, Do[i = iternum[k]; If[i > imax, imax = i; AppendTo[s, k]], {k, 1, kmax}]; s]
seq[10^6]
PROG
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Amiram Eldar, Aug 08 2023
EXTENSIONS
a(11) from Martin Ehrenstein, Aug 26 2023
STATUS
approved