|
|
A143736
|
|
Numbers n such that if f[n] = n-th Fibonacci number then f[n]-n=prime and f[n]+n=prime.
|
|
0
|
|
|
21, 317811, 3254830071569718737604135765141440985245996862858900395844371829572479434062128681271684515666943918276960875482517915520246056253019766319301321652047243019401297415371
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
lst={}; Do[f=Fibonacci[n]; If[PrimeQ[f-n]&&PrimeQ[f+n], AppendTo[lst, f]], {n, 7!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,bref
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|