%I #20 Jan 16 2023 21:40:59
%S 0,1,2,4,5,7,13,22,52,53,85,175,214,223,556,631
%N Numbers k such that A000032(k) + 2^k is a prime.
%C Next term > 10^5. - _Joerg Arndt_, Jul 25 2016
%t Select[Range[0, 7000], PrimeQ[LucasL[#] + 2^#] &]
%o (Magma) [n: n in [1..7000] | IsPrime(Lucas(n)+2^n)];
%o (PARI) isok(n) = isprime(fibonacci(n-1)+fibonacci(n+1)+2^n); \\ _Altug Alkan_, Jul 25 2016
%Y Cf. A000032, A088859.
%K nonn,more
%O 1,3
%A _Vincenzo Librandi_, Jul 25 2016
|