A178991 Primes that can be expressed as the sum of a Fibonacci number and the square of a Fibonacci number.

2, 3, 5, 7, 11, 17, 43, 59, 67, 313, 443, 449, 619, 991, 1051, 1601, 2143, 2593, 2609, 2753, 3169, 6829, 20749, 24917, 28661, 38447, 49393, 54323, 56873, 75029, 372121, 974177, 1346273, 1346333, 1718369, 1806209, 2178313, 2178373, 3524603, 3525019, 6683821

Offset: 1

Author

Carmine Suriano, Jan 12 2011

Keywords

• nonn

Comments

Any term is Fib(n)+Fib(m)*Fib(m).

Examples

			a(10) = 313 = 144+169 = Fib(12)+Fib(7)^2.
		

Crossrefs

Cf. A000040, A000045, A178576.

Programs

Mathematica

f=Fibonacci[Range[35]]; Select[Union[Flatten[Outer[Plus, f, f^2]]], # <= f[[-1]] + 1 && PrimeQ[#] &]

Extensions

Corrected by T. D. Noe, Jan 13 2011