A274284 Numbers that are a product of distinct numbers in A006355.

2, 4, 6, 8, 10, 12, 16, 20, 24, 26, 32, 40, 42, 48, 52, 60, 64, 68, 80, 84, 96, 104, 110, 120, 128, 136, 156, 160, 168, 178, 192, 208, 220, 240, 252, 260, 272, 288, 312, 320, 336, 356, 384, 408, 416, 420, 440, 466, 480, 504, 520, 544, 576, 624, 640, 660, 672

Offset

1,1

Comments

See the Comment on distinct-product sequences in A160009.

Links

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

Example

8 = 2*4, 480 = 2*4*6*10.

Mathematica

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

Crossrefs

Cf. A160009.

Sequence in context: A085154 A371286 A331079 * A112421 A320674 A022483

Adjacent sequences: A274281 A274282 A274283 * A274285 A274286 A274287

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2016

Status

approved