A292614 Numbers k such that 2^k - Lucas(k) is prime.
14, 19, 25, 41, 46, 65, 136, 145, 185, 193, 290, 406, 481, 641, 761, 3481, 4873, 5360, 6682, 13579, 34120, 35384, 43070, 46744, 96014, 212521
Offset: 1
Programs
-
Mathematica
Select[Range[0, 6000], PrimeQ[2^# - LucasL[#]] &]
Extensions
a(24)-a(25) from Giovanni Resta, Sep 21 2017
a(26) from Michael S. Branicky, Apr 25 2025
Comments