%I #4 Jun 18 2016 00:39:50
%S 1,4,5,9,14,20,23,36,37,45,56,60,70,92,97,115,126,148,157,180,185,207,
%T 240,254,280,300,322,333,388,411,460,485,504,518,540,628,630,665,740,
%U 785,828,840,851,873,1016,1035,1076,1200,1270,1288,1332,1358,1380
%N Numbers that are a product of distinct numbers in A000285.
%C See the Comment on distinct-product sequences in A160009.
%e 20 = 4*5, 180 = 4*5*9.
%t f[1] = 1; f[2] = 4; 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, A274288.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jun 17 2016