cp's OEIS Frontend

A274427 Positions in A274426 of products of distinct Fibonacci numbers > 1.

%I A274427 #12 Feb 10 2021 01:09:12
%S A274427 1,2,4,5,7,8,11,12,13,16,17,18,22,23,24,25,29,30,31,32,37,38,39,40,41,
%T A274427 46,47,48,49,50,56,57,58,59,60,61,67,68,69,70,71,72,79,80,81,82,83,84,
%U A274427 85,92,93,94,95,96,97,98,106,107,108,109,110,111,112,113
%N A274427 Positions in A274426 of products of distinct Fibonacci numbers > 1.
%C A274427 Complement of A274428.
%H A274427 G. C. Greubel, <a href="/A274427/b274427.txt">Table of n, a(n) for n = 1..2500</a>
%t A274427 z = 200; f[n_] := Fibonacci[n];
%t A274427 u = Take[Sort[Flatten[Table[f[m] f[n], {n, 3, z}, {m, 3, n - 1}]]], z]
%t A274427 g[n_] := LucasL[n];
%t A274427 v = Take[Sort[Flatten[Table[g[u] g[v], {u, 2, z}, {v, 2, u - 1}]]], z]
%t A274427 Intersection[u, v] (* empty *)
%t A274427 w = Union[u, v]  (* A274426 *)
%t A274427 Select[Range[300], MemberQ[u, w[[#]]] &]  (* A274427 *)
%t A274427 Select[Range[300], MemberQ[v, w[[#]]] &]  (* A274428 *)
%Y A274427 Cf. A274426, A274428 (complement).
%K A274427 nonn,easy
%O A274427 1,2
%A A274427 _Clark Kimberling_, Jun 22 2016