|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Any term is Fib(n)+Fib(m)*Fib(m).
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|