login
Numbers that are a product of distinct numbers in A022095.
2

%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