A191931 Ordered sequence of nonnegative differences 4f-g, where f and g are Lucas numbers (A000032 beginning at 1).

0, 1, 3, 5, 8, 9, 10, 11, 12, 13, 15, 17, 21, 24, 25, 26, 27, 33, 37, 40, 41, 43, 54, 61, 65, 68, 69, 71, 87, 98, 105, 109, 112, 113, 115, 141, 159, 170, 177, 181, 184, 185, 187, 228, 257, 275, 286, 293, 297, 300, 301, 303, 369, 416, 445, 463, 474, 481, 485

Offset: 1

Author

Clark Kimberling, Jun 19 2011

Keywords

• nonn

Crossrefs

Cf. A191929, A191930, A191932.

Programs

Mathematica

(See A191929.)
Take[Union[Select[4First[#]-Last[#]&/@Tuples[LucasL[Range[20]],{2}], #>=0&]],70] (* Harvey P. Dale, Aug 21 2011 *)