A274374 Products of 2 distinct Fibonacci numbers and products of two distinct Lucas numbers (without 2), arranged in increasing order.

0, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 15, 16, 18, 21, 24, 26, 28, 29, 33, 34, 39, 40, 42, 44, 47, 54, 55, 63, 65, 68, 72, 76, 77, 87, 89, 102, 104, 105, 110, 116, 123, 126, 141, 144, 165, 168, 170, 178, 188, 198, 199, 203, 228, 233, 267, 272, 273, 275, 288

Offset: 1

Author

Clark Kimberling, Jun 19 2016

Keywords

• nonn
• easy

Comments

Are 3 and 21 the only numbers that are a product of two distinct Fibonacci numbers and also a product of two distinct Lucas numbers?

Links

• G. C. Greubel, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A049862, A274347, A274375.

Programs

Mathematica

z = 400; f[n_] := Fibonacci[n];
s = Join[{0}, Take[Sort[Flatten[Table[f[m] f[n], {n, 2, z}, {m, 2, n - 1}]]], z]]
g[n_] := LucasL[n]; t = Take[Sort[Flatten[Table[g[u] g[v], {u, 1, z}, {v, 1, u - 1}]]], z]
Union[s, t]