A273803 Numbers that are a product of distinct Fibonacci numbers (A160009) and also a product of distinct Lucas numbers (A274280).

1, 3, 21, 126, 504, 987, 5922, 23688, 2178309, 13069854, 52279416, 10610209857723, 63661259146338, 254645036585352

Offset

1,2

Comments

Is every term greater than 3 divisible by 21?

Links

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

Example

126 = 2*3*21 = 7*18.

Mathematica

s = {1}; z = 70; f = Fibonacci[2 + Range[z]]; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s = Prepend[s, 0];  (* A160009 *)
g = LucasL[Range[z]]; t = {1}; Do[t = Union[t, Select[t*g[[i]], # <= g[[z]] &]], {i, z}];
Intersection[s, t]

Crossrefs

Cf. A000204, A000045, A160009, A274280, A274371.

Sequence in context: A034552 A356889 A220616 * A036754 A121447 A125682

Adjacent sequences: A273800 A273801 A273802 * A273804 A273805 A273806

Keyword

nonn,more

Author

Clark Kimberling, Jun 19 2016

Status

approved