|
%I #16 Jun 12 2022 06:16:04
%S 3,5,7,11,13,17,19,23,29,31,37,41,43,47,59,61,67,71,73,79,83,101,103,
%T 127,149,151,173,179,191,193,211,227,229,239,263,271,313,331,347,379,
%U 383,389,433,443,449,457,463,467,491,499,509,547,587,593,601,613,617
%N Primes that are the sum of two positive Fibonacci numbers and the square of a positive Fibonacci number.
%e 43 = fib(3) + fib(5) + fib(6)^2.
%t f = Union[Table[Fibonacci[n], {n, 16}]]; t = Union[Flatten[Table[ f[[i]] + f[[j]] + f[[k]]^2, {i, Length[f]}, {j, Length[f]}, {k, Length[f]}]]]; Select[t, # <= f[[-1]] && PrimeQ[#] &] (* _T. D. Noe_, Jun 03 2011 *)
%Y Cf. A000045.
%K nonn
%O 1,1
%A _Carmine Suriano_, Jun 01 2011
%E Corrected by _T. D. Noe_, Jun 03 2011
|
