%I #4 Jun 18 2016 00:39:59
%S 1,5,6,11,17,28,30,45,55,66,73,85,102,118,140,168,187,191,225,270,308,
%T 309,330,365,438,476,495,500,510,590,708,765,803,809,840,935,955,1122,
%U 1146,1241,1260,1298,1309,1350,1540,1545,1848,1854,2006,2044,2101,2118
%N Numbers that are a product of distinct numbers in A022095.
%C See the Comment on distinct-product sequences in A160009.
%H Clark Kimberling, <a href="/A274283/b274283.txt">Table of n, a(n) for n = 1..1000</a>
%e 30 = 5*6, 330 = 5*6*11.
%t f[1] = 1; f[2] = 5; z = 32; f[n_] := f[n - 1] + f[n - 2]; f = Table[f[n], {n, 1, z}]; f
%t s = {1}; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s
%Y Cf. A160009.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jun 17 2016