login
A045703
Primes of the form F(i)^2 + F(j)^2, where F() are Fibonacci numbers.
1
2, 5, 13, 29, 73, 89, 173, 233, 1181, 1597, 3089, 23761, 28657, 54293, 142193, 372269, 426389, 514229, 2922509, 6680081, 119822837, 320356577, 433494437, 2971215073, 5748565541, 38580030893, 38580085013, 38582581133, 44208781349
OFFSET
1,1
FORMULA
5 = 1^2 + 2^2.
MATHEMATICA
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 *)
CROSSREFS
Cf. A000045.
Sequence in context: A214633 A282831 A259762 * A289843 A242080 A178444
KEYWORD
nonn
AUTHOR
STATUS
approved