A191839 Ordered sequence of nonnegative differences f-2*g, where f and g are positive Fibonacci numbers (A000045).
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 15, 17, 18, 19, 21, 24, 28, 29, 30, 32, 34, 39, 45, 47, 49, 51, 53, 55, 63, 73, 76, 79, 83, 85, 87, 89, 102, 118, 123, 128, 134, 138, 140, 142, 144, 165, 191, 199, 207, 217, 223, 227, 229, 231, 233, 267, 309, 322, 335
Offset: 1
Keywords
Programs
-
Mathematica
(See A191838.) Union[Select[First[#]-2Last[#]&/@Tuples[Fibonacci[Range[20]],2],#>=0&]] (* Harvey P. Dale, Mar 05 2014 *)