OFFSET
0,1
COMMENTS
Keep adding the terms of sequence A052005 up to the first member of the next 1,1 pair to yield the terms of this sequence. - Patrick De Geest
Those k for which F(k-1) < 2^(floor(log_2(F(k)))) and F(k+1) >= 2^(floor(log_2(F(k)))+1) and F(k+2) >= 2^(floor(log_2(F(k)))+2).
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1650
MATHEMATICA
With[{F = Fibonacci}, Reap[For[n=0, n<1000, n++, If[F[n-1] < 2^Floor[Log[2, F[n]]] && F[n+1] >= 2^(Floor[Log[2, F[n]]]+1) && F[n+2] >= 2^(Floor[Log[ 2, F[n]]]+2), Print[n]; Sow[n]]]][[2, 1]]] (* Jean-François Alcover, Feb 27 2016 *)
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
Antti Karttunen and Patrick De Geest, Nov 15 1999
STATUS
approved