A274287 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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]