%I #4 Jul 22 2017 23:43:52
%S 1,2,3,4,6,5,12,7,9,10,67671,11084,5271,6704,6807,6452,10587,7928,
%T 2463,80,57,8,15,16,18,20,27,22,21,124,87,32,30,11,24,13,48,23,60,19,
%U 54,52,69,44,513,148,75,38,36,29,750,259,246,53,150,83,132,73,42,40,51,14,981,284,801,964,1971,5174
%N Indices of Fibonacci numbers in A073656, i.e., A073656(n) = F(a(n)).
%C a(12) > 9800.
%e A073656(7) = 144, the 12th Fibonacci number, so a(7) = 12.
%t l = {1, 2}; Do[k = 1; While[MemberQ[l, k]  !PrimeQ[Fibonacci[Last[l]] + Fibonacci[k]], k++ ]; AppendTo[l, k]; Print[l], {n, 30}]
%Y Cf. A073656.
%K nonn
%O 1,2
%A _Ryan Propper_, Jun 17 2006
