Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A163852
Primes of the form Fibonacci(k)-3.
5
2, 5, 31, 607, 628580612875886694881648328579603114508131388106874704297602636435532791990880832689119, 7531436383873795315009506236096188648036856522778750817396763797198414070984881727501992372613765176393353441439
OFFSET
1,1
COMMENTS
Contains the numbers A000045(k)-3 for k = 5, 6, 9, 15, 417, 537, 2085,...
which equal A000040(j) for j = 1, 3, 11, 111,...
MATHEMATICA
Clear[lst, a, f, n, p]; a=3; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[p=f-a]&&p>1, AppendTo[lst, p]], {n, 3*6!}]; lst
CROSSREFS
Cf. A163851.
Sequence in context: A085873 A303289 A051048 * A051399 A080582 A064845
KEYWORD
nonn
AUTHOR
EXTENSIONS
Indices into Fibonacci and prime sequences added by R. J. Mathar, Aug 18 2009
STATUS
approved