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

%I #4 Jun 18 2016 00:40:14

%S 2,5,7,10,12,14,19,24,31,35,38,50,60,62,70,81,84,95,100,120,131,133,

%T 155,162,168,190,212,217,228,250,262,266,310,343,350,372,405,420,424,

%U 434,456,500,555,567,589,600,655,665,686,700,744,810,840,898,917,950

%N Numbers that are a product of distinct numbers in A013655.

%C See the Comment on distinct-product sequences in A160009.

%H Clark Kimberling, <a href="/A274285/b274285.txt">Table of n, a(n) for n = 1..1816</a>

%e 10 = 2*5, 120 = 2*5*12.

%t f[1] = 2; f[2] = 5; 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.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Jun 17 2016