A143736 Numbers n such that if f[n] = n-th Fibonacci number then f[n]-n=prime and f[n]+n=prime.

21, 317811, 3254830071569718737604135765141440985245996862858900395844371829572479434062128681271684515666943918276960875482517915520246056253019766319301321652047243019401297415371

Offset

1,1

Links

Table of n, a(n) for n=1..3.

Mathematica

lst={}; Do[f=Fibonacci[n]; If[PrimeQ[f-n]&&PrimeQ[f+n], AppendTo[lst, f]], {n, 7!}]; lst

Crossrefs

Sequence in context: A358665 A203673 A172854 * A189252 A173518 A033636

Adjacent sequences: A143733 A143734 A143735 * A143737 A143738 A143739

Keyword

nonn,bref

Author

Vladimir Joseph Stephan Orlovsky, Aug 30 2008

Status

approved