|
%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
|
