login
A163854
Primes of the form Fibonacci(k)-5.
3
3, 29, 139, 2579, 3987795824799770715342824788687062628452272409956636682999616403, 8269366108663463411004717981412027167937978847386801205243459016220834185059487057691
OFFSET
1,1
COMMENTS
Corresponding k are 6, 9, 12, 18, 306, 408, 3696, 4122, ...
MATHEMATICA
Clear[lst, a, f, n, p]; a=5; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[p=f-a]&&p>1, AppendTo[lst, p]], {n, 3*6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Comment from Charles R Greathouse IV, Oct 05 2009
STATUS
approved