A274191 Numbers that are a product of distinct numbers in A022086.

3, 6, 9, 15, 18, 24, 27, 39, 45, 54, 63, 72, 90, 102, 117, 135, 144, 162, 165, 189, 216, 234, 267, 270, 306, 351, 360, 378, 405, 432, 495, 567, 585, 612, 648, 699, 702, 801, 810, 918, 936, 945, 990, 1053, 1080, 1131, 1134, 1296, 1485, 1512, 1530, 1602, 1701

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

17 = 3*6; 405 = 3*9*15.

Mathematica

f[1] = 3; f[2] = 6; 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. A022086, A160009, A274288.

Sequence in context: A146562 A342594 A179893 * A133331 A276381 A259728

Adjacent sequences: A274188 A274189 A274190 * A274192 A274193 A274194

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2016

Status

approved