OFFSET
1,1
COMMENTS
EXAMPLE
a(1) = 7 because Lucas(4) = 7 is prime and Fibonacci(4) = 3 is prime too.
MATHEMATICA
Do[f=Fibonacci[n]; l=Fibonacci[n-1]+Fibonacci[n+1]; If[PrimeQ[f]&&PrimeQ[l], Print[{f, l}]], {n, 10000}]
nn=1000; Transpose[Select[Thread[{Fibonacci[Range[nn]], LucasL[ Range[nn]]}], And@@PrimeQ[#]&]][[2]] (* Harvey P. Dale, Jul 08 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 05 2006
EXTENSIONS
a(1) and example corrected by Harvey P. Dale, Jul 08 2011
STATUS
approved