OFFSET
1,2
COMMENTS
Complement of A274428.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..2500
MATHEMATICA
z = 200; f[n_] := Fibonacci[n];
u = Take[Sort[Flatten[Table[f[m] f[n], {n, 3, z}, {m, 3, n - 1}]]], z]
g[n_] := LucasL[n];
v = Take[Sort[Flatten[Table[g[u] g[v], {u, 2, z}, {v, 2, u - 1}]]], z]
Intersection[u, v] (* empty *)
w = Union[u, v] (* A274426 *)
Select[Range[300], MemberQ[u, w[[#]]] &] (* A274427 *)
Select[Range[300], MemberQ[v, w[[#]]] &] (* A274428 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 22 2016
STATUS
approved