A297623 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

a(15) > 5*10^5. - Robert Price, Feb 17 2018

LINKS

EXAMPLE

a(1) = 6 because Lucas(6)=18, prime(6)=13 and 18-13=5 is a prime.

MATHEMATICA

Select[Range[10000], PrimeQ[LucasL[#] - Prime[#]]&]

PROG

(Magma) [n: n in [1..5000] | IsPrime(Lucas(n)-NthPrime(n))];

CROSSREFS

KEYWORD

nonn,more

AUTHOR

EXTENSIONS

a(11)-a(14) from Robert Price, Feb 17 2018

STATUS

approved