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 A274428 #8 Oct 31 2017 12:39:56
%S A274428 3,6,9,10,14,15,19,20,21,26,27,28,33,34,35,36,42,43,44,45,51,52,53,54,
%T A274428 55,62,63,64,65,66,73,74,75,76,77,78,86,87,88,89,90,91,99,100,101,102,
%U A274428 103,104,105,114,115,116,117,118,119,120,129,130,131,132,133
%N A274428 Positions in A274426 of products of distinct Lucas numbers > 1.
%C A274428 Complement of A274427.
%H A274428 G. C. Greubel, <a href="/A274428/b274428.txt">Table of n, a(n) for n = 1..2450</a>
%t A274428 z = 200; f[n_] := Fibonacci[n];
%t A274428 u = Take[Sort[Flatten[Table[f[m] f[n], {n, 3, z}, {m, 3, n - 1}]]], z]
%t A274428 g[n_] := LucasL[n];
%t A274428 v = Take[Sort[Flatten[Table[g[u] g[v], {u, 2, z}, {v, 2, u - 1}]]], z]
%t A274428 w = Union[u, v] (* A274426 *)
%t A274428 Select[Range[300], MemberQ[u, w[[#]]] &] (* A274427 *)
%t A274428 Select[Range[300], MemberQ[v, w[[#]]] &] (* A274428 *)
%Y A274428 Cf. A274426, A274427.
%K A274428 nonn,easy
%O A274428 1,1
%A A274428 _Clark Kimberling_, Jun 22 2016