login
Numbers that are a product of distinct numbers in A000285.
1

%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