|
%I #17 Mar 30 2012 17:35:07
%S 3,5,7,11,13,17,19,23,29,31,37,41,43,47,59,61,71,73,79,89,97,103,107,
%T 113,131,149,151,157,167,173,179,181,191,199,233,239,241,251,257,269,
%U 293,379,383,401,419,433,467,479,487,521,523,613,617,619
%N Primes that are sum of three positive Fibonacci numbers.
%e a(6)=17=1+3+13=Fib(1)+Fib(4)+Fib(7)
%t f=Fibonacci[Range[15]]; Select[Union[Flatten[Outer[Plus, f, f, f]]], # <= f[[-1]]+2 && PrimeQ[#] &]
%Y A000040, A178576, A178991
%K nonn
%O 1,1
%A _Carmine Suriano_, Jan 12 2011
|
