%I #4 Jun 18 2016 00:40:42
%S 9,15,24,39,63,102,135,165,216,267,351,360,432,567,585,699,918,936,
%T 945,1131,1485,1512,1530,1830,2403,2448,2457,2475,2961,3240,3888,3960,
%U 3978,4005,4791,5265,6291,6408,6426,6435,6480,7752,8424,8505,10179,10368,10395
%N Numbers that are a product of distinct numbers in row 4 of the Wythoff array, A035513.
%C See the Comment on distinct-product sequences in A160009.
%H Clark Kimberling, <a href="/A274288/b274288.txt">Table of n, a(n) for n = 1..1000</a>
%e 135 = 9*15, 3240 = 9*15*24.
%t f[1] = 9; f[2] = 15; z = 33; 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}]; s1 = Rest[s]
%Y Cf. A160009, A274191.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jun 17 2016
|