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

3, 5, 7, 11, 13, 19, 23, 29, 31, 37, 47, 53, 67, 71, 73, 89, 97, 107, 131, 139, 149, 157, 173, 179, 181, 191, 197, 199, 233, 241, 251, 283, 317, 359, 379, 443, 463, 467, 479, 487, 521, 547, 571, 613, 631, 683, 827, 883, 887, 937, 971, 997, 1013, 1021, 1163, 1181

Offset

1,1

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A000045.

Sequence in context: A110589 A138004 A045395 * A095070 A350577 A079733

Adjacent sequences: A191374 A191375 A191376 * A191378 A191379 A191380

Keyword

nonn

Author

Carmine Suriano, Jun 01 2011

Status

approved