OFFSET
1,2
COMMENTS
See the Comment on distinct-product sequences in A160009.
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
EXAMPLE
The Lucas numbers are 1,3,4,7,11,18,29,..., so that the sequence of all products of distinct Lucas numbers, in increasing order, are 1, 3, 4, 7, 11, 12, 18, 21, 28, 29,...
MATHEMATICA
f[1] = 1; f[2] = 3; z = 32; f[n_] := f[n - 1] + f[n - 2]; f = Table[f[n], {n, 1, z}]; f
s = {1}; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s
Take[Times@@@Subsets[LucasL[Range[20]]]//Union, 60] (* Harvey P. Dale, Sep 26 2019 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 17 2016
STATUS
approved