A297623 Numbers k such that Lucas(k) - prime(k) is a prime.
6, 9, 18, 33, 51, 54, 57, 189, 6948, 28617, 162864, 173682, 216870, 496533
Offset: 1
Examples
a(1) = 6 because Lucas(6)=18, prime(6)=13 and 18-13=5 is a prime.
Programs
-
Magma
[n: n in [1..5000] | IsPrime(Lucas(n)-NthPrime(n))];
-
Mathematica
Select[Range[10000], PrimeQ[LucasL[#] - Prime[#]]&]
Extensions
a(11)-a(14) from Robert Price, Feb 17 2018
Comments