OFFSET
1,1
COMMENTS
Subsequence of A005479.
FORMULA
MAPLE
select(isprime, [seq(combinat:-fibonacci(2*n)+combinat:-fibonacci(2*n+2), n=1..200)]); # Robert Israel, May 01 2017
MATHEMATICA
Select[LucasL[Range[1, 400, 2]], PrimeQ] (* Vincenzo Librandi, May 01 2017 *)
Select[LinearRecurrence[{3, -1}, {1, 4}, 160], PrimeQ] (* Harvey P. Dale, Sep 01 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Apr 30 2017
STATUS
approved