%I #18 Sep 01 2024 16:01:59
%S 11,29,199,521,3571,9349,3010349,54018521,370248451,6643838879,
%T 119218851371,5600748293801,688846502588399,32361122672259149,
%U 412670427844921037470771,258899611203303418721656157249445530046830073044201152332257717521
%N Primes in the bisected Lucas sequence A002878.
%C Subsequence of A005479.
%F A002878 INTERSECT A000040.
%F A000032(k) for odd k in A001606. - _Robert Israel_, May 01 2017
%p select(isprime, [seq(combinat:-fibonacci(2*n)+combinat:-fibonacci(2*n+2), n=1..200)]); # _Robert Israel_, May 01 2017
%t Select[LucasL[Range[1, 400, 2]], PrimeQ] (* _Vincenzo Librandi_, May 01 2017 *)
%t Select[LinearRecurrence[{3,-1},{1,4},160],PrimeQ] (* _Harvey P. Dale_, Sep 01 2024 *)
%Y Cf. A001606, A002878, A005479, A121534, A180363, A269254, A294099 (row 3).
%K nonn
%O 1,1
%A _R. J. Mathar_, Apr 30 2017