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

Author

R. J. Mathar, Nov 17 2011

Keywords

• nonn

Comments

Complement of A200995.

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

Examples

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

Links

• T. D. Noe, Table of n, a(n) for n = 1..1099
• Index entries for Lucas sequences

Crossrefs

Cf. A000032, A181156. Complement of A200995.

Programs

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 *)