A050118 Numbers that are the product of two Lucas numbers.

1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 14, 16, 18, 21, 22, 28, 29, 33, 36, 44, 47, 49, 54, 58, 72, 76, 77, 87, 94, 116, 121, 123, 126, 141, 152, 188, 198, 199, 203, 228, 246, 304, 319, 322, 324, 329, 369, 398, 492, 517, 521, 522, 532, 597

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

lucas:= t -> combinat:-fibonacci(t+1) + combinat:-fibonacci(t-1):
sort(convert(select(`<`, {seq(seq(lucas(i)*lucas(j), i=j..30), j=0..30)}, lucas(31)), list)); # Robert Israel, May 11 2016

Mathematica

Take[Union[Flatten[Table[LucasL[i]*LucasL[j], {i, 0, 200}, {j, 1, 200}]]], 100] (* Clark Kimberling, May 11 2016 *)

Crossrefs

Cf. A000032.

Sequence in context: A356930 A124391 A200381 * A373159 A081754 A336654

Adjacent sequences: A050115 A050116 A050117 * A050119 A050120 A050121

Keyword

nonn

Author

Clark Kimberling

Status

approved