A200381 Products of Lucas numbers.

1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 14, 16, 18, 21, 22, 24, 27, 28, 29, 32, 33, 36, 42, 44, 47, 48, 49, 54, 56, 58, 63, 64, 66, 72, 76, 77, 81, 84, 87, 88, 94, 96, 98, 99, 108, 112, 116, 121, 123, 126, 128, 132, 141, 144, 147, 152, 154, 162, 168, 174, 176, 188

Offset

1,2

Comments

Complement of A200995.

Contains A000032, A001254, A075155, A099923, A103325 .. and any products of their members.

Links

T. D. Noe, Table of n, a(n) for n = 1..1099

Index entries for Lucas sequences

Example

Contains 9=3^2, 14=2*7, 21=3*7, 27=3^3, 42=2*3*7, 141 =3*47 etc.

Mathematica

lim = 11; luc = LucasL[Range[0, lim]]; luc = Delete[luc, 2]; last = luc[[-1]]; t = {1}; Do[t2 = luc[[n]]^Range[Floor[Log[last]/Log[luc[[n]]]]]; s = Select[Union[Flatten[Outer[Times, t, t2]]], # <= last &];  t = Union[t, s], {n, lim}]; t (* T. D. Noe, Nov 17 2011 *)

Crossrefs

Cf. A000032, A181156. Complement of A200995.

Sequence in context: A004144 A356930 A124391 * A050118 A081754 A336654

Adjacent sequences: A200378 A200379 A200380 * A200382 A200383 A200384

Keyword

nonn

Author

R. J. Mathar, Nov 17 2011

Status

approved