OFFSET
0,3
COMMENTS
This sequence is well defined (see Comments in A370730).
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..10000
FORMULA
a(A000045(k)) = k for any k != 2.
MATHEMATICA
A370731[n_] := Block[{k = -1}, While[BitAnd[Fibonacci[++k], n] != n]; k];
Array[A370731, 100, 0] (* Paolo Xausa, Mar 01 2024 *)
PROG
(PARI) a(n) = { for (k = 0, oo, if (bitand(fibonacci(k), n)==n, return (k); ); ); }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Feb 28 2024
STATUS
approved