login
A191918
Ordered sequence of nonnegative differences 2*f-g, where f and g are Lucas numbers (A000032 beginning at 1).
3
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,3
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 *)
CROSSREFS
Sequence in context: A133431 A305705 A123091 * A191925 A160512 A144430
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 19 2011
STATUS
approved