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

0, 1, 2, 3, 4, 6, 7, 8, 11, 12, 14, 17, 18, 22, 23, 26, 29, 32, 34, 36, 43, 46, 47, 52, 57, 58, 69, 76, 78, 81, 87, 91, 94, 112, 123, 124, 133, 136, 142, 148, 152, 181, 199, 202, 214, 223, 226, 232, 239, 246, 293, 322, 326, 347, 359, 368, 371, 377, 387, 398

Offset

1,3

Links

Table of n, a(n) for n=1..60.

Mathematica

(See A192045.)
Join[{0}, With[{nn=60}, Take[Select[5#[[1]]-3#[[2]]&/@Tuples[LucasL[ Range[ nn]], 2], #>=0&]//Union, nn]]] (* Harvey P. Dale, Jul 08 2017 *)

Crossrefs

Cf. A192045.

Sequence in context: A214913 A052499 A104739 * A274281 A050116 A061985

Adjacent sequences: A192044 A192045 A192046 * A192048 A192049 A192050

Keyword

nonn

Author

Clark Kimberling, Jun 21 2011

Status

approved