login
A178991
Primes that can be expressed as the sum of a Fibonacci number and the square of a Fibonacci number.
1
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,1
COMMENTS
Any term is Fib(n)+Fib(m)*Fib(m).
EXAMPLE
a(10) = 313 = 144+169 = Fib(12)+Fib(7)^2.
MATHEMATICA
f=Fibonacci[Range[35]]; Select[Union[Flatten[Outer[Plus, f, f^2]]], # <= f[[-1]] + 1 && PrimeQ[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Carmine Suriano, Jan 12 2011
EXTENSIONS
Corrected by T. D. Noe, Jan 13 2011
STATUS
approved