The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A274286 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A274286

Numbers that are a product of distinct numbers in row 2 of the Wythoff array, A035513.
(history; published version)

#5 by N. J. A. Sloane at Sat Jun 18 00:40:20 EDT 2016

STATUS

proposed

approved

#4 by Clark Kimberling at Fri Jun 17 20:13:32 EDT 2016

STATUS

editing

proposed

#3 by Clark Kimberling at Fri Jun 17 20:03:13 EDT 2016

NAME

allocated for Clark KimberlingNumbers that are a product of distinct numbers in row 2 of the Wythoff array, A035513.

DATA

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, <a href="/A274286/b274286.txt">Table of n, a(n) for n = 1..1000</a>

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.

KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, Jun 17 2016

STATUS

approved

editing

#2 by Clark Kimberling at Fri Jun 17 15:02:01 EDT 2016

KEYWORD

allocating

allocated

#1 by Clark Kimberling at Fri Jun 17 15:02:01 EDT 2016

NAME

allocated for Clark Kimberling

KEYWORD

allocating

STATUS

approved