cp's OEIS Frontend

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

%I A274431 #4 Jun 22 2016 23:16:20
%S A274431 1,2,4,6,7,10,11,14,15,16,20,21,22,26,27,28,29,34,35,36,37,42,43,44,
%T A274431 45,46,52,53,54,55,56,62,63,64,65,66,67,74,75,76,77,78,79,86,87,88,89,
%U A274431 90,91,92,100,101,102,103,104,105,106,114,115,116,117,118,119
%N A274431 Positions in A274426 of products of distinct Lucas numbers > 1 (excluding 2).
%C A274431 Complement of A274430.
%t A274431 z = 200; f[n_] := Fibonacci[n];
%t A274431 u = Take[Sort[Flatten[Table[f[m] f[n], {n, 3, z}, {m, 3, n - 1}]]], 100]
%t A274431 g[n_] := LucasL[n];
%t A274431 v = Take[Sort[Flatten[Table[g[u] g[v], {u, 1, z}, {v, 1, u - 1}]]], z]
%t A274431 Intersection[u, v]
%t A274431 w = Union[u, v]  (* A274429 *)
%t A274431 Select[Range[300], MemberQ[u, w[[#]]] &]  (* A274430 *)
%t A274431 Select[Range[300], MemberQ[v, w[[#]]] &]  (* A274431 *)
%Y A274431 Cf. A274429, A274430.
%K A274431 nonn,easy
%O A274431 1,2
%A A274431 _Clark Kimberling_, Jun 22 2016