A274282 Numbers that are a product of distinct numbers in A000285.

1, 4, 5, 9, 14, 20, 23, 36, 37, 45, 56, 60, 70, 92, 97, 115, 126, 148, 157, 180, 185, 207, 240, 254, 280, 300, 322, 333, 388, 411, 460, 485, 504, 518, 540, 628, 630, 665, 740, 785, 828, 840, 851, 873, 1016, 1035, 1076, 1200, 1270, 1288, 1332, 1358, 1380

Offset

1,2

Comments

See the Comment on distinct-product sequences in A160009.

Links

Table of n, a(n) for n=1..53.

Example

20 = 4*5, 180 = 4*5*9.

Mathematica

f[1] = 1; f[2] = 4; z = 32; 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}]; s

Crossrefs

Cf. A160009, A274288.

Sequence in context: A363284 A363269 A120740 * A347553 A000285 A042031

Adjacent sequences: A274279 A274280 A274281 * A274283 A274284 A274285

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2016

Status

approved