OFFSET
1,2
COMMENTS
Contains A273803 as a subsequence.
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 19 2016
STATUS
approved