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

4, 7, 11, 18, 28, 29, 44, 47, 72, 76, 77, 116, 123, 126, 188, 198, 199, 203, 304, 308, 319, 322, 329, 492, 504, 517, 521, 522, 532, 792, 796, 812, 836, 843, 846, 861, 1276, 1288, 1316, 1353, 1363, 1364, 1368, 1386, 1393, 2068, 2084, 2088, 2128, 2189, 2204

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

28 = 4*7, 308 = 4*7*11.

Mathematica

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

Crossrefs

Cf. A160009, A274280.

Sequence in context: A207871 A023666 A023502 * A024882 A296551 A087203

Adjacent sequences: A274283 A274284 A274285 * A274287 A274288 A274289

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2016

Status

approved