%I #4 Jun 22 2016 23:16:13
%S 3,5,8,9,12,13,17,18,19,23,24,25,30,31,32,33,38,39,40,41,47,48,49,50,
%T 51,57,58,59,60,61,68,69,70,71,72,73,80,81,82,83,84,85,93,94,95,96,97,
%U 98,99,107,108,109,110,111,112,113,122,123,124,125,126,127
%N Positions in A274429 of products of distinct Fibonacci numbers > 1.
%C Complement of A274431.
%t z = 200; f[n_] := Fibonacci[n];
%t u = Take[Sort[Flatten[Table[f[m] f[n], {n, 3, z}, {m, 3, n - 1}]]], 100]
%t g[n_] := LucasL[n];
%t v = Take[Sort[Flatten[Table[g[u] g[v], {u, 1, z}, {v, 1, u - 1}]]], z]
%t Intersection[u, v]
%t w = Union[u, v] (* A274429 *)
%t Select[Range[300], MemberQ[u, w[[#]]] &] (* A274430 *)
%t Select[Range[300], MemberQ[v, w[[#]]] &] (* A274431 *)
%Y Cf. A274429, A274431.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jun 22 2016