%I #13 Jun 12 2022 06:15:35
%S 3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,67,73,83,101,107,127,131,
%T 137,139,149,151,163,173,179,181,191,197,199,211,223,239,251,269,307,
%U 349,359,367,379,383,389,443,449,457,463,503,521,523,547,557,569,571
%N Primes that are the sum of a positive Fibonacci, a positive Fibonacci number squared, and a positive Fibonacci number cubed.
%H Carmine Suriano, <a href="/A191378/b191378.txt">Table of n, a(n) for n = 1..325</a>
%e 41 = fib(7) + fib(1)^2 + fib(4)^3.
%t f = Union[Table[Fibonacci[n], {n, 15}]]; t = Union[Flatten[Table[ f[[i]] + f[[j]]^2 + f[[k]]^3, {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