A274283 Numbers that are a product of distinct numbers in A022095.

1, 5, 6, 11, 17, 28, 30, 45, 55, 66, 73, 85, 102, 118, 140, 168, 187, 191, 225, 270, 308, 309, 330, 365, 438, 476, 495, 500, 510, 590, 708, 765, 803, 809, 840, 935, 955, 1122, 1146, 1241, 1260, 1298, 1309, 1350, 1540, 1545, 1848, 1854, 2006, 2044, 2101, 2118

Offset

1,2

Comments

See the Comment on distinct-product sequences in A160009.

Links

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

Example

30 = 5*6, 330 = 5*6*11.

Mathematica

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

Sequence in context: A277550 A070373 A231000 * A022095 A042531 A042839

Adjacent sequences: A274280 A274281 A274282 * A274284 A274285 A274286

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2016

Status

approved