A121534 Lucas-Fibonacci prime twins: Prime Lucas numbers Lucas(k) such that Fibonacci numbers Fibonacci(k) are also prime.
7, 11, 29, 199, 521, 3571, 6643838879
Offset: 1
Keywords
Examples
a(1) = 7 because Lucas(4) = 7 is prime and Fibonacci(4) = 3 is prime too.
Programs
-
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 *)
Extensions
a(1) and example corrected by Harvey P. Dale, Jul 08 2011
Comments