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,1

Comments

See the Comment on distinct-product sequences in A160009.

Links

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

Example

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

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]

Crossrefs

Cf. A160009.

Sequence in context: A082845 A003153 A187475 * A022849 A075328 A038126

Adjacent sequences: A274282 A274283 A274284 * A274286 A274287 A274288

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2016

Status

approved