login
Primes that are the sum of two positive Fibonacci numbers and the square of a positive Fibonacci number.
0

%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