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

3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 59, 61, 67, 71, 73, 79, 83, 101, 103, 127, 149, 151, 173, 179, 191, 193, 211, 227, 229, 239, 263, 271, 313, 331, 347, 379, 383, 389, 433, 443, 449, 457, 463, 467, 491, 499, 509, 547, 587, 593, 601, 613, 617

Offset

1,1

Links

Table of n, a(n) for n=1..57.

Example

43 = fib(3) + fib(5) + fib(6)^2.

Mathematica

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 *)

Crossrefs

Cf. A000045.

Sequence in context: A338134 A138980 A191378 * A179429 A020615 A172146

Adjacent sequences: A191373 A191374 A191375 * A191377 A191378 A191379

Keyword

nonn

Author

Carmine Suriano, Jun 01 2011

Extensions

Corrected by T. D. Noe, Jun 03 2011

Status

approved