A274287 Numbers that are a product of distinct numbers in row 3 of the Wythoff array, A035513.

6, 10, 16, 26, 42, 60, 68, 96, 110, 156, 160, 178, 252, 260, 288, 408, 416, 420, 466, 660, 672, 680, 754, 960, 1068, 1088, 1092, 1100, 1220, 1560, 1728, 1760, 1768, 1780, 1974, 2496, 2520, 2796, 2848, 2856, 2860, 2880, 3194, 4032, 4080, 4160, 4524, 4608

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

60 = 6*10, 960 = 6*10*16.

Mathematica

f[1] = 6; f[2] = 10; 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}]; Rest[s]

Crossrefs

Cf. A160009.

Sequence in context: A079329 A302748 A020741 * A090991 A019533 A053301

Adjacent sequences: A274284 A274285 A274286 * A274288 A274289 A274290

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2016

Status

approved