A179429 Primes that are sum of three positive Fibonacci numbers.

3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 59, 61, 71, 73, 79, 89, 97, 103, 107, 113, 131, 149, 151, 157, 167, 173, 179, 181, 191, 199, 233, 239, 241, 251, 257, 269, 293, 379, 383, 401, 419, 433, 467, 479, 487, 521, 523, 613, 617, 619

Offset: 1

Author

Carmine Suriano, Jan 12 2011

Keywords

• nonn

Examples

			a(6)=17=1+3+13=Fib(1)+Fib(4)+Fib(7)
		

Crossrefs

A000040, A178576, A178991

Programs

Mathematica

f=Fibonacci[Range[15]]; Select[Union[Flatten[Outer[Plus, f, f, f]]], # <= f[[-1]]+2 && PrimeQ[#] &]