login
Primes in the bisected Lucas sequence A002878.
16

%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