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

%I #13 Jun 12 2022 06:15:54

%S 3,5,7,11,13,19,23,29,31,37,47,53,67,71,73,89,97,107,131,139,149,157,

%T 173,179,181,191,197,199,233,241,251,283,317,359,379,443,463,467,479,

%U 487,521,547,571,613,631,683,827,883,887,937,971,997,1013,1021,1163,1181

%N Primes that are the sum of a positive Fibonacci number and the squares of two positive Fibonacci numbers.

%e 47 = fib(7) + fib(4)^2 + fib(5)^2.

%t f = Union[Table[Fibonacci[n], {n, 17}]]; t = Union[Flatten[Table[f[[i]] + f[[j]]^2 + 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