A285992 Primes in the bisected Lucas sequence A002878.
11, 29, 199, 521, 3571, 9349, 3010349, 54018521, 370248451, 6643838879, 119218851371, 5600748293801, 688846502588399, 32361122672259149, 412670427844921037470771, 258899611203303418721656157249445530046830073044201152332257717521
Offset: 1
Keywords
Programs
-
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 *)
Comments