OFFSET
1,1
EXAMPLE
a(6)=17=1+3+13=Fib(1)+Fib(4)+Fib(7)
MATHEMATICA
f=Fibonacci[Range[15]]; Select[Union[Flatten[Outer[Plus, f, f, f]]], # <= f[[-1]]+2 && PrimeQ[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Carmine Suriano, Jan 12 2011
STATUS
approved