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

0, 1, 2, 3, 4, 7, 9, 11, 16, 17, 18, 21, 23, 29, 31, 38, 39, 43, 47, 53, 59, 62, 74, 76, 79, 89, 97, 101, 117, 123, 132, 137, 147, 156, 163, 191, 199, 211, 226, 231, 241, 253, 264, 308, 322, 343, 363, 378, 383, 393, 409, 427, 499, 521, 554, 589, 609, 624

Offset: 1

Author

Clark Kimberling, Jun 20 2011

Keywords

• nonn

Crossrefs

Cf. A191988, A191990, A191991.

Programs

Mathematica

(See A191988.)
Join[{0},Take[Union[Select[2*First[#]-5*Last[#]&/@Tuples[LucasL[ Range[40]],{2}],Positive]],70]] (* Harvey P. Dale, Jun 22 2011 *)