A274371 Numbers that are a product of distinct Fibonacci numbers (A000045) and also a product of distinct Lucas numbers (A000032, including 2).

1, 2, 3, 6, 8, 21, 24, 42, 126, 144, 168, 432, 504, 987, 1008, 1974, 3024, 5922, 7896, 23688, 46368, 47376, 139104, 142128, 973728, 2178309, 4356618, 13069854, 17426472, 45765216, 52279416, 104558832, 313676496, 4807526976, 14422580928, 100958066496

Offset

1,2

Comments

Contains A273803 as a subsequence.

Links

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

Example

504 = 3*8*21 = 4*7*18.

Mathematica

s = {1}; z = 60; f = Fibonacci[2 + Range[z]]; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s = Prepend[s, 0];  u = Take[s, 100]
g = LucasL[-1 + Range[z]]; t = {1}; Do[t = Union[t, Select[t*g[[i]], # <= g[[z]] &]], {i, z}]; w = Intersection[s, t]

Crossrefs

Cf. A000032, A000045, A160009, A274280, A273803.

Sequence in context: A248824 A130623 A072847 * A339589 A095895 A051934

Adjacent sequences: A274368 A274369 A274370 * A274372 A274373 A274374

Keyword

nonn,easy

Author

Clark Kimberling, Jun 19 2016

Status

approved