This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A274430 #4 Jun 22 2016 23:16:13
%S A274430 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 A274430 51,57,58,59,60,61,68,69,70,71,72,73,80,81,82,83,84,85,93,94,95,96,97,
%U A274430 98,99,107,108,109,110,111,112,113,122,123,124,125,126,127
%N A274430 Positions in A274429 of products of distinct Fibonacci numbers > 1.
%C A274430 Complement of A274431.
%t A274430 z = 200; f[n_] := Fibonacci[n];
%t A274430 u = Take[Sort[Flatten[Table[f[m] f[n], {n, 3, z}, {m, 3, n - 1}]]], 100]
%t A274430 g[n_] := LucasL[n];
%t A274430 v = Take[Sort[Flatten[Table[g[u] g[v], {u, 1, z}, {v, 1, u - 1}]]], z]
%t A274430 Intersection[u, v]
%t A274430 w = Union[u, v] (* A274429 *)
%t A274430 Select[Range[300], MemberQ[u, w[[#]]] &] (* A274430 *)
%t A274430 Select[Range[300], MemberQ[v, w[[#]]] &] (* A274431 *)
%Y A274430 Cf. A274429, A274431.
%K A274430 nonn,easy
%O A274430 1,1
%A A274430 _Clark Kimberling_, Jun 22 2016