A274285 Numbers that are a product of distinct numbers in A013655.

2, 5, 7, 10, 12, 14, 19, 24, 31, 35, 38, 50, 60, 62, 70, 81, 84, 95, 100, 120, 131, 133, 155, 162, 168, 190, 212, 217, 228, 250, 262, 266, 310, 343, 350, 372, 405, 420, 424, 434, 456, 500, 555, 567, 589, 600, 655, 665, 686, 700, 744, 810, 840, 898, 917, 950

Offset: 1

Author

Clark Kimberling, Jun 17 2016

Keywords

• nonn
• easy

Comments

See the Comment on distinct-product sequences in A160009.

Examples

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

Links

• Clark Kimberling, Table of n, a(n) for n = 1..1816

Crossrefs

Cf. A160009.

Programs

Mathematica

f[1] = 2; f[2] = 5; z = 33; f[n_] := f[n - 1] + f[n - 2]; f = Table[f[n], {n, 1, z}]; f
s = {1}; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s1 = Rest[s]