A051392 -id:A051392 - cp's OEIS frontend

A052006 Numbers k for which Fibonacci(k) is the first member of a 1,1 pair (A052005).

17, 30, 43, 53, 66, 79, 89, 102, 115, 125, 138, 151, 161, 174, 187, 200, 210, 223, 236, 246, 259, 272, 282, 295, 308, 321, 331, 344, 357, 367, 380, 393, 403, 416, 429, 442, 452, 465, 478, 488, 501, 514, 524, 537, 550, 560, 573, 586, 599, 609, 622, 635, 645

Offset: 0

Antti Karttunen and Patrick De Geest, Nov 15 1999

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).

Vincenzo Librandi, Table of n, a(n) for n = 0..1650

The first differences are A051392.

Cf. A052005, A000045, A050815, A036284, A037093.

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 *)

cp's OEIS Frontend

A052006 Numbers k for which Fibonacci(k) is the first member of a 1,1 pair (A052005).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica