A191840 Ordered sequence of nonnegative differences 2*f-g, where f and g are positive Fibonacci numbers (A000045).
0, 1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 14, 15, 18, 21, 23, 24, 25, 29, 34, 37, 39, 40, 41, 47, 55, 60, 63, 65, 66, 67, 76, 89, 97, 102, 105, 107, 108, 109, 123, 144, 157, 165, 170, 173, 175, 176, 177, 199, 233, 254, 267, 275, 280, 283, 285, 286, 287, 322, 377
Offset: 1
Keywords
Programs
-
Mathematica
(See A191838.) Union[Select[2First[#]-Last[#]&/@Tuples[Fibonacci[Range[20]], {2}], #>=0&]] (* Harvey P. Dale, Jun 19 2011 *)