login
Primes of the form F(i)^2 + F(j)^2, where F() are Fibonacci numbers.
1

%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_