%I #11 May 18 2013 16:49:24
%S 2,5,13,29,73,89,173,233,1181,1597,3089,23761,28657,54293,142193,
%T 372269,426389,514229,2922509,6680081,119822837,320356577,433494437,
%U 2971215073,5748565541,38580030893,38580085013,38582581133,44208781349
%N Primes of the form F(i)^2 + F(j)^2, where F() are Fibonacci numbers.
%H T. D. Noe, <a href="/A045703/b045703.txt">Table of n, a(n) for n=1..300</a>
%F 5 = 1^2 + 2^2.
%t f=Table[Fibonacci[i],{i,1,100}];g=Union[Flatten[Table[f[[i]]^2+f[[j]]^2,{i,1,80},{j,1,80}]]];Table[g[[Select[Range[400],PrimeQ[g[[#]]]&]]]] (* _Vincenzo Librandi_, Jul 13 2012 *)
%Y Cf. A000045.
%K nonn
%O 1,1
%A _Felice Russo_