A274431 Positions in A274426 of products of distinct Lucas numbers > 1 (excluding 2).

1, 2, 4, 6, 7, 10, 11, 14, 15, 16, 20, 21, 22, 26, 27, 28, 29, 34, 35, 36, 37, 42, 43, 44, 45, 46, 52, 53, 54, 55, 56, 62, 63, 64, 65, 66, 67, 74, 75, 76, 77, 78, 79, 86, 87, 88, 89, 90, 91, 92, 100, 101, 102, 103, 104, 105, 106, 114, 115, 116, 117, 118, 119

Offset

1,2

Comments

Complement of A274430.

Links

Table of n, a(n) for n=1..63.

Mathematica

z = 200; f[n_] := Fibonacci[n];
u = Take[Sort[Flatten[Table[f[m] f[n], {n, 3, z}, {m, 3, n - 1}]]], 100]
g[n_] := LucasL[n];
v = Take[Sort[Flatten[Table[g[u] g[v], {u, 1, z}, {v, 1, u - 1}]]], z]
Intersection[u, v]
w = Union[u, v]  (* A274429 *)
Select[Range[300], MemberQ[u, w[[#]]] &]  (* A274430 *)
Select[Range[300], MemberQ[v, w[[#]]] &]  (* A274431 *)

Crossrefs

Cf. A274429, A274430.

Sequence in context: A319829 A272631 A347694 * A236477 A189214 A189131

Adjacent sequences: A274428 A274429 A274430 * A274432 A274433 A274434

Keyword

nonn,easy

Author

Clark Kimberling, Jun 22 2016

Status

approved