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

0, 1, 2, 3, 4, 5, 7, 10, 11, 13, 15, 18, 19, 21, 25, 29, 32, 33, 35, 40, 47, 51, 54, 55, 57, 65, 76, 83, 87, 90, 91, 93, 105, 123, 134, 141, 145, 148, 149, 151, 170, 199, 217, 228, 235, 239, 242, 243, 245, 275, 322, 351, 369, 380, 387, 391, 394, 395, 397

Offset: 1

Author

Clark Kimberling, Jun 19 2011

Keywords

• nonn

Programs

Mathematica

(See A191916.)
nn=60;Join[{0},Take[Union[Select[2#[[1]]-#[[2]]&/@Tuples[LucasL[ Range[ nn]], 2],#>=0&]],nn]] (* Harvey P. Dale, Jan 06 2013 *)